您所在位置：主题：请教一个数据库与VB连接的问题，我是菜鸟。
hai101
[专家分：80] 发布于 2005-04-20 22:30:00
练习一程序：
Option Explicit
Dim objRS As Recordset
Private Sub Form_Load()
Dim objCn As New connection
With objCn
.provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=;Data Source=(HAIBIN);" & _
"Initial Catalog=实例1库"
.Open
End With
Set objRS = New Recordset
With objRS
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Open "SELECT * FROM 测试表", objCn
Set .ActiveConnection = Nothing
End With
objCn.Close: Set objCn = Nothing
txtUserName = objRS.Fields("用户名").Value
txtPassword = objRS.Fields("口令").Value
txtMsg = objRS.AbsolutePosition & "/" & objRS.RecordCount
End Sub
[font=宋体][/font]
出现：实时错误 ‘-2147467259 （80004005）’
[DBNETLIB][cONNECTIONoENOpen (connect()).]未找到的SQL Server.
HAIBIN 是我注册服务器的名称，在编辑属性中看到密码：***********，不知是什么无法变成WINDOWS 登录，请教高手了。谢谢。
