access 2007

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

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

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

 

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

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

 

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

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 ...

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;"

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;"

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