connect entre VB 6.0 & access & ADO 3.6

Question

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

cs_akzo · Answer

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

sportmed · Answer

Bonjour,

Merci, MR, AKZO

cs_Jack · Answer

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)

Connect entre VB 6.0 & access & ADO 3.6

3 réponses

Votre réponse

Discussions similaires