Visual Basic versu Acces 97

Visual Basic versu Acces 97 - Programmation

Marsh Posté le 31-01-2001 à 18:08:41    

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...)
 
d'avance merci

Reply

Marsh Posté le 31-01-2001 à 18:08:41   

Reply

Marsh Posté le 31-01-2001 à 18:21:56    

via ODBC ( regarde dans l'aide ou dans la msdn en ligne


---------------
La bave du crapaud n'empèche pas la caravane de passer .
Reply

Marsh Posté le 31-01-2001 à 20:30:23    

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+

Reply

Marsh Posté le 01-02-2001 à 10:11:35    

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

Reply

Marsh Posté le 01-02-2001 à 23:30:20    

ok merci pour tout @+

Reply

Sujets relatifs:

Leave a Replay

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