连接数据库的问题!请帮助。谢谢

crinoid 2002-05-18 12:51:21
我想连接一个本目录底下的.mdb代码怎么写。连接后可以对数据进行操作。用dao
(即如果程序保存到c:\底下则.mdb就在c盘底下,如果程序保存到c:\test\底下则.mdb就在c:\test盘底下)
我试了很多次都不行!
万分感谢!
...全文
5 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
footballboy 2002-05-18
app.path & "\abc.mdb"
回复
wiely 2002-05-18
最好的办法建立一个数据环境,然后调用数据库,很方便。
回复
panxuejian 2002-05-18
假定数据库名是:abc.mdb,路径自定义 ,表名是F 字段是ZD
程序的目的是将字段ZD里的数据添加到列表框LIST1中

private command1_click()
public Path as string
public DB as database
public Rst as recordset

if right(app.path,1)="\" then
Path=app.path
else
Path=app.path & "\"
endif

set db=opendatabasE(path & "abc.mdb")
set rst=db.openrecordset("select * from f")
with rst
if .recordcount>0 then
do while not .eof
list1.additem .field("zd")
.movenext
loop
endif
end with
end sub
我想这应该是你需要的
回复
gpo2002 2002-05-18
G:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\SAMPLES\VB98\visdata
回复
crinoid 2002-05-18
谢谢各位了
请帮忙!
回复
crinoid 2002-05-18
谢谢楼上的,楼上的楼上的!!!
我想要整个连接的代码,即怎么连接数据库,连接以后可以直接用什么"**.recordset.movenext"等操作纪录。
dim myds as database
dim myws as workspace
......
后面的我就不知道怎么写了
万分感谢!
回复
NFDSOFT 2002-05-18
if right(app.path,1)="\" then str=app.path+"abc.mdb" else str=app.path+"\abc.mdb"

set db=opendatabase(str)
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告