问个简单的问题

Question

Private Sub Command1_Click()
 Dim conn As ADODB.Connection
 Dim sql As String
 Dim addr As String
 Dim sbmc As String
 Dim yzqk As String
 Dim gzdd As String
 Dim jksbgzjl As String
 Dim fssj As String
 Dim zcsj As String
 Dim clqk As String
 Dim fzr As String
 Set conn = New ADODB.Connection 
 constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\fxj\VB\rizhi.mdb;Persist Security Info=False"
 conn.ConnectionString = constr
 conn.Open constr
 addr = Me.Text1(1).Text
ssbmc = Me.Text1(2).Text
 yzqk = Me.Text1(3).Text
 gzdd = Me.Text1(4).Text
 jksbgzjl = Me.Text1(5).Text
 fssj = Me.Text1(6).Text
 zcsj = Me.Text1(7).Text
 clqk = Me.Text1(8).Text
 fzr = Me.Text1(9).Text
 sql = "insert into jk(地点,设备名称,运转情况,故障地点,监控设备故障记录,发生时间,正常时间,处理情况,负责人,) values ('" + addr  "','" sbmc + "','"  yzqk + "','"  gzdd + "','"  jksbgzjl + "','"  fssj + "','"  zcsj + "','"  clqk + "','"  fzr + "',)"
 
 conn.Execute sql
 
  他提示我SQL语句不对,怎么写SQL的格式

Answer 1

大概看了一下，字符串格式有不少错误：
1。每个嵌入的变量两侧都要有运算符
2。vb中字符串连接符我用 &
3。最后多了个逗号
先修改如下：
sql = "insert into jk(地点,设备名称,运转情况,故障地点,监控设备故障记录,发生时间,正常时间,处理情况,负责人,) values ('" & addr &  "','" & sbmc & "','" & yzqk & "','" & gzdd & "','" & jksbgzjl & "','" & fssj & "','" & zcsj & "','"  & clqk & "','" & fzr & "')"

Answer 2

还是不行,提示 "insert into 语句的语法错误",我试了一下,插入第一个"地点"就可以，加上后面的就提示错误了

Answer 3

sql = "insert into jk(地点,设备名称,运转情况,故障地点,监控设备故障记录,发生时间,正常时间,处理情况,负责人) values ('" & addr &  "','" & sbmc & "','" & yzqk & "','" & gzdd & "','" & jksbgzjl & "','" & fssj & "','" & zcsj & "','"  & clqk & "','" & fzr & "')"“负责人”后的逗号与最后一个右括号前的逗号都不要

Answer 4

楼上的正解，以后这么长的语句分段写，好检查
在程序调适中在sql后面加一个断点，程序运行到此了之后。在下面的立即窗口打入  ？sql  按回车就会显示这个sql的语句，好好检查一下就能看出不对了

Answer 5

sql = "insert into jk(地点,设备名称,运转情况,故障地点," _
&"监控设备故障记录,发生时间,正常时间,处理情况,负责人)" _
&" values ('" & addr &  "','" & sbmc & "','" & yzqk & "','" _
& gzdd & "','" & jksbgzjl & "','" & fssj & "','" & zcsj & "','" _
 & clqk & "','" & fzr & "')"呵呵，这样写怎样？