[VB] Problème de recordset....

Problème de recordset.... [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2002 à 10:07:26    

Bonjour,
 
J'ai une petite erreur et je ne vois pas trop d'ou elle pourrait venir...j'ai donc besoin de vous.. :D  
J'essaye de faire un recordset en VB, donc je fais ceci :
 
 
Dim db As Database
Dim rs As Adodb.Recordset
Dim sql As String
 
Set db = OpenDatabase(App.Path & "\ISLAP.mdb" )
sql = "select * from LAP"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
 
 
Or j'ai un message d'erreur "Type non-défini" au niveau du recordset qd je lance l'appli... A cause de quoi ?? :??:  
 
Ma base est sous access2000 et j'utilise VB6....si quelqu'un peu m'aider, je vous remercie d'avance.. :jap:

Reply

Marsh Posté le 13-04-2002 à 10:07:26   

Reply

Marsh Posté le 22-04-2002 à 19:22:27    

As-tu essayé avant le Set rs = ... de faire
Set rs = New Adodb.Recordset

Reply

Marsh Posté le 22-04-2002 à 20:37:57    

Ca peut aussi arriver si la requête est mauvaise, ou si il y a un problème lors de la requête... par exemple il n'a pas réussi à se connecter à la base de données, ou autre...
Essaie de vérifier la connection, et de récupérer les erreurs.

Reply

Marsh Posté le 22-04-2002 à 21:11:36    

Et si tu essayais ceci ?
 
Dim Db As Database
Dim rs As Recordset
Dim sql As String  
 
sql = "select * from LAP"  
Set Db = Workspaces(0).OpenDatabase(App.Path & "\ISLAP.mdb" )
Set rs = Db.OpenRecordset(sql, dbOpenDynaset)

Reply

Marsh Posté le 25-04-2002 à 20:50:37    

Le problème vient du fait que tu mélange de la DAO avec de l'ADO.
Attention, si tu as les deux référence, tu devrais de type appelés Recorset.
Le type correct de recorset est DAO.Recordset.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed