杭州交通信息网郁达夫中学的校长是谁:如何用vb连接SQL Server的非默认实例？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 22:28:08
我安装了WINCC（一个组态软件）带的SQL server2000，server名是 计算机名\WINCC。经上网查询知道 计算机名\WINCC 是非默认实例。
以下是我编的vb连接程序，但总是产生错误。
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim sql As String
Dim sc As String
Private Sub Form_Load()
Set cn = New ADODB.Connection
sc = "provider=SQLOLEDB.1;perstlist Security Info=true;User ID=sa;Password=;Initial Catalog=pubs;Data Source=FELIX\WINCC"
cn.Open sc
sql = "select * from authors"
Set rs = cn.Execute(sql)
End Sub
错误为：login failed for sa
请问如何改正？？
多谢！
我问的并不是数据显示的问题，而是vb和数据库连接的问题。
谢谢
以下是我编的vb连接程序，但总是产生错误。
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim sql As String
Dim sc As String
Private Sub Form_Load()
Set cn = New ADODB.Connection
sc = "provider=SQLOLEDB.1;perstlist Security Info=true;User ID=sa;Password=;Initial Catalog=pubs;Data Source=FELIX\WINCC"
cn.Open sc
sql = "select * from authors"
Set rs = cn.Execute(sql)
End Sub
错误为：login failed for sa
请问如何改正？？
多谢！
我问的并不是数据显示的问题，而是vb和数据库连接的问题。
谢谢
一般有两种方式显示数据
1)绑定控件
2)通过Recordset对象的fields属性
例如想要将一个Recordset对象的数据显示在一个表格控件里(MSHFLexGrid控件名字叫Grid)
用第一种方式可以这么写
Set Me.Grid.DataSource = recordset.DataSource
用第二种方式可以这么写(只显示第一列)
Grid.Rows = recordset.RecordCount
Do Until recordset.EOF
Grid.TextMatrix(i, 0) = recordset.Fields(0).Value
recordset.MoveNext
i = i + 1
Loop
是不是已经更改了SA的默认密码了
看你的问题，好像是用户和密码错误的问题