用VB怎样访问远程SQL服务器的数据库

Question

If Getrigister() = 1 Then
       If m_DBServer <> "" Then
            GetConnectionString = "Provider=SQLOLEDB;Data Source=" & m_DBServer & ";User Id=LQIqsllljz;Password=llljz@23022004;Connect Timeout=3;network library=dbmssocn;Initial Catalog=LQIQS;"
        Else
            GetConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User Id=LQIqsllljz;Password=llljz@23022004;Connect Timeout=3;network library=dbmssocn;Initial Catalog=LQIQS;"
        End If    End If
    Exit Function

Answer 1

不用这样麻烦，直接用ADO控件，再用DataGrid加载显示就可以

Answer 2

Adodc1.ConnectionString="driver={SQL Server};server=服务器名;uid=sa;pwd=密码;database=数据库名"
Adodc1.RecordSource=SQL语句  '连接表

Answer 3

Dim rst As New ADODB.Recordset
    rst.Open SQL语句 , "driver={SQL Server};server=服务器名;uid=sa;pwd=密码;database=数据库名"

Answer 4

这里说明一下，不要用服务器名，远程联接的话，用IP连接最为方便
而且还有一点，连接之前，很多从SQL SERVER中试一下，看连接是否成功。
再都，SA用户，密码是必须的，否则稍微懂点数据知识的人，就可以进入你的SQL SERVER中
后果你想想吧