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

[crinoid]

我想连接一个本目录底下的.mdb代码怎么写。连接后可以对数据进行操作。用dao
（即如果程序保存到c:\底下则.mdb就在c盘底下，如果程序保存到c:\test\底下则.mdb就在c:\test盘底下）
我试了很多次都不行！
万分感谢！

[NFDSOFT]

if right(app.path,1)="\" then str=app.path+"abc.mdb" else str=app.path+"\abc.mdb"

set db=opendatabase(str)

[crinoid]

谢谢楼上的，楼上的楼上的！！！
我想要整个连接的代码，即怎么连接数据库，连接以后可以直接用什么"**.recordset.movenext"等操作纪录。
dim myds as database
dim myws as workspace
......
后面的我就不知道怎么写了
万分感谢！

[crinoid]

谢谢各位了
请帮忙！

[gpo2002]

G:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\SAMPLES\VB98\visdata

[panxuejian]

假定数据库名是：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
我想这应该是你需要的

[wiely]

最好的办法建立一个数据环境，然后调用数据库，很方便。

[footballboy]

app.path & "\abc.mdb"