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

whedward 2002-04-16 10:59:29
想在WIN98中做个单机版的数据库管理程序,情况如下:
程序将要安装到一个没有安装数据库(也许有)的WIN98机器中。
现在,我自已想按以下所述进行开发:
在VB6中用ACCESS设计好的数据库,并将用ODBC进行数据库联接,可是如果这样的话,那么在程序安装到目标机器后,如果要运行程序,那么将必须在目标机器中设置ODBC数据源,这样的话,很不方便,请问各位有没有办法使得在目标机器中不用设置数据源。
听说可以通过注册表来实现,可是如何实现在程序安装时自动注册数据库呢?
如果不用修改注册表的办法,那么如何得到数据源呢?或者就不能用ODBC进行联接?
这应该可以实现的,所有的商品化软件都不用到目标机上去设置ODBC数据源的呀!
如果有方法,请回贴或Email:whedward@yeah.net
谢谢!
...全文
13 点赞 收藏 8
写回复
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
回复
tony_jian 2002-04-16
access可以不用
回复
xhema1980 2002-04-16
大部分安装程序制作软件都可以自动设置数据源,如InstallShield,SetupFactory等.另外也可以在注册表中修改,具体位置为:
HKEY_LOCAL_MACHINE\Software\odbc
回复
发动态
发帖子

1180

社区成员

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