probleme de connection a ma BDD

Question

alors voila ce que j'ai mis dans mon form:

Call module1.ConnectionBase("C:\sonde_tps.mdb")

et j'ai cr&#233;e se module:





Public cnx As New ADODB.Connection

Private URL_BASE As String



Public Sub ConnectionBase(ByVal CheminBase As String)



Dim ChaineConnection As String



If CheminBase <> vbNullString Then URL_BASE = CheminBase



On Error GoTo erreur



ChaineConnection = "provider=microsoft.jet.oledb.4.0;datasource=" & URL_BASE



cnx.Open ChaineConnection



Exit Sub





erreur:

If cnx.State Then cnx.Close

MsgBox "errueur de connection &#224; votre base de donn&#233;e" & vbCrLf & URL_BASE, vbCritical



End Sub



le probleme c'set que l'orsque je lance mon porgramme, il me dit : errueur de connection &#224; votre base de donn&#233;e.......



comment pourraisje faire pour eviter cette erreur? et pour pouvoir me connecter a ma base de donnee???



Merci d'avance 



Baptiste

jbbordas87 · Answer

bon apres plusieur heure de recherche je n'ai toujours pas resolue mon porbleme mais j'ai changer completement ma fonction:





Public Function ConnectionBase() As Boolean

'On Error GoTo Err_ConnStrait

Dim Cnx As New ADODB.connection

Dim strConn As String



    ConnStrait = False

   

    ' Initialise la chaine de connexion

    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\sonde_tps.mdb"



   

    ' v&#233;rifie que la connexion est bien ferm&#233;e

    If Cnx.State = adStateOpen Then

     MsgBox "la connection etait ouverte:"

    Cnx.Close

    End If

   

    ' Connexion &#224; la base de donn&#233;e

    MsgBox "on se connecte:"

    Cnx.Open ConnectionString:=strConn

   

    ' Attente jusqu'&#224; la connexion effective

    While (Cnx.State = adStateConnecting)

    MsgBox "entrain de se connecter"

    DoEvents

    Wend

   

    ' V&#233;rification des erreurs eventuelles ou attribution de la valeur "True" &#224; la connexion

    If Cnx.Errors.Count > 0 Then

        MsgBox "erreur l'ors de l'atribution de la valeur true"

        ConnStrait = False

        Exit Function

    Else:

        MsgBox "la connection set ouverte:"

        ConnStrait = True

    End If

    Exit Function



Err_ConnStrait:

    MsgBox "erreur inconue survenue"

        ConnStrait = False

        Exit Function

End Function





bon alors qhand je lance mon programme voila ce qu'il s'affiche avec toutes les texbox que j'ai mise:



1er textbox: on se connect

2nd texbox: la connection est ouverte (il est passer dans la condition
que tout c'est bie passer donc normalement ConnStrait doit etre =true)

la troisiemme textbox n'est pas sur ici, elle se trouve sur ma form
principal et affiche la valeur de connstrait:   Faux

Alors ma base de donner est elle connecter ou pas? et si oui pourquoi alors constraint me renvoi faux dans ma form prinsipal???



merci d'avance a ceux qu'ils veulent bien essayer de m'aider



baptiste

Probleme de connection a ma BDD

1 réponse

Discussions similaires