您的位置：程序门 -> vb ->

菜鸟问题：vb+access 用dao方法

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

菜鸟问题：vb+access 用dao方法[已结贴,结贴人:wk123yh]

发表于：2007-10-24 04:08:09 楼主

我是一个vb新手，现在想做一个vb连接数据库的程序，用dao方法。
比如我现在有一个fst.mdb数据库文件，里面有一个名为“biao”的表，
在这个表你有“first”“second”“third”三个字段。
现在我想知道的是怎么给这些字段添加值，读取值。读取到一个变量里面就行。

发表于：2007-10-24 04:12:321楼得分:0

不一定要用dao了，其他方法也行，不过最好有详细一点的注释，谢谢啦！

发表于：2007-10-24 08:24:092楼得分:0

兄弟，起得够早啊，还是一夜没睡？
等会儿我整理一下，给你发上来啊

发表于：2007-10-24 08:44:553楼得分:20

我是用的ado,首先引用 microsoft activex dataobjects 2.8library
和 microsoft activex dataobjects 2.8library

以下是代码：
dim str as string
dim con as new adodb.connection
dim rst as new adodb.recordset

dim str_first as string
dim str_second as string
dim str_third as string

str = "provider=microsoft.jet.oledb.4.0;data source=d:\lala\db2.mdb;persist security info=false"
'数据库连接字符串
con.open str ' 打开access数据库

str = "select first,second,third from biao"
rst.open str, con ' 打开记录集

do until rst.eof
str_first = rst!first '将字段值读入变量中
str_second = rst!second
str_third = rst!third
rst.movenext
loop

rst.close '关闭记录集

rst.open str, con, adopenkeyset, adlockoptimistic '打开用于更新的记录集，注意adopenkeyset, adlockoptimistic 两个参数。

rst.addnew '向表中添加数据
rst!first = ""
rst!second = ""
rst!third = """"
rst.update

rst.close '
con.close '关闭数据库

其他资讯