connexion à une BD avec VB6

Question

je veux cr&#233;er une interface graphique avec vb 6 permettant de me connecter &#224; une base de donn&#233;es.au fait il me faut passer par 1 DNS.et je dispose de 2 bases de donn&#233;es. une sous access et l'autre sql

Tuning Max · Answer

Voilà une fonction que j'ai créé dans un module
************************* Start Code *****************************************
Public Function ConnDNS(NomDuDNS As String, UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String

    ConnectionDNS = False
                            ' Nom que vous avez donné à votre DNS lorsque vous l'avez créé
    NomDuDNS = "XXXXXX"     ' dans l Administrateur de Sources de données (ODBC)
                            ' du Panneau de configuration de Microsoft Windows
                            
    ' initialise la chaine de connexion
    strConn = "DNS=" & NomDuDNS & ";"
    
    ' vérifie que la connexion est bien fermée
    If Cnx.State = adStateOpen Then
    Cnx.Close
    End If
    
    ' Connexion à la base de donnée
    Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
    
    ' Attente jusqu'à la connexion effective
    While (Cnx.State = adStateConnecting)
    DoEvents
    Wend
    
    ' Vérification des erreurs eventuelles ou attribution de la valeur "True" à la connexion
    If Cnx.Errors.Count > 0 Then
        MsgBox Cnx.Errors.Item(0)
        ConnStrait = False
        Exit Function
    Else:
        ConnStrait = True
    End If
    Exit Function
Err_ConnStrait:
    MsgBox err.Description
        ConnStrait = False
        Exit Function
End Function
**************************** End Code **************************************

Paladin2107 · Answer

MaBase.Open "Provider=sqloledb;" & _
           "Data Source=" & NomServeur & ";" & _
           "Initial Catalog=" & NomBase & ";" & _
           "User Id=NomBase;" & _
           "Password=MDP"

Couscous

Tuning Max · Answer

Oui Couscous, mais là tu n'utilise pas de DNS prédéfinis. Et bidossessy demandé une connexion par DNS

Tuning Max · Answer

J'ai corrigé le code, j'avais été un peu vite dans mon copier/coller

Public Function ConnDNS(NomDuDNS As String, UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String

    ConnDNS = False
                            ' Nom que vous avez donné à votre DNS lorsque vous l'avez créé
    NomDuDNS = "XXXXXX"     ' dans l Administrateur de Sources de données (ODBC)
                            ' du Panneau de configuration de Microsoft Windows
                            
    ' initialise la chaine de connexion
    strConn = "DNS=" & NomDuDNS & ";"
    
    ' vérifie que la connexion est bien fermée
    If Cnx.State = adStateOpen Then
    Cnx.Close
    End If
    
    ' Connexion à la base de donnée
    Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
    
    ' Attente jusqu'à la connexion effective
    While (Cnx.State = adStateConnecting)
    DoEvents
    Wend
    
    ' Vérification des erreurs eventuelles ou attribution de la valeur "True" à la connexion
    If Cnx.Errors.Count > 0 Then
        MsgBox Cnx.Errors.Item(0)
        ConnDNS = False
        Exit Function
    Else:
        ConnDNS = True
    End If
    Exit Function
Err_ConnStrait:
    MsgBox err.Description
        ConnDNS = False
        Exit Function
End Function

Connexion à une BD avec VB6

4 réponses

Discussions similaires