Hvordan skal denne Distinct laves

LIMIT 1 ORDER BY kilo

Og det skal väre DESC ;o)

Tror forresten at LIMIT 1 skal stå til sidst for at det skal virke.

"SELECT Fisk, IDprofil, LEFT(Navn,7) AS Navn, Kilo  FROM rekorder, profiler, fisk  WHERE profilID=IDprofil AND fiskID=IDfisk LIMIT 1 ORDER BY Kilo DESC"

melder fejl

og den skal i princippet vise alle fisk - bare kun vise dem 1 gang med tilhørende toprekord

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-4.0.18-log]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'ORDER BY Kilo DESC' at line 1

/index.asp, line 48

"SELECT Fisk, IDprofil, LEFT(Navn,7) AS Navn, MAX(Kilo)  FROM rekorder, profiler, fisk  WHERE profilID=IDprofil AND fiskID=IDfisk GROUP BY fisk"

Hvad med den?

der melder den ikke fejl, men den parrer ikke den rigtige profil med den rigtige rekord: http://www.pikeinc.dk/index.asp

Bluefin tun Bo Nord 270 kg 
det er Michael der har den rekord.

åhhh nej skal man så ud i noget LEFT JOIN for det har jeg ikke styr på

any ideas... ?

Pröv at skrive f'et i GROUP BY fisk med stort f:
GROUP BY Fisk
Ser at du både har en kolonne og en tabel der hedder fisk.

"SELECT Fisk, IDprofil, LEFT(Navn,7) AS Navn, MAX(Kilo)  FROM rekorder, profiler, fisk  WHERE profilID=IDprofil AND fiskID=IDfisk GROUP BY Fisk"
giver samme resultat

Det kan sikkert godt laves i en SQL, men det kan ihvertfald laves med noget ASP kode også:

set rs = conn.execute("select * from fisk")
do while not rs.eof
  set rs1 = conn.execute("select IDprofil, LEFT(Navn,7) AS Navn, Kilo FROM rekorder, profiler where fiskID="& rs("IDfisk") &" order by kilo desc limit 1")
  if not rs1.eof then
    response.write rs1("kilo") & " " & rs1("Navn")
  else
  'Ingen fisk fanget endnu
  end if
  rs.MoveNext
loop

skal det indsættes nede i selve koden ?

min kode der viser rekorderne ser sådan ud:
                        <%
While ((Repeat2__numRows <> 0) AND (NOT rsRekorder.EOF))
%>
                        <tr>
                            <td height="14"><%=(rsRekorder.Fields.Item("Fisk").Value)%></td>
                            <td height="14" onMouseOver="return overlib('Se profil');" onMouseOut="return nd();"><a class="normal" href="profil.asp?IDprofil=<%=(rsRekorder.Fields.Item("IDprofil").Value)%>"><%=(rsRekorder.Fields.Item("Navn").Value)%></a></td>
                            <td height="14" align="right"><%=(rsRekorder.Fields.Item("MAX(Kilo)").Value)%> kg </td>
                        </tr>
                        <%
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsRekorder.MoveNext()
Wend
%>

fennec - jeg har prøvet at arbejde videre på det du har skrevet og koble det sammen med noget af den samme kode fra http://www.eksperten.dk/spm/577693

jeg får nu denne kode. ser det nogenlunde ud ?

kode:
<%
Set rsFisk = Server.CreateObject("ADODB.Recordset")
rsFisk.ActiveConnection = MM_database_STRING
rsFisk.Source = "SELECT *  FROM fisk"
rsFisk.CursorType = 0
rsFisk.CursorLocation = 2
rsFisk.LockType = 1
rsFisk.Open()

do while not rsFisk.eof
Set rsRekorder = Server.CreateObject("ADODB.Recordset")
rsRekorder.ActiveConnection = MM_database_STRING
rsRekorder.Source = "SELECT IDprofil, LEFT(Navn,7) AS Navn, Kilo FROM rekorder, profiler WHERE fiskID="& rsFisk("IDfisk") &" ORDER BY kilo DESC LIMIT 1"
rsRekorder.CursorType = 0
rsRekorder.CursorLocation = 2
rsRekorder.LockType = 1
rsRekorder.Open()

  if not rsRekorder.eof then
%>
                        <tr>
                            <td height="14"><%=(rsRekorder.Fields.Item("Fisk").Value)%></td>
                            <td height="14" onMouseOver="return overlib('Se profil');" onMouseOut="return nd();"><a class="normal" href="profil.asp?IDprofil=<%=(rsRekorder.Fields.Item("IDprofil").Value)%>"><%=(rsRekorder.Fields.Item("Navn").Value)%></a></td>
                            <td height="14" align="right"><%=(rsRekorder.Fields.Item("MAX(Kilo)").Value)%> kg </td>
                        </tr>
<%
  else
    response.write "der er noget galt"
  end if
  rsFisk.MoveNext
loop
%>

Det ser nogenlunde rigtig ud. Måske skulle du ændre "der er noget galt" til "Der er ingen fisk fanget af denne type endnu.". Da det er det, der er sket.

den melder fejl:
ADODB.Fields error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/index.asp, line 291

dette er linie 291:                            <td height="14"><%=(rsRekorder.Fields.Item("Fisk").Value)%></td>

<%=(rsRekorder.Fields.Item("Fisk").Value)%>

skal være:
<%=(rsFisk("Fisk"))%>

yep :)
Den parrer ikke navn rigtigt med fisken så det er den rigtige profil der vises ud for den rigtige fisk.

Link: http://www.pikeinc.dk/index.asp

Kode:
<%
Set rsFisk = Server.CreateObject("ADODB.Recordset")
rsFisk.ActiveConnection = MM_database_STRING
rsFisk.Source = "SELECT *  FROM fisk"
rsFisk.CursorType = 0
rsFisk.CursorLocation = 2
rsFisk.LockType = 1
rsFisk.Open()

do while not rsFisk.eof
Set rsRekorder = Server.CreateObject("ADODB.Recordset")
rsRekorder.ActiveConnection = MM_database_STRING
rsRekorder.Source = "SELECT IDprofil, LEFT(Navn,7) AS Navn, Kilo FROM rekorder, profiler WHERE fiskID=" & rsFisk("IDfisk") & " ORDER BY kilo DESC LIMIT 1"
rsRekorder.CursorType = 0
rsRekorder.CursorLocation = 2
rsRekorder.LockType = 1
rsRekorder.Open()

  if not rsRekorder.eof then
%>
                        <tr>
                            <td height="14"><%=(rsFisk.Fields.Item("Fisk").Value)%></td>
                            <td height="14" onMouseOver="return overlib('Se profil');" onMouseOut="return nd();"><a class="normal" href="profil.asp?IDprofil=<%=(rsRekorder.Fields.Item("IDprofil").Value)%>"><%=(rsRekorder.Fields.Item("Navn").Value)%></a></td>
                            <td height="14" align="right"><%=(rsRekorder.Fields.Item("Kilo").Value)%> kg </td>
                        </tr>
<%
  else
    response.write "Der er ingen fisk fanget af denne type endnu."
  end if
  rsFisk.MoveNext
loop
%>

hvis jeg gør sådan virker det med at parre fisk med profil men den viser kun den først oprettede fisk og ikke den hvor Kilo er størst

nu ser den sådan ud:
rsRekorder.Source = "SELECT IDprofil, LEFT(Navn,7) AS Navn, MAX(Kilo) AS Kilo FROM rekorder, profiler WHERE fiskID=" & rsFisk("IDfisk") & " AND IDprofil=profilID GROUP BY " & rsFisk("IDfisk") & " ORDER BY fiskID ASC LIMIT 1"

men så siger den:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[MySQL][ODBC 3.51 Driver][mysqld-4.0.18-log]Can't group on 'Kilo'

den første var næsten rigtig, der manglede bare et join kriterie:

rsRekorder.Source = "SELECT IDprofil, LEFT(Navn,7) AS Navn, Kilo FROM rekorder, profiler WHERE profilID=IDprofil AND fiskID=" & rsFisk("IDfisk") & " ORDER BY kilo DESC LIMIT 1"

det spiller. tak. du skal have point :)

.o) <-- One Eyed Jack

thankz