VB6 ADO Condition lorsque que la connection est faite au fichier MDB

Question

Salut... 

J'utilise ADO et j'aimerais que lorsque je suis connectéàu fichier mdb (Acces) un label est modifié


Comment je peux dire


"If ma connection est faire Alors....."

merci d'avance

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
   
    CoordPointX.Open "Select * from [POINT]", Connection, adOpenDynamic, adLockOptimistic
    CoordPointY.Open "Select * from [POINT]", Connection, adOpenDynamic, adLockOptimistic



'    If Connection.Open = True Then
'        lblConnection.Caption = "Connecté au fichier MDB"
'    End If


End Sub

PCPT · Answer

salut,
pas essayé mais cette syntaxe fonctionne pour MySql ....

'If Connection.Open = True Then
'    lblConnection.Caption = "Connecté au fichier MDB"
'End If

If Connection.State = adStateOpen Then _ 
    lblConnection.Caption = "Connecté au fichier MDB"

++
PCPT   [AFCK]

VB6 ADO Condition lorsque que la connection est faite au fichier MDB

1 réponse

Votre réponse

Discussions similaires