功夫熊猫灵蛇模型:VB出学者问
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/05 10:21:45
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
'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 那个是对的!