Sql/vb

Bonjour,

Voilà un exemple de fonction permettant la connexion à une base SQL Serveur. Il faut cocher dans les références : Microsoft ActiveX Data Objects x.x Library

Public Function BddConnection() As Boolean
Dim Cnx As ADODB.Connection
Dim CnxStrg As String

Set Cnx = New ADODB.Connection

    If Cnx.State = adStateOpen Then
       BddConnection = False
       Exit Function
    Else                       
      CnxStrg = "Provider=SQLOLEDB.1;" & _
                        "Persist Security Info=True;" & _
                        "Integrated Security=SSPI;Initial Catalog= maBase;" & _
                        "Data Source= monServeur"
           
      Cnx.ConnectionString = CnxStrg
      Cnx.CursorLocation = adUseClient
      On Error Resume Next
      Cnx.Open
         If Err.Number > 0 Or Cnx.State = adStateClosed Then
           BddConnection = False
           Exit Function
        End If

    BddConnection = True

End If
End Function

Tu peux aussi visiter le site vbFrance ou Developpez.com

;o)

Polux

Bonjour,
merci bien POLUX31

De rien, c'est avec plaisir.

Si ça règle ton problème, merci de mettre le sujet "résolu" ...

Bon courage,

;o)

Polux