UC知道哪位高人能帮忙写个vb6连接access数据库的程序
来源：百度知道 编辑：UC知道 时间：2024/05/22 16:07:34
比如说现在有个表名字叫aaa，他有三个字段AA，BB，CC，里面的数据如下
AA BB CC
a1 b1 c1
a2 b2 c2
a3 b3 c3
数据库用的是access2003，拜托高人帮忙写个程序，要求如下
1.连接成功
2.取出数据库中的所有记录
3.取出数据库中BB列的所有记录（就是怎么按照指定的列读取数据）
4.向数据库中写入一条新的数据 a4 b4 c4
5.更新a2 b2 c2行为a22 b22 c22
6.关闭连接
在这里先谢谢一下帮忙的高手，希望能多加点注释
AA BB CC
a1 b1 c1
a2 b2 c2
a3 b3 c3
数据库用的是access2003，拜托高人帮忙写个程序，要求如下
1.连接成功
2.取出数据库中的所有记录
3.取出数据库中BB列的所有记录（就是怎么按照指定的列读取数据）
4.向数据库中写入一条新的数据 a4 b4 c4
5.更新a2 b2 c2行为a22 b22 c22
6.关闭连接
在这里先谢谢一下帮忙的高手，希望能多加点注释
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.MDB;" '建立连接
Set RS = New Recordset
RS.Open "select * from aaa", db, adOpenStatic, adLockOptimistic '打开记录集
'==============读出所有记录==============
rs.MoveFirst
Do While Not rs.EOF
Print rs("aa"), rs("bb"), rs("cc")
rs.MoveNext
Loop
'==============读出bb列的所有内容========
rs.MoveFirst
Do While Not rs.EOF
Print rs("bb")
rs.MoveNext
Loop
'==============添加新记录===========
rs.AddNew
rs("aa") = "a4"
rs("bb") = "b4"
rs("cc") = "c4"
rs.Update
'==============更改一条记录========
rs.MoveFirst
Do While Not rs.EOF
If rs("