VB6 ADO Connection à une BD avec un Textbox [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Salut...

Je ne suis pas capable de me connecter à ma BD.

J'ai un textbox dans lequel je rentre le fichier (par exemple 36150).

Je dois donc me connecter au fichier 36150.mdb

J'ai essayer quelque truc mais je n'y arrive pas....

Voici le code que j'ai pour le moment...

Private Sub txtBD_DblClick()
On Error Resume Next
    Connection.Provider = "Microsoft.jet.OLEDB.4.0"
    
    Fichier = txtBD.Text
    Connection.ConnectionString = App.Path & Fichier & ".mdb"
    
     Connection.Open
 
    Set CoordPoint = New ADODB.Recordset
   
    CoordPoint.Open "Select * from [POINT]", Connection, adOpenDynamic, adLockOptimistic

End Sub

Merci de votre aide

1 réponse

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
118
Connection.ConnectionString = App.Path


& "" &


Fichier & ".mdb"










_


Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx


<s>
</s>