这个insert into有语法问题吗

[operas]

Dim con As New ADODB.Connection
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jie.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
If Text1(0).Text = "" Then
i = MsgBox("这是必填字段！", vbOKCancel, "警告")
If i = 1 Then
Text1(0).SetFocus
Else
Me.Hide
End If
Else
con.Execute ("insert into tips (no,subject,time,application,from,to,prepared_man,approved_man,prepared_time,approved_time,tel,background,action) values('" & Trim(Text1(0).Text) & "','" & Trim(Text1(1).Text) & "','" & Trim(Text1(2).Text) & "','" & Trim(Text1(3).Text) & "','" & Trim(Text1(4).Text) & "','" & Trim(Text1(5).Text) & "','" & Trim(Text1(6).Text) & "','" & Trim(Text1(7).Text) & "','" & Trim(Text1(8).Text) & "','" & Trim(Text1(9).Text) & "','" & Trim(Text1(10).Text) & "','" & Trim(RichTextBox1.Text) & "','" & Trim(RichTextBox2.Text) & "')")
MsgBox "数据添加成功！", vbOKOnly, "恭喜！"
End If

就是上面insert总是出现语法错误 ，在VB6.0中，另外一个其中有时间，但是我在access中将时间类型改为文本类型，仍然有错，感觉不是类型问题

[SQL77]

[Quote=引用楼主 operas 的帖子:]
Dim con As New ADODB.Connection
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jie.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
If Text1(0).Text = "" Then
i = MsgBox("这是必填字段！", vbOKCancel, "警告")
If i = 1 Then
Text1(0).SetFocus
Else
Me.Hide
End If
Else
con.E…
[/Quote]
将时间改为文本类型???只是需要判断一下,输入的类型可否转换成时间类型!!!ISDATE()

[lg3605119]

报啥错误？

[operas]

语法错误，我只是为了防止有时间问题干扰，才将原来的时间类型改为文本类型，也就是现在只是单纯的语法错误

但是我分析了半天也没有结果，我使用DEBUG，得到的是正确的格式呀，所以我想问大家现在到底存在什么问题？

[pt1314917]

在你的SQL语句中，有些字段名和SQL关键字相同，譬如：from,
建议将字段名用[]。如：insert into 表名(no,[from])values(..)

[pt1314917]

可以跟踪调试将得到的SQL语句放进查询分析器中运行，就知道有没问题了。

[operas]

我的是在VB下，使用access，没有SQL数据库，那个太大了没有办法

另外一个加了[]，也无法解决

[youzhj]

学而时顶之，不亦说乎！

[claro]

帮顶

[operas]

我找到了答案，谢谢pt1314917

包括前面no time application from to action 都要加，谢谢