connexion base de données access 2007 et VB6

Question

Bonjour;
durant mon stage je dois effectuer un tableau de bord en utilisant access 2007 et VB6 
j'ai concu ma base de données mais j'arrive pas à me connecter à vb 
j'ai utiliser ce code la 
Public Sub Connect()
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.jet.oledb.4.0"
     cnx.ConnectionString = "C:\Users\CLIENT\FINAL"
      cn.Open
    Set rsExemple = New ADODB.Recordset
End Sub
en cochant la case de Microsoft office 12.0 access data base engine object
SVP aidez moi!!

cs_danyblue · Answer

bjr voici une code ke j'ai utilisé
mais avant tout sach ke je nè pas réussi avc 2007 dc jè converti d'abord en 2003.si sa peut t'aider tant mieux

Public Localisation As String
Public MyDB As Database     'Variable de type Base de données
Public MyWS As Workspace
Public MyRS As Recordset
Public login As String
Public password As String
Public Function initBD() As Boolean
On Error GoTo ErreurFichier
    Localisation = "C:\Danielle koh\SGBD\BD du rapport ANTIC.mdb"
    
    
OuvertureBase:
    On Error GoTo BDErrorOpen    ' Erreur d'ouverture de base de données
    
    Set MyWS = Workspaces(0)
    Set MyDB = MyWS.OpenDatabase(Localisation, False, False)
 Exit Function
    
BDErrorOpen:
    Beep
    Screen.MousePointer = 0
    MsgBox "Chemin d'accès à la base de données incorrect!" + Chr(13) + "Contactez votre Concepteur", vbExclamation
    initBD = False
    Exit Function
    
ErreurFichier:
    Screen.MousePointer = 0
    MsgBox "Erreur d'accès au fichier d'initialisation ", vbCritical
    initBD = False
End Function

Public Function recherche(table As String, champ As String) As Integer
    Dim valeur As Integer
    
    msql = "SELECT " & champ & " AS maxVal FROM " & table
    Set MyRS = MyDB.OpenRecordset(msql)
    
    If Not MyRS.EOF Then
        MyRS.MoveLast
        valeur = MyRS!maxVal
        recherche = valeur + 1
    Else
        recherche = 1
    End If
End Function

pile_poil · Answer

cnx.ConnectionString = "C:\Users\CLIENT\FINAL" 

la chaine de connexion doit être exacte et contenir, entre autres, le nom du fichier AVEC son extension 
telle que tu l'a écrite il n'y a pour VB que le répertoire 

si c'est la solution,						 penser : REPONSE ACCEPTEE

Connexion base de données access 2007 et VB6

2 réponses

Votre réponse

Discussions similaires