1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

VB6 ADO Connection à une BD avec un Textbox

Résolu
cs_JeffC1977
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
 - 26 mai 2006 à 17:45
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 - 26 mai 2006 à 18:02
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

Réponse 1 / 1
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 131
26 mai 2006 à 18:02
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>
3