怎样用VB连接局域网中电脑上的数据库（access,sql,dbf),

Question

怎样用VB连接局域网中电脑上的数据库（access,sql,dbf),几种格式都可以，高手帮忙
怎么写连接字符串啊（三种都说明）

Answer 1

你应该使用C/S架构的数据库服务器，例如SQL Server, Oracle或者DB2。基于文件的数据库访问很容易造成数据库损坏。参考http://support.microsoft.com/kb/300216/

Answer 2

access(必须把数据库所在的文件夹共享):
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\服务器名\共享目录名\数据库名.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\服务器名\共享目录名\数据库名.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient '设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

对SQL Server数据库
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation = adUseClient '设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 4

access的跟本机差不多，只是把路径改下就可以了，不过放数据库的计算机要共享该数据库

Answer 5

严重支持  jiangsheng(蒋晟.MSMVP2004Jan) ( ) 
“基于文件的数据库访问很容易造成数据库损坏”，尤其在初期设计时一定要慎重
前车之鉴啊

Answer 6

ACCESS共享时如果是XP系统要注意设置成完全共享,如果只读共享数据将无法进行写操作
还有建议C/S结构不要使用ACCESS数据库,使用删除记录操作的时候很容易破坏数据库

Answer 7

你可以用ODBC，这样你就不需要知道数据库格式