如何连接局域网中的数据库呀？帮帮忙！

Question

我用的是vb6.0，数据库是sql server 2000 服务器IP:192.168.0.1 uid=sa password=password 数据库名是database1 请各位大哥帮忙要连接上代码该怎么写呀？可不可以用adodc呀？

Answer 1

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    'Access 2000的連接
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
    'SQL Server2000的連接
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 2

有關連接數據庫：
ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
或者
ConnectionString = "driver={SQL Server};server=yang;uid=sa;pwd=;ConnectionTimeout=0;database=northwind"
遠程的
ConnectionString = "driver={SQL Server};server=218.62.*.* ;uid=sa;pwd=;ConnectionTimeout=0;database=northwind"

Answer 3

hdhai9451
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
这句什么意思呀？怎么提示出错呀？

Answer 4

出错可能是你没有添加对ADO的引用吧？

Answer 5

现在有这么一个问题，我的程序在我自己的电脑上能连上1号电脑的数据库，这说明连接局域网中的数据库没有问题的，但是在2号电脑(没有安装sql server 2000)上却连不上1号的数据库和我电脑上的数据库！提示 [DBNMPNTW]Connectionopen(creatFile())错误