Question

怎么把数据库里的数据和VB当中的对象一个个对应起来？

计算机作业，要求使用数据库，怎么把ACCESS的表里的一项一项和VB对上呢，如果想从VB中输入信息记录到数据库又该怎么做呢？

谢谢！

Answer 1

使用ado控件，在部件中添加active data object, 然后具体自己操作了
或者
ADO代码实现。

首先需要引用 Microsoft Activex Data Objects 2.X Library 。

1、不论是读取数据还是写入数据，都要连接上数据库才行。
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String

'连接数据库
'假设ACCESS数据库文件名为test.mdb，存放在本程序目录下
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
Conn.Open strConn

2、读取数据
可以使用Rs.Open 表名称 ,Conn,1,1 返回某个表的所有记录；
也可以使用 Rs.Open strSQL ,Conn,1,1 返回符合strSQL 条件（标准的SQL语句）的记录集。

可以通过 Rs!字段名 返回某个字段的值。如：Rs!DXNR 返回当前记录字段DXNR的值。

可以使用Rs.MoveFirst移动到首记录；使用MovePrevious移动到上一条记录；使用MoveNext移动到下一条记录；使用MoveLast移动到尾记录。

3、写入记录
在打开记录集后才可以写入记录，方法是：
Rs.AddNew
Rs!字段1 = XXX
Rs!字段2 = YYY
...
Rs.Update

编辑某条记录时和添加新记录一样，只是不用写Rs.AddNew语句。

4、使用完ADO对象后一定要记着释放该变量。
Set Rs=Nothing
Set Conn=Nothing