bonjour,
j'ai un code qui fonctionne bien et qui a été fait avec l'assistant de vb6. J'ai une connxion ODBC sur la base de données Criteria. le mode ADO n'est pas supporté. donc je dois le faire avec DAO et sans controle car les requetes sont assez élaborées.
donc j'ai ici le bout de code qui devrait fonctionner en ADO mais je n'arrive pas à le mettre en DAO. Dans les exemples on utilise toujours ACCESS avec le chemin (c:\...) mais avec ODBC ???
je sais qu'il faut ajouter la référence Microsoft DAO 3.51 Object Library mais apres???
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=Test;uid=ADMIN;pwd=;database=filaos;"
Set adoPrimaryRS = New Recordset
' on utilise une variable car la table commence par un numeriq et qu'il faut donc ajouter des " " mais ca coupe la requete donc chr$(34)
table_arti = Chr$(34) + "01ARTI" + Chr$(34)
adoPrimaryRS.Open "select ARTI_CODE,ARTI_NOM from " + table_arti + " Order by ARTI_CODE", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS
mbDataChanged = False
End Sub
C'est urgent et je patine desssus depuis plusieurs jours
si quelqu'un peut me venir en aide
merci