VB如何连接远程 SQLServer2000?

Question

VB如何连接远程 SQLServer2000用DAO ,ADO那种都行.请给出代码谢谢!

Answer 1

Dim MyCn As ADODB.Connection
Dim RsEmployee As ADODB.RecordsetPrivate Sub Form_Load()
Set MyCn = New ADODB.ConnectionMyCn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + “数据库用户名” + ";password='" + “数据库用户口令” + "';Initial Catalog=" + “数据库名” + ";Data Source=" + "服务起器的计算机名"Set RsEmployee = New ADODB.Recordset
RsEmployee.CursorLocation = adUseClient
RsEmployee.Open "查询语句", MyCn, adOpenStatic, adLockOptimistic
End Sub这只是一个简单示范连接语句，自己可以在此基础上扩展