Connection Access 2007

Question

Bonjour,
j'essaye de me connecter en ADO à une base Access 2007. 
Mais au lieu de se connecter sur le driver Microsoft.Jet.OLEDB.4.0 il essaye de se connecter avec un tout autre driver (sybase)

Pouvez me dire si Access 2007 utilise un nouveau driver? Et si oui pouvez vous m'indiquer lequel?
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set di = CreateObject("ADODB.connection")


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\Documents\bd1.mdb"
con.Open


Set Rs = CreateObject("ADODB.recordset")
  


Rs.Open sql, con
  
Do While Not Rs.EOF
    var1 = Rs.fields("dbo_FBLL.BLLQTE").Value

D'avance merci

Corduroy

cs_ghuysmans99 · Answer

Option Explicit

Dim Conn As New ADODB.Connection
With Conn
 .ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\Documents\bd1.mdb;Uid=Admin;Pwd=;"
'Il me semble que ta base est au format 2000-2003 (ou pire, 1997). Si c'est le cas de Access 97, migre en 2003 (ou 2000, si c'est pas possible).
'On choisit le driver en fonction du format de fichier (ou du type de serveur), et puis ADODB ne gère que ODBC.
 .Open
 Set Rs = .Execute(SQL)
End With

Dim var1 As Integer
While Not Rs.EOF
 var1 = Rs.fields("dbo_FBLL.BLLQTE").Value
 Rs.MoveNext
Wend
Rs.Close: Set Rs = Nothing

Conn.Close: Set Conn = Nothing

,

----

Syntax color by Renfield

Connection Access 2007

1 réponse

Votre réponse

Discussions similaires