一段vb程序，两个问题，一个是DataGrid的邦定，一个是连接远程数据库

Question

Dim mySql As String
    Set myConn = New ADODB.Connection
    myConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Pwd=laputa;Initial Catalog=qf_sdwj;Data Source=\\192.168.1.33\laputa;packet size=4096"
    myConn.Open
    Set myRecord = New ADODB.Recordset
    mySql = "select ID,UserName,Company,Address,Postalcode,Network,B1,ReadDate,LoginName,Password,ValidDate,pc from u_user_sdwj where " & Combo1.Text & " like '" & Trim(searchtext.Text) & "'"
    myRecord.Open mySql, myConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = myRecord
    DataGrid1.Refresh
    myConn.Close
    数据库在服务器上，我这个样子写Data Source=\\192.168.1.33\laputa访问不到数据库，想问一下，远程连接数据库怎么做。
    Set DataGrid1.DataSource = myRecord，DataGrid绑定不显示，提示实时错误“7004”，行集合不能作为标签，想请教一下DataGrid的绑定怎么写。谢谢
    我第一次用vb6写数据库程序，很多还不是很明白，请大家帮帮忙

Answer 1

试试：
myConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Pwd=laputa;Initial Catalog=qf_sdwj;Data Source=192.168.1.33;packet size=4096"

Answer 2

Set DataGrid1.DataSource = myRecord，DataGrid绑定不显示，提示实时错误“7004”，行集合不能作为标签，想请教一下DataGrid的绑定怎么写。
----------------------
绑定的代码没错，不过用DataGrid来显示数据时，需要设置客户端游标，否则会报你所描述的错误：......
myRecord.CursorLocation=adUseClient '打开记录集前先设置客户端游标
myRecord.Open mySql, myConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = myRecord
DataGrid1.Refresh
'myConn.Close      '<---------注意，这句必须注释掉，否则你是看不到数据的
......DataGrid显示数据的时候，不能把记录集关闭，也不能把数据库连接关闭，否则DataGrid不显示数据

Answer 3

谢谢，DataGrid的问题已经结决，但是连接远程数据库还是不可以的，还有什么写法么?在.net里面 Data Source=\\192.168.1.33\laputa是可以做到的 ，为什么vb不行呢？

Answer 4

建议先在系统控制面板的odbc数据源里试试连接数据库，然后参考它的连接字符串

Answer 5

Provider=SQLOLEDB.1; Data Source=server_name_or_address; Initial Catalog=database_name; User ID=username; Password=password;

Answer 6

再试：
myConn.ConnectionString = "Provider=SQLOLEDB.1;Password=laputa;Persist Security Info=False;User ID=sa;Initial Catalog=qf_sdwj;Data Source=192.168.1.33"

Answer 7

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim ConnStr, SSql As String
 Dim I As Integer
 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="\\192.168.1.1\共享文件夹名\Test.mdB" & ";Persist Security Info=False"
 'Conn.Open
Rs.CursorLocation = adUseClient
    Rs.Open "Select * From TB", ConnStr, adOpenStatic, adLockOptimistic, adCmdText

Answer 8

楼上的，搂住用的是SQL SERVER 数据库还是连接字符串的问题

Answer 9

我用Data Source=192.168.1.33\laputa成功了！呵呵，谢谢大家帮忙！