Question

vb sql insert into 语句语法错误 求解

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
datafile = App.Path & "\数据库.mdb"
cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & datafile
cn.Open
sql = "insert into 临时用表 (序号,名称) valuess (5, 4)"
cn.Execute sql
cn.Close
End Sub

数据都是数字型
如果是字符串型呢？如果是变量呢，该怎么写啊

Answer 1

sql = "insert into 临时用表 (序号,名称) valuess (5, 4)"

改为
sql = "insert into 临时用表 (序号,名称) values (5, 4)"

如果是字符型：
sql = "insert into 临时用表 (序号,名称) values ('abbbccc', 'fgkhkljl')"

如果是变量：
a=5
b=4
sql = "insert into 临时用表 (序号,名称) values (" & a & ", " & b & ")"

Answer 2

valuess写错了，应该是values。

如果是字符串型变量（比如序号=a,名称=b）：sql = "insert into 临时用表 (序号,名称) values ('“ & a & "', '"b & "')"

Answer 3

****这句*****
Set
rs
=
DataEnvironment1.Connection1.Execute(sql,
,
adCmdText)
这种写法用于返回记录集，执行操作查询应改为下列写法
****改为*****
DataEnvironment1.Connection1.Execute
sql