A、B机联网的局域网里，A机上如何用VB写一个窗体登录到B的SQL Server？

Question

就像在A计算机里，打开SQL Server2000的查询分析器，选择“B机”，填写用户名“sa”，密码“sa”一样可以进入B机的SQL Server？谢谢先！

Answer 1

写过一个类似的,以下代码可以调出数据库连接生成窗体,ADO那种
请你先引用Microsoft OLE DB Service Component 1.0 Type Library
Dim DataLink As MSDASC.DataLinks
Dim sConnect As StringOn Error Resume Next
Set DataLink = New MSDASC.DataLinks
sConnect = DataLink.PromptNew
Set DataLink = Nothing
If sConnect = "" Then Exit SubMsgBox sConnect
If MsgBox("您真的要把你的数据库设置更改吗？ " & _
    "一旦更改数据完整性可能被破坏！", vbQuestion + _
    vbYesNo, MsgCaption) = vbNo Then Exit Sub
Call WriteINI("DATABASE", "ConnString", sConnect, SettingFile)
ConnString = sConnect
Set Conn = Nothing
Set Conn = New ADODB.Connection
Conn.ConnectionString = sConnect
Conn.Open

Answer 2

Dim adoConnection As ADODB.Connection
Dim strCon As string 
Dim strServer As String
Dim strUserName As String  '数据库用户名
Dim strPassword As String  '数据库密码
Dim strDBName As String  '数据库名
Dim strServer As String  '服务器名 此处为"B"set adoConnection = Noting
set adoConnection = New ADODB.ConnectionstrCon="Provider=SQLOLEDB.1;Persist Security Info=False;User ID _
=" & strUserName & ";pwd=" & strPassword ";Initial Catalog=" & strDBName _
 & ";Data Source=" & strServer
adoConnection.Open strCon要先引用ado

Answer 3

Dim adoConnection As ADODB.Connection
set adoConnection = New ADODB.ConnectionadoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;
User ID = 登录B机的用户名;PassWord=登录B机的密码;Initial Catalog=B机上的数据库名;Data Source="=B机名或IP"

Answer 4

Dim adoConnection As ADODB.Connection
set adoConnection = New ADODB.ConnectionadoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;
User ID = 登录B机的用户名;PassWord=登录B机的密码;Initial Catalog=B机上的数据库名;Data Source=B机名或IP"