Question

VB中的insert into语句

sql_xs = "insert into xiaoshou values (" & cmbType.Text & "," & cmbName.Text & "," & txtNum.Text & "," & CCur(Val(txt1.Text)) & "," & date1 & ")" '," & time1 & ")"
db.Execute (sql_xs)
执行时提示至少一个变量没有赋值，请高手帮我看下以上代码有问题吗？谢谢
我前面的'," & time1 & ")" 这是注释
不过看了你的改了好了，谢谢啊

Answer 1

INSERT INTO 语句用于向表格中插入新的行【1】，是SQL结构化查询语言INSERT命令的用法【2】。
语法：
INSERT INTO 表名称 VALUES (值1, 值2,....)我们也可以指定所要插入数据的列：
INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)
VB的代码中可使用INSERT INTO语句，通过ADO数据对象或ADODC数据控件的属性RecordSource向表格中插入新的行，或者建立新的表。【3】
参考：
【1】http://baike.baidu.com/link?url=oHjoBC0bvgq5QiF8uljRbThV7QyWnQFDrXby8CNuh91UiTk6iP12mgGQ5yVzXuO1PUToe2EHhz0m1ELgANPld_
【2】http://baike.baidu.com/link?url=NIDgwWfH7PH8MiO3DeZE5DhMT0OaAAOtejtylL4uA8Vh2DYiPrOT3Np-VkoZp8WI2j9SLrBKJqmaxMXpBL9Xf_
【3】Visual Basic 6.0 数据库开发，清华大学出版社，ISBN 7-900622-12-8，p699-724

Answer 2

insert into xiaoshou values ('" & cmbType.Text & "','" & cmbName.Text & "','" & txtNum.Text & "','" & CCur(Val(txt1.Text)) & "','" & date1 & ")" ','" & time1 & "')"
试试