Question

vb如何添加信息到access数据库~?

我的数据库的模块部分是这样的~
Public cn As ADODB.Connection '用于建立数据库连接
Public rs As ADODB.Recordset '用于保存数据库中的信息记录

Function dy()
Set cn = New ADODB.Connection '实例化连接对象
Set rs = New ADODB.Recordset '实例化记录集
With cn '建立数据库库连接
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/CRM.mdb;Persist Security Info=False"
.Open
End With
rs.LockType = adLockOptimistic '开放式记录锁定(提供者使用开放式锁定，只在调用 Update 方法时锁定记录。)
rs.CursorLocation = adUseClient '指定使用由本地游标库提供的客户端游标
End Function
rs.addnew和rs.update中间的语句的形式是什么~
可不可以举点实列~~？？？
急用了~谢谢先
rs("字段名1")=你要写入的值
这个值我是要用text来输入是否就是text1.text这种样式?
字段名1是否要进行定义??字段名1它的样式是什么了?比如我的access表里有公司名称一项,在字段名是怎么样来表示的?能具体一点吗?

Answer 1

rs.addnew

rs("字段名1")=你要写入的值
rs("字段名2")=你要写入的值

rs.update

是的。就是那样的。text1.text

你在设计表的时候不是要设计很多字段吗？这些字段你要命名的啊。。
rs("公司名称")=text1.text
就是这个意思。也就是把text1.text增加到该字段。。其实用VB加跟access里加是一个道理。只不过vb的界面友好些。