数据库连接求教

Question

问个问题：在局域网中，有一机器名为app用户名为admin，密码为super，有一共享目录ab，其下有一数据库a.mdb。问：在vb中怎样从另一台机器上对其建立连接。

Answer 1

把ab目录在自己机器上映射为一个网络驱动器，就象使用自己机器上的a.mdb文件一样用。

Answer 2

或者用odbc也可以！不過還是要先映射這個目錄。

Answer 3

只是希望用connection语句连接，还望各位赐教

Answer 4

'*********************************************************
'用Access做后台数据库，在局域网内访问数据库中的内容的示例:   *
'author:chenyu        Email:[email protected]             *
'*********************************************************
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的。
　　"工程"－－＞“部件”－－＞“MicroSoft DataGrid Control 6.0”
示例：
Private Sub CmdOK_Click()
   Dim SQLstr As String,cnstr AS String
　 Dim cn AS New ADODB.Connection'连接对象
   Dim rs As New ADODB.Recordset'记录集对象
   cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=\\myServer\c:\inetpub\wwwroot\yourdb.mdb" '连接字符串
   cn.open' 打开数据库连接
   rs.CursorLocation =adUseClient
   sqlstr="slect * from XXX表"
   rs.open sqlstr,cn,3,3'执行SQL语句，并返回记录
   set datagrid1.datasource=rs
   datagrid1.refresh
   rs.close'关闭记录集对象
   set rs=nothing
End Sub
本示例是将数据库中的一张表的记录显示在datagrid的控件中。
注：myserver为服务器名可以为IP地址。

Answer 5

有用户名和密码的话连接字符串就用：cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=\\myServer\c:\inetpub\wwwroot\yourdb.mdb;Uid=admin;Pwd=super" 
'连接字符串
   

Answer 6

狼兄：
用cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Unm1\wu\data\workdb.mdb;User ID=admin;Password=sol"
好像不行，说：无法启动应用程序。工作组信息文件丢失，或是已被其他用户以独占方式打开

Answer 7

狼兄：
情况有变化
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=\\Unm1\wu\data\workdb.mdb;Uid=admin;Pwd=sol"
出现错误提示：找不到可插入的ISAM

Answer 8

被其他用户以独占方式打开是因为你的access数据库是以独占方式打开的。你打开access到“工具”－－＞“选项”－－＞有一项是设置打开方式的

Answer 9

狼兄：好像不是独占问题，我看了一下，是共享的
当我浏览过Unm1上的数据库后用
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=\\Unm1\wu\data\workdb.mdb“
就能打开，加了Uid=admin;Pwd=sol反而不行
本地重新启动后没浏览过那个数据库文件，怎么样都不行

Answer 10

shelley7(麒麒),是的,必须先连接到Unml机器才能用,为什么不映射一个网络驱动器呢,启动时自动连接到\\Unml\wu\data\