Connexion Excel VBA à Access 2010

Question

J'ai une classe qui gère ma connexion à une base de données Access 2003. Je voudrais configurer la même chose seulement pour les fichiers Access 07/10 .accdb. Toute aide est appréciée! Je vous remercie!

Voici une liste de mes références et une copie de l'objet de classe

Références:

• Microsoft Access 14.0 Object Library
• Microsoft DAO 3.6 Object Library

ConnectionClass:

Option Explicit 

Private Const DbFile = "\\server\folders\Report.mdb" 
Dim OpenConn As DAO.Database 
Dim ObjAccess As Object 

Private Sub Class_Initialize() 
    On Error Resume Next 
    Set OpenConn = DAO.OpenDatabase(DbFile) 
    If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly 

    Set ObjAccess = CreateObject("Access.Application") 
    ObjAccess.Visible = False 
    ObjAccess.OpenCurrentDatabase (DbFile) 
End Sub 

Public Function runSQL(ByVal sql As String) As Recordset 
    Set runSQL = OpenConn.OpenRecordset(sql) 
End Function 

Public Function runVolumeReport(ByVal inMacro As String) 
    ObjAccess.DoCmd.RunMacro inMacro 
End Function 

Public Function closeResources() 
    Set ObjAccess = Nothing 
    OpenConn.Close 
End Function 

Answer 1

Un problème est survenu dans Class_Initialize.

On Error Resume Next 
Set OpenConn = DAO.OpenDatabase(DbFile) 
If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly 

En raison de On Error Resume Next, toute erreur autre que 3024 (« Impossible de trouver le fichier ») passera en silence et OpenConn ne sera pas défini comme vous avez l'intention. Plus tard lorsque vous essayez d'utiliser OpenConn, vous allez déclencher une autre erreur. Et, dans un commentaire, vous avez déclaré que vous obtenez une autre erreur avec cette ligne:

Set runSQL = OpenConn.OpenRecordset(sql) 

Malheureusement, en raison de On Error Resume Next, nous ne savons pas pourquoi OpenDatabase a échoué en laissant OpenConn unset. Étant donné que ObjAccess semble fonctionner en tant qu'objet d'application Access, vous pouvez essayer de définir OpenConn à ObjAccess.CurrentDb.

Private Sub Class_Initialize() 
    Set ObjAccess = CreateObject("Access.Application") 
    ObjAccess.Visible = False 
    ObjAccess.OpenCurrentDatabase DbFile 
    Set OpenConn = ObjAccess.CurrentDb 
End Sub 

OTOH, vous pouvez être en mesure de se passer entièrement OpenConn si vous changez votre fonction runSQL comme ça ...

Public Function runSQL(ByVal sql As String) As Recordset 
    'Set runSQL = OpenConn.OpenRecordset(sql) ' 
    Set runSQL = ObjAccess.CurrentDb.OpenRecordset(sql) 
End Function 

Answer 2

Une façon d'ouvrir une accdb table (SQL Server) est la suivante:

Dim cmd As New ADODB.Command 
Dim rs As ADODB.Recordset 
Dim strSQL As String 

strSQL = "select SomeStuff from SomeTable" 

cmd.ActiveConnection = CurrentProject.Connection 
cmd.CommandText = strSQL ' you can put in the SQL directly, 
         ' but I find the string easier to manipulate away from the .CommandText 
Set rs = cmd.Execute 

Mes références (Access 2010):

Je pense que l'une critique vous devrez ajouter serait Microsoft Bibliothèque ActiveX Data Objects XX

Answer 3

Imports System.Data.OleDb 

Public Class Form1 
    Dim strSQL As String 
    Dim ds As New DataSet 
    Dim strConnection As String 
    Dim DBconnection As New OleDbConnection 
    Dim oledbAdapter As New OleDbDataAdapter 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=P:\Informatica\April - Juni\Acces\db-games.accdb" 
     DBconnection = New OleDbConnection(strConnection) 
     strSQL = "SELECT * from tbl_games" 

     Try 
      DBconnection.Open() 
      oledbAdapter = New OleDbDataAdapter(strSQL, DBconnection) 
      oledbAdapter.Fill(ds) 
      DataGridView1.DataSource = ds.Tables(0) 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
     DBconnection.Close() 
    End Sub 
End Class 

Dim con As New OleDbConnection ("Provider = Microsoft. ACE.OLEDB.12.0; Source de données = P: \ Informatica \ Acces \ db_Games.accdb; Persist Security Info = False ") Dim cmd comme nouveau OleDbCommand

con.Open() 

    cmd.Connection = con 

    cmd.CommandText = "INSERT INTO tbl_gerne(Omschrijving) VALUES('adventure')" 
    cmd.ExecuteNonQuery() 

    con.Close()