Dim Db As ADODB.Connectionss Dim myRs as ADODB.RecordSetss Set Db = New ADODB.Connectionss Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=monFichier.mdb"ss Set myRs = New ADODB.Recordsetss myRs.Open "Select * from Quelquepart", Db, adOpenForwardOnly, adLockReadOnly, adCmdTextss If Not myRs.EOF And Not myRs.BOF Thenss ssssdo until myRs.eofss ComboBox1.additem myRs![Champ] & ""ss myRs.movenextss ssssloopss End ifss myRs.closess set myRs=nothingss db.closess set db=nothingss
Projet/référence ---> Microsoft Activex Data objets 2.1 Library
Sylderon
Si Access est installé sur la machine (et doit y rester) utilise Microsoft DAO 3.51 en référence de ton projet VB6.
Sinon utilise la bibl Microsoft ADO 2.1 (si je ne m'abuse).
C'est plus facile à utiliser que ODBC car orienté Access.
Une fois la bibl choisie, tu auras accès aux déclarations des objets de ces bibl (tables, recordset,...) et tu pourras accéder à ta base.
Utilise l'explorateur d'objets (F2) pour regarder ce qu'il y a dans la bibl choisie.
A+
Lord II
via ODBC ( regarde dans l'aide ou dans la msdn en ligne
westside
voilà je voudrais pouvoir acceder a ma base access 97 avec VB 6 cependant je ne connais pas les commandes pis la procedure a suivre alors si vous avez des info n'hesitez pas. (site internet, doc, etc...)
