[vb6 & SQL] adodb fout in ORDER BY, maar wat???

[tim-w]

ik voer deze query uit:

"SELECT peen FROM Ploegen WHERE Poule='A' order by peen desc LIMIT 0, 2"

en krijg dan de error "Syntax error in ORDER BY clause"...

code:

Private Function removelosers()
'deze functie zet de velden "Ronde" (de ronde waarin een ploeg heeft verloren)
'op "1" voor alle ploegen die niet door zijn naar deze ronde, en dus in ronde 1 verloren hebben.

Dim Conn As ADODB.Connection
Dim rsTmp As ADODB.Recordset
Dim strConnectionString As String

'maak connectie met de database
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False"
Set Conn = New Connection
Conn.Open strConnectionString

strSQL = "SELECT peen FROM Ploegen WHERE Poule='A' order by peen desc LIMIT 0, 2"

Set rsTmp = New Recordset
rsTmp.Open strSQL, Conn, 0, 1
If Not rsTmp.EOF Then
'lees gegevens uit
arrVol1 = rsTmp.GetRows(-1)

iemand een idee?

[gorgi_19]

MS Access ondersteunt geen Limit, TOP heb je nodig.

[tim-w]

oke, maar als ik de LIMIT statement eruit haal, dan krijg ik nogsteeds dezelfde foutmelding :S:S

[vogeltje]

ik neem aan dat je wel een Dim strSQL As String ergens hebt staan

[LuCarD]

Wat is de query nu?

[tim-w]

SELECT peen FROM Ploegen WHERE Poule='A' order by peen desc

en ja die DIM staat er hoor

[ Voor 31% gewijzigd door tim-w op 16-04-2004 17:05 ]

[tim-w]

is opgelost, was ergens een foutje in de veldnaam... heb de DB aangepast.

Nu een ander probleem,
iets verderop doe ik:

code:

'maak connectie met de database
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False"
Set Conn = New Connection
Conn.Open strConnectionString

strSQL = "SELECT ID FROM Ploegen WHERE Poule='A' order by peen desc"
strSQL2 = "SELECT ID FROM Ploegen WHERE Poule='B' order by peen desc"

Set rsTmp = New Recordset
rsTmp.Open strSQL, Conn, 0, 1
If Not rsTmp.EOF Then
'lees gegevens uit
arrVol1 = rsTmp.GetRows(-1)

Dim verliezer1 As Integer
Dim verliezer2 As Integer

verliezer1 = arrVol1(0, 0)
verliezer2 = arrVol1(0, 1)

End If 'not eof

rsTmp.Close
Set rsTmp = Nothing

Set rsTmp = New Recordset
rsTmp.Open strSQL2, Conn, 0, 1
If Not rsTmp.EOF Then
'lees gegevens uit
arrVol1 = rsTmp.GetRows(-1)

Dim verliezer3 As Integer
Dim verliezer4 As Integer

verliezer3 = arrVol1(0, 0)
verliezer4 = arrVol1(0, 1)

End If 'not eof


'creeer een SQL query
strSQL3 = "UPDATE Ploegen SET Ronde='1' WHERE ID='" & verliezer1 & "' OR ID='" & verliezer2 & "' OR ID='" & verliezer3 & "' OR ID='" & verliezer4 & "'"


'tijdelijke recordset
Set rsTmp = New Recordset

'voer query uit
rsTmp.Open strSQL3, Conn, 0, 1      <<<<<<<<<<<<<<<

Set rsTmp = Nothing

Conn.Close
Set Conn = Nothing

nu krijg ik daar een DATATYPE MISMATCH... maar de tabel-velden zijn Numeriek, en de varabelen INTEGER... wat kan het probleem zijn ??

[justmental]

Waarom zet je numerieke waarden tussen quotejes in je query?

[tim-w]

ah dat is het!
dank je!

[whoami]

Het is niet de bedoeling dat wij hier jouw code debuggen.