[VB6] Base de données avec références DAO

Base de données avec références DAO [VB6] - Programmation

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 !

Reply

Marsh Posté le 24-04-2001 à 09:11:24   

Reply

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...

Reply

Marsh Posté le 24-04-2001 à 14:46:13    

Sinon d'autres infos ?

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed