Connect entre VB 6.0 & access & ADO 3.6

Signaler
Messages postés
197
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
25 janvier 2014
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,

J'ai une base de donnée :"ROSH.mdb".

-- je vous un code qui Permet, de contact avec Ma Base de donnée.


-- j'ai fait dans :"Module1":

Global DD as DataBase
Global STRDBNAME As String

3 réponses

Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
Bonjour,
Moi je procédé ainsi
Option Explicit

' état de la connection
Public Etat_Connection As Boolean
' Connection base de données
Public CnxAdo As New ADODB.Connection
' Chemin base en local 
Public CheminBase As String 



'Recupere le chemin de la base
Public Sub SetDataBasePath()
    ' Récupère le chemin
20  CheminBase = App.Path

    ' ajoute le slash(\)
30  If Not (LeftB$(CheminBase, 2) "") Then CheminBase CheminBase & ""
    ' ajoute le nom base au chemin
40  CheminBase = CheminBase & "TaBase.mdb"
50  Exit Sub


'Permet la connection a celle ci
Public Function OpenDataBase() As Boolean
 Dim Msg As String
30  CnxAdo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBase & ";Persist Security Info=False;Jet OLEDB:Database Password="&Password&""
40  CnxAdo.Open
50  OpenDataBase (Err.Number 0)
60  Etat_Connection = OpenDataBase

70  If Not Etat_Connection Then
80      Etat_ConnectLocal = 0
90      Msg = "Tentatives de connection"
100         MsgBox Msg, vbCritical Or vbOKOnly, "ECHEC Connection Base Local"
110     Else
120         Etat_ConnectLocal 1 'si ok1 pour reutiliser au cas ou
130     End If

140     Exit Function


Si tu as un souci envois moi ton mail je regarderais ca
Messages postés
197
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
25 janvier 2014
2
Bonjour,

Merci, MR, AKZO
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut

Oui, il vaut mieux utiliser ADO (ADODB) que ADO qui est vieux et périmé.
DAO fonctionne encore, mais certaines fonctions ne fonctionnent pas sans pour autant fournir d'erreur.
ADODB : Ajouter la référence à "Microsoft ActiveX Data Objects 6.1 Library" (ou 2.8)

PS : ConneXion en français

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)