伊能静老公车祸:VB出学者问

来源：百度文库 编辑：高校问答 时间：2024/04/29 06:46:21
Private Sub Form_Load()

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

'Set Connection properties

cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"

cn.ConnectionTimeout = 30

cn.Open

If cn.State = adStateOpen Then _

MsgBox "Connection to NorthWind Successful!"

cn.Close

End Sub

这段代码 那里有错呀 请高手们 指点

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.ConnectionString = "driver={sql server};server=数据库实例名;uid=用户名;pwd=密码;database=库名"

cn.ConnectionTimeout = 30

cn.Open

If cn.State = adStateOpen Then MsgBox "Connection to NorthWind Successful!"

cn.Close

cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"
如果这个数据源没错，肯定就没有错。

china_men 那个是对的!

VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 电脑出学者的问题 VISUAL FOXPRO的出学者！