大家来看看我这段代码。

tracykobe 2002-07-27 02:03:19

Private Sub Cmdadd_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=chadata;uid=sa;psw=123"
cn.Open
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "insert into data(编号,日期,数量) values('"&text1.text%"',Private Sub Cmdadd_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=chadata;uid=sa;psw=123"
cn.Open
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "insert into data(编号,日期,数量) values('"&text1.text&"','&text2.text&','"&text3.text&"')"
cmd.Execute
End Sub

其中编号、日期、数量分别是文本、日期、数字类型。数据库用的是sqlserver
老是报缺少语句结束。哪位能帮帮我。

...全文

32 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

footballboy 2002-07-27

打赏
举报

我上面cn.ConnectionString = "dsn=chadata;uid=sa;psw="
漏了123,改为cn.ConnectionString = "dsn=chadata;uid=sa;psw=123"

footballboy 2002-07-27

打赏
举报

Private Sub Cmdadd_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=chadata;uid=sa;psw="
cn.Open
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "insert into data(编号,日期,数量) values('" & Text1.Text & "','" & Text2.Text & "'," & CLng(Text3.Text) & ")"
cmd.Execute
End Sub

tracykobe 2002-07-27

打赏
举报

也不能通过。

manmanchong 2002-07-27

打赏
举报

如果还不行，你到查询分析器里执行看看，看能不能过，我觉得sql语句没有写错啊！

shoulders 2002-07-27

打赏
举报

cmd.CommandText = "insert into data(编号,日期,数量) values('" & text1.text & "','" & text2.text & "','" & text3.text& "')"同上

manmanchong 2002-07-27

打赏
举报

把这条语句
cmd.CommandText = "insert into data(编号,日期,数量) values('"&text1.text&"','&text2.text&','"&text3.text&"')"

修改如下：
cn.execute "insert into data(编号,日期,数量) values('" & text1.text & "','" & text2.text & "','" & text3.text& "')"

tracykobe 2002-07-27

打赏
举报

还是同样的错误。

wordsgolden 2002-07-27

打赏
举报

就是以上！

footballboy 2002-07-27

打赏
举报

cmd.CommandText = "insert into data(编号,日期,数量) values('" & text1.text & "','" & text2.text & "','" & text3.text & "')"

jyu1221 2002-07-27

打赏
举报

把这条语句
cmd.CommandText = "insert into data(编号,日期,数量) values('"&text1.text&"','&text2.text&','"&text3.text&"')"

修改如下：
cmd.CommandText = "insert into data(编号,日期,数量) values('" & text1.text & "','" & text2.text & "','" & text3.text& "')"

tracykobe 2002-07-27

打赏
举报

重贴一下。
Private Sub Cmdadd_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=chadata;uid=sa;psw=123"
cn.Open
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "insert into data(编号,日期,数量) values('"&text1.text&"','&text2.text&','"&text3.text&"')"
cmd.Execute
End Sub

其中编号、日期、数量分别是文本、日期、数字类型。数据库用的是sqlserver
老是报缺少语句结束。哪位能帮帮我。