access按钮添加新记录的代码

PrivateSub添加新记录_Click()和Exit_添加新记录_Click等。access按钮添加新记录的代码为：PrivateSub添加新记录_Click()，OnErrorGoToErr_添加新记录_Click，Exit_添加新记录_Click，ExitSub，Err_添加新记录_Click，ResumeExit_添加新记录_Click。代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。

两种办法，一种是 用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

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("用户姓名")

=

Text1.Text

Adodc1.Recordset.Fields("用户密码")

=

Text2.Text

Adodc1.Recordset.Fields("用户权限")

=

1

Adodc1.Recordset.Update

Adodc1是控件的名称,这个不用说了。并且对Adodc1控件做好了如连接字符串之类的设置,在控件的属性里可以设置。

第一句向记录集添加新项

后面几句向相应字段写入数据

最后一句更新记录集

---