[vb6] rst.movenext met AdodB?

[Verwijderd]

Beste mensen, ik zit met een probleem stel als ik:

code:

Dim Db As ADODB.Connection
Dim Rst As ADODB.Recordset

En voor de rest op de gebruikelijke manier aanmaak om een database op een sql-server uit te lezen werkt:

code:

Rst.MoveNext

niet...ik zit helemaal vast. Ik heb verschillende refrences geprobeerd, verschillende CursorLocation's, etc etc maar dat mocht niet baten. MoveNext heeft geen enkele invloed, hij blijft gewoon op dezelfde (eerste) rij hangen. Iemand een idee of ik iets over het hoofd zie?

Thnx

[P_de_B]

Verwijderd schreef op 08 oktober 2004 @ 13:47:
Beste mensen, ik zit met een probleem stel als ik:

code:

Dim Db As ADODB.Connection
Dim Rst As ADODB.Recordset

En voor de rest op de gebruikelijke manier aanmaak om een database op een sql-server uit te lezen werkt:

code:

Rs.MoveNext

niet...ik zit helemaal vast. Ik heb verschillende refrences geprobeerd, verschillende CursorLocation's, etc etc maar dat mocht niet baten. MoveNext heeft geen enkele invloed, hij blijft gewoon op dezelfde (eerste) rij hangen. Iemand een idee of ik iets over het hoofd zie?

Thnx

Doe je echt Rs, of Rst?

[Verwijderd]

P_de_B schreef op 08 oktober 2004 @ 13:52:
[...]

Doe je echt Rs, of Rst?

Neej typfoutje...idd rst, sorry

[P_de_B]

Verwijderd schreef op 08 oktober 2004 @ 13:55:
[...]


Neej typfoutje...idd rst, sorry

Dan zul je wat meer code moeten geven

[Verwijderd]

P_de_B schreef op 08 oktober 2004 @ 13:57:
[...]

Dan zul je wat meer code moeten geven

Ik stelde deze vraag al eerder: [rml][ vb6] Rst.Movenext?[/rml]
Maar die werd gesloten...dusss

[André]

code:

set conn = server.createobject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("bla.mdb")

set gegevens = conn.execute("SELECT * FROM Tbl_Gegevens")
    
If Not gegevens.BOF Then 
  Do While Not gegevens.EOF

    'bla bla

  gegevens.MoveNext
  loop
end if

Zo doe ik het altijd.

[ Voor 32% gewijzigd door André op 08-10-2004 14:02 ]

[Verwijderd]

André schreef op 08 oktober 2004 @ 14:01:
Zo doe ik het altijd.

Bedankt, maar ik ook...

[ Voor 7% gewijzigd door Verwijderd op 08-10-2004 14:02 ]

[André]

Verwijderd schreef op 08 oktober 2004 @ 14:02:
[...]


Bedankt, maar ik ook...

Blijkbaar doe jij het iets anders, wat anders werkte het wel. Krijg je wel gegevens uit de database? Hoeveel records zitten er in je recordset?

[Verwijderd]

André schreef op 08 oktober 2004 @ 14:03:
[...]

Blijkbaar doe jij het iets anders, wat anders werkte het wel. Krijg je wel gegevens uit de database? Hoeveel records zitten er in je recordset?

Heej verdomd, als ik

code:

MsgBox Rst.RecordCount, vbOKOnly, "count"

doe krijg ik als antwoord: -1 Dat klopt niet...foutje in mn query?

[P_de_B]

Verwijderd schreef op 08 oktober 2004 @ 14:07:
[...]


Heej verdomd, als ik

code:

MsgBox Rst.RecordCount, vbOKOnly, "count"

doe krijg ik als antwoord: -1 Dat klopt niet...foutje in mn query?

nee, dat ligt aan het cursortype.

[Verwijderd]

P_de_B schreef op 08 oktober 2004 @ 14:10:
[...]


nee, dat ligt aan het cursortype.

Ja, je hebt helemaal gelijk, wat stom... het moet zijn adUseClient. Hartelijk dank! Je redde mij van volledige waanzin

[Verwijderd]

Als ik kijk naar de code die je in de gesloten topic hebt staan, lijkt het dat het komt omdat je een movenext doet na een .delete en na een .addnew
Bij .addnew weet ik dat de cursor naar het laatste record gaat, er is dus niets meer om met .movenext heen te gaan. Misschien is dat met .delete ook wel zo.
Misschien werkt het wel als je naar de laatste rij gaat en dan van beneden naar boven delete.

Edit:
Ik zie net dat je hetzelf al hebt opgelost

[ Voor 7% gewijzigd door Verwijderd op 08-10-2004 14:18 ]

[Verwijderd]

Verwijderd schreef op 08 oktober 2004 @ 14:18:
Edit:
Ik zie net dat je hetzelf al hebt opgelost

Jup, maar toch bedankt voor je reactie. Ik had trouwens ook een dikke fout gemaakt in mn sql-string. dat moet zijn:

code:

StrSql = "SELECT i.ItemCode, i.Description, i.Type, i.Assortment, ia.Code From items i " & _
    "inner join ItemAssortment ia on (i.Assortment=ia.Assortment) WHERE " & _
    "ia.Code NOT IN ('Z5','Z6','Z7','Z9') AND " & _
    "i.Type = 'S' AND " & _
    "i.Description NOT LIKE 'DISP%' AND " & _
    "i.Description NOT LIKE 'disp%' AND " & _
    "i.ItemCode <> '00' " & _
    "ORDER BY i.ItemCode"

Bye now...