access 2007

Question

Bonjour,
S-V-P   je souhaitrai savoire comment acceder avec VB6 a une base de donnees sous access 2007
Merci d'avance !

cs_ghuysmans99 · Answer

encore !
tout d'abord, nous allons utiliser ADODB
tu dois donc ajouter "Microsoft Active Data Objects 2.x Library" x êtant le plus grand (normallement 8)
dans un module que tu nommes Database tu mes : 

Option Explicit
Public Conn As New ADODB.Connection
Public Conn_ConnStr As String

Public Sub OpenConn(DBPath As String)
 Set Conn = New ADODB.Connection
 Conn_ConnStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DBPath & ";Uid=Admin;Pwd=Admin;PassWord=Admin;"
 Conn.ConnectionString = Conn_ConnStr
 Conn.Open
End Sub

Public Sub CloseConn()
 On Error Resume Next
 Conn.Close
 On Error GoTo 0
 Set Conn = Nothing
End Sub

cs_Exploreur · Answer

Salut  smartghost ,

Combien de fois, tu vas poser la même question ?

As-tu regardé le lien sur ma petite source bdd ? As-tu compris comment se connecter et faire des manipes sur la base de données ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_smartghost · Answer

Salut Exploreur,
mais j'ai pas bien compris votre source

cs_Exploreur · Answer

Salut Smartghost,

Pourquoi ne pas m'avoir demandé ? Je m'aurai fait un plaisir de t'aider...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_smartghost · Answer

Merci, mais tu est sur que ça marche avec une base sous access2007

cs_ghuysmans99 · Answer

OOOps ...

Option Explicit
Public Conn As New ADODB.Connection
Public Conn_ConnStr As String

Public Sub OpenConn(DBPath As String)
 Set Conn = New ADODB.Connection
 Conn_ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=X:\Database1.accdb;Persist Security Info=False;"
 Conn.ConnectionString = Conn_ConnStr
 Conn.Open
End Sub

Public Sub CloseConn()
 On Error Resume Next
 Conn.Close
 On Error GoTo 0
 Set Conn = Nothing
End Sub

Là c'est bon ...

cs_ghuysmans99 · Answer

ps: remplace


"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=X:\Database1.accdb;Persist Security Info=False;"


par


"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DbPath & ";Persist Security Info=False;"

andalo · Answer

Bonjour,


je n'ai pas encore testé le code mais ton dernier post me perturbe ghuysmans99. Pourquoi faut il mettre
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DbPath & ";Persist Security Info=False;"???
Il doit y avoir une subtilité que je ne saisie pas, d'une facon naturelle, j'aurai mis
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source= DbPath;Persist Security Info=False;"

cs_ghuysmans99 · Answer

Et ben non ... DBPath êtant la variable contenant le chemin de la base.
_______________________________________________________________________
VB.NETis good ...VB6is better

andalo · Answer

oula je rouille vite, il est temps que je m'y remette. Je viens de piger, desolé pour cet intervention des plus inutile!

Access 2007

10 réponses

Votre réponse

Discussions similaires