Connexion a une base de donnee access ?!?

Question

J'essaye de lire le contenu d'une base de donnee et ca ne marche pas pourquoi ?
J'ai bien coche --> Microsoft ActiveX Data Objects 2.1 Library

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Davide\Vb\colle_ref.mdb"
conn.Open

  
Set rs = New ADODB.Recordset
Set rs conn.Execute("SELECT Dec_contractant FROM Ref_Dec_Cont WHERE Dec_Id_Cont 1")

Text1.Text = rs.Fields("Dec_contractant").Value

End Sub

-->erreur<--

ADO n'a pas pu trouvé le fournisseur specifier

philg42 · Answer

-------------------------------
 Réponse au message :          
-------------------------------

J'essaye de lire le contenu d'une base de donnee et ca ne marche pas pourquoi ?
J'ai bien coche --> Microsoft ActiveX Data Objects 2.1 Library

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Davide\Vb\colle_ref.mdb"
conn.Open

  
Set rs = New ADODB.Recordset
Set rs conn.Execute("SELECT Dec_contractant FROM Ref_Dec_Cont WHERE Dec_Id_Cont 1")

Text1.Text = rs.Fields("Dec_contractant").Value

End Sub

-->erreur<--

ADO n'a pas pu trouvé le fournisseur specifier

--------------------------------------
essai le code suivant
command1_click
  dim conn as new adodb.connection
  dim rs as new adodb.recordset

     adodb.connectstring=  "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Davide\Vb\colle_ref.mdb"

  conn.Open
  rs.activeconnection = conn

ey ensuite tu met ton code de gestion de données

LeTof · Answer

-------------------------------
 Réponse au message :          
-------------------------------

-------------------------------
 Réponse au message :          
-------------------------------

J'essaye de lire le contenu d'une base de donnee et ca ne marche pas pourquoi ?
J'ai bien coche --> Microsoft ActiveX Data Objects 2.1 Library

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Davide\Vb\colle_ref.mdb"
conn.Open

  
Set rs = New ADODB.Recordset
Set rs conn.Execute("SELECT Dec_contractant FROM Ref_Dec_Cont WHERE Dec_Id_Cont 1")

Text1.Text = rs.Fields("Dec_contractant").Value

End Sub

-->erreur<--

ADO n'a pas pu trouvé le fournisseur specifier

--------------------------------------
essai le code suivant
command1_click
  dim conn as new adodb.connection
  dim rs as new adodb.recordset

     adodb.connectstring=  "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Davide\Vb\colle_ref.mdb"

  conn.Open
  rs.activeconnection = conn

ey ensuite tu met ton code de gestion de données

-----------------------------------------------
je pense que ton prb est que ta base est une version différente de la chaine de connection que tu lui demande essaie plutôt :
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Davide\Vb\colle_ref.mdb"

mic · Answer

Dans le Module "Main" :
Public db As Connection
Public Conec As String, Conec2 As String
Public nombase As String, passbase As String, adoChaine As String

Sub Main()

    passbase="" 
    nombase="c:\Davide\Vb\colle_ref.mdb"

    Load formeMain
    formeMain.Show

    
End Sub

Proc à Appler depuis la Form qui doit se connecter...
"formeMain" dans l'exemple.

Sub OpenBase()

On Error GoTo ErrOpen

'

    'OUVERTURE DE LA BASE...
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Mode = adModeShareDenyNone
    
    
    Conec = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51"
    Conec = Conec & ";Data Source=" & nombase
    Conec = Conec & ";Jet OLEDB:Database Password=" & passbase & ";"
    db.Open (Conec)
               
               
    Me.MousePointer = vbDefault
        

Exit Sub
ErrOpen:

    If Err.Number = -2147467259 Then    'OUVERTURE DE LA BASE...
        Set db = New Connection
        db.CursorLocation = adUseClient
        db.Mode = adModeShareDenyNone
        
        
        
        Conec = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0"
        Conec = Conec & ";Data Source=" & nombase
        Conec = Conec & ";Jet OLEDB:Database Password=" & passbase & ";"
        db.Open (Conec)
                   
                   
        Me.MousePointer = vbDefault
            
    
    Else
        mess = MsgBox(Err.Description, vbCritical, Err.Number)
    End If
   
End Sub

matpal · Answer

Ce n'est pas une reponse mais plutot une question: As tu resolu ton probleme car j'ai le meme et je voudrais bien ta solution ;-))
Une autre question ( car je suis plus que debutant en vb!!!): On met toujours la même chose dans provider="......" ??
Merci d'avance pour ta reponse

Connexion a une base de donnee access ?!?

4 réponses

Discussions similaires