VB6 ADO Connection à une BD avec un TextboxRésolu

Question

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

cs_DARKSIDIOUS · Accepted Answer

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

VB6 ADO Connection à une BD avec un Textbox

1 réponse

Votre réponse

Discussions similaires