用INSERT INTO 向ACCESS数据库插入记录报错

tubu2018

Sub 连接数据库01()

Dim conn As ADODB.Connection
Dim conn1 As New ADODB.Connection

Set conn = New ADODB.Connection
'Set conn1 = New ADODB.Connection

conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\学生管理.accdb"
'           
'conn1.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\数据.xlsx"
Dim spl As String
spl = "insert into 1(院系号,院系名,电话)value('A001','经管系','666')"
conn.Execute (spl)'运行到这里总是报错：说insert into 语句语法错误
conn.Close
Set conn = Nothing
End Sub
请各位老师给小弟指点，

tubu2018

C:\Documents and Settings\Administrator\桌面\11000111.PNG

tubu2018

老上传不了图片及附件

huang1314wei

你写的这个SQL语句在access里面能运行不？自己试一下就知道了

tubu2018

huang1314wei
我是初学的看一个EXCEL VBA +ACCESS的教学视频，照样画的葫芦的。还请您指点详细点

huang1314wei

tubu2018 发表于 2018-7-24 08:44
huang1314wei
我是初学的看一个EXCEL VBA +ACCESS的教学视频，照样画的葫芦的。还请您指点详细点

论坛发贴请带上附件，不要只发代码上来，只看代码没有附件支撑，看代码能看出什么问题？

tubu2018

谢谢huang1314wei，我终于找到问题的所在，原来是VALUES,少了个“S”，以后遇到问题要一个一个关键词看一次。。

魂断蓝桥

spl = "insert into 1(院系号,院系名,电话) values('A001','经管系','666')"