Base de données avec références DAO [VB6] - Programmation
Marsh Posté le 24-04-2001 à 11:50:12
charge d'abord la librairie DAO puis utilise les nouveaux objets adéquats !
sinon, passe à ADO, DAO nest de - en - utilisé ...
bonne chasse...
Marsh Posté le 24-04-2001 à 15:58:15
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
Marsh Posté le 24-04-2001 à 09:11:24
Encore une fois j'ai besoin de votre aide !
Comment afficher les champs d'une table sous access avec VB6, en utilisant les références DAO. J'ai regardé dans le help et j'ai pensé à la DBlist, mais j'ai vraiment de la peine à l'utiliser ! Quelqu'un aurait un exemple ?
Merci !