VBA runtime error '-2147217900 (80040e14): Automation error

Problem description: When trying to use VBA to operate the Access database for the first time, when executing the INSERT operation, an exception of "runtime error '-2147217900 (80040e14): Automation (Automation) error" occurred.

Figure 1

Sub connect()Dim con As ADODB.Connection 'declare object variablesSet con = New ADODB.Connection 'Create object variableDim sql As String'Establish a database connection'con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\test.accdb" 'connect to the access database'The following is equivalent to con.OpenWith con.Provider = "microsoft.ace.oledb.12.0".ConnectionString = ThisWorkbook.Path & "\test.accdb".OpenEnd WithMsgBox "Connection succeeded"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

Solution process:

1. Execute the following SQL in the Access SQL Query Analyzer, and the result is passed as shown in Figure 2.But VBA still doesn't pass

SQL insert into check(code,year,month,day) values ​​('1','2022','1','1')

2. Consider whether it is caused by the use of fields such as code, year, month, day, etc., so change these fields to m_code, m_year, m_month, m_day.The problem still exists.

3. Check whether there are spaces before and after the field name

4. Referring to many cases, it is not necessary to add '' (single quotation marks) when the value is found to be a number.[The field type setting is short text type], the problem is solved.Successful as shown in Figure 3

sql = "insert into m_check(m_code,m_year,m_month,m_day) values ​​(3,2022,1,1)"

Figure 2

Figure 3

Summary:

1. The database table field name cannot use keywords

2. Table fields cannot use spaces and other special characters

3. Eliminate SQL syntax errors

4. When the value is a number, single quotes should not be used, even if the table field type is a text type.

Reference:

http://cn.voidcc.com/question/p-fowngkyr-qb.html