Sql server 如何使用vb6将somee连接到SQL Server

我想从vb6连接到SQL Server，但我不知道代码

我的提供商“somee”给了我以下数据：

• SQL Server版本：SQL Server 2008 R2 Express
• SQL Server地址：koroikadb.mssql.somee.com
• 登录名：xxxxxx
• 登录密码：yyyyy
• 连接字符串：工作站id=koroikadb.mssql.somee.com；数据包大小=4096；用户id=xxxxxx；pwd=yyyyy；数据源=koroikadb.mssql.somee.com；持久安全信息=False；初始目录=koroikadb

---

谢谢

您很可能需要安装MDAC 2.8。（Microsoft数据访问组件） 您可以在此处下载：

安装后，在VB6 IDE中加载项目，然后单击以下内容：

项目> 添加参考资料>

检查以下各项：

Microsoft ActiveX数据对象2.8库

Microsoft ActiveX数据对象记录集2.8库

好的>

然后可以使用以下代码连接到MS-SQL数据库：

Dim MyDB As New ADODB.Connection
Dim MyRecordset as New ADODB.RecordSet
MyDB.ConnectionString = "workstation id=koroikadb.mssql.somee.com;packet size=4096;user id=xxxxxx;pwd=yyyyyy;data source=koroikadb.mssql.somee.com;persist security info=False;initial catalog=koroikadb" 
MyDB.Open
MyRecordset.Open "SELECT * FROM people",MyDB, adOpenForwardOnly,adLockReadonly
If Not MyRecordset.EOF Then
    Do
        MyRecordset.MoveNext
    Loop Until MyRecordset.EOF
End If
MyRecordset.Close
MyDB.Close
Set MyRecordset = Nothing
Set MyDB = Nothing