comment transformer un connexion ODBC ADO en ADBC DAO sans controle

Question

bonjour,
j'ai un code qui fonctionne bien et qui a été fait avec l'assistant de vb6. J'ai une connexion 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 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

cs_Charlie · Answer

Allo.. j'ai aucune idée de comment DAO fonctionne mais essaie ce lien qui peut t'aider...

http://www.microsoft.com/france/outils/imprime/info.asp?mar=/FRANCE/MSDN/Technologies/technos/dataaccess/info/migration_DAO_ADO.html&css=/france/windows/ms.css&#wpmigratingopening

Comment transformer un connexion ODBC ADO en ADBC DAO sans controle

1 réponse

Discussions similaires