VB insert into 的用法

'附注'后面多了个逗号。另外还要注意字段的类型，比如一般而言ID字段都是数字型的，就不能给它赋值字符串，下面的应该是正确的：

cn.Execute "insert into 客户信息表 (客户ID,公司名称,联系人姓名,公司或部门,联系地址,联系人职称,电话号码,分机,传真号码,电子邮件地址,附注) Values (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

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjc.addnew'添加一个纪录

RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值

.Update’储存赋值的新纪录

.Close 关闭连接

End With

---