VBA connects Access database and Excel

Steps to connect VBA to database:

1. Create a connection object

2. Open the connection

3. Execute SQL

4. Close the connection

5. Release the connection object

Premise: in【Tools】>【Reference】ADO Library

Sub conDatabase()Dim con As ADODB.Connection 'declare object variablesSet con = New ADODB.Connection 'Create object variableThe line 'Dim con As New ADODB.Connection ' is equivalent to the above two lines'Establish a database connection'con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\test.accdb" 'connect to the access database'con.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & _ThisWorkbook.Path & "\data.xlsx"'The following is equivalent to con.OpenWith con.Provider = "microsoft.ace.oledb.12.0".ConnectionString = ThisWorkbook.Path & "\test.accdb".OpenEnd WithMsgBox "Connection succeeded"Dim sql As String'sql = "insert into check(code,year,month,day) values ​​('1','2022','1','1')"sql = "insert into m_check(m_code,m_year,m_month,m_day) values ​​(3,2022,1,1)"con.Execute (sql)con.Close 'Close the connectionSet con = Nothing 'Release the variableEnd Sub

Notes:

1. Two ways to create a connection

 Dim con As ADODB.Connection 'declare object variablesSet con = New ADODB.Connection 'Create object variable

Dim con As New ADODB.Connection ’ This line is equivalent to the above two lines

2. Two ways to open the connection

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\test.accdb" 'Connect access database

With con.Provider = "microsoft.ace.oledb.12.0".ConnectionString = ThisWorkbook.Path & "\test.accdb".OpenEnd With

VBA uses SQL to operate Excel, the method is similar to the above connection to Access operation, just change the connection string to the following:

con.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & _ThisWorkbook.Path & "\data.xlsx"