1180
社区成员
- 主页
连接数据库的问题！请帮助。谢谢
我想连接一个本目录底下的.mdb代码怎么写。连接后可以对数据进行操作。用dao
（即如果程序保存到c:\底下则.mdb就在c盘底下，如果程序保存到c:\test\底下则.mdb就在c:\test盘底下）
我试了很多次都不行！
万分感谢！
（即如果程序保存到c:\底下则.mdb就在c盘底下，如果程序保存到c:\test\底下则.mdb就在c:\test盘底下）
我试了很多次都不行！
万分感谢！
...全文
当前发帖距今超过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
我想这应该是你需要的
程序的目的是将字段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
......
后面的我就不知道怎么写了
万分感谢！
我想要整个连接的代码，即怎么连接数据库，连接以后可以直接用什么"**.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)
set db=opendatabase(str)
