|
Dernière réponse | |
---|---|
Sujet : [VB6] Base de données avec références DAO | |
mid | Avec ADO :
Dim Db As ADODB.Connection Dim myRs as ADODB.RecordSet Set Db = New ADODB.Connection Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=monFichier.mdb" Set myRs = New ADODB.Recordset myRs.Open "Select * from Quelquepart", Db, adOpenForwardOnly, adLockReadOnly, adCmdText If Not myRs.EOF And Not myRs.BOF Then do until myRs.eof ComboBox1.additem myRs![Champ] & "" myRs.movenext loop End if myRs.close set myRs=nothing db.close set db=nothing |
Vue Rapide de la discussion |
---|