主页

请教在VB中如何连接ACCESS数据库

whedward 2002-04-16 10:59:29

想在WIN98中做个单机版的数据库管理程序，情况如下：
程序将要安装到一个没有安装数据库（也许有）的WIN98机器中。
现在，我自已想按以下所述进行开发：
在VB6中用ACCESS设计好的数据库，并将用ODBC进行数据库联接，可是如果这样的话，那么在程序安装到目标机器后，如果要运行程序，那么将必须在目标机器中设置ODBC数据源，这样的话，很不方便，请问各位有没有办法使得在目标机器中不用设置数据源。
听说可以通过注册表来实现，可是如何实现在程序安装时自动注册数据库呢？
如果不用修改注册表的办法，那么如何得到数据源呢？或者就不能用ODBC进行联接？
这应该可以实现的，所有的商品化软件都不用到目标机上去设置ODBC数据源的呀！
如果有方法，请回贴或Email:whedward@yeah.net
谢谢！

...全文

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

_1_ 2002-04-16

别说ACCESS
别的也一样的

http://www.jinesc.com/myweb/disp.asp?idd=91&room=40

回复赞

VVV_lucky 2002-04-16

可以直接连接，方便的很

回复赞

yhy981681 2002-04-16

做成动态链接库，将数据库一起封装，再安装到目标机器，试一试

回复赞

突击召唤师 2002-04-16

楼上说得对，用jet连接就好了。

回复赞

cclx_net 2002-04-16

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim connstr As String
connstr = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\data.mdb"
conn.Open connstr
rs.open "tablename",conn,1,1

回复赞

_1_ 2002-04-16

Sub ConMdb(路径 As String, 用户名 As String, 口令 As String)
'连接 MDB
On Error GoTo Err1
Cn.ConnectionTimeout = 100
Cn.Open "DBQ=" & 路径 & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" & "Uid=" & 用户名 & ";Pwd=" & 口令 & ";"
Exit Sub
Err1:
MsgBox "连接服务器失败！请检查网络的连接是否正确"
End Sub

回复赞