Dim cna As New ADODB.Connection
Private Sub Command1_Click()
Dim cnastring As String
cnastring = "driver={SQL sever};sever=Award;database=cool"
With cna
.connectionstring = cnastring
.connectiontimeout = 10
.open
endwith
MsgBox ("连接成功")
cna.Close
cnastring = "driver={SQL sever};sever=Award;database=cool"
cna.open cnastring
MsgBox ("连接成功2")
cna.Close
End Sub
是否是密码输入不正确或是SQL没打开？
简单！你 ：313453995 我一步一步告诉你怎么弄。
SQL的服务没开吧
工程－部件－引用－控件－micrsoft ADO。。。。。打上钩
问：登陆不了！我下载后进去登陆，成功后点连接怎么就显示登陆失败？？？
答：服务器可能没有开始测试吧 因为他是不是全天开的 所以有时候是上不去的详情>>
答：DVBH标准对时间分片、蜂窝标识和DVBH信令技术作为强制性要求必须使用，其它各技术组合是可选的详情>>
答：If Len(Inet1.OpenURL(" ")) <> 0 Or_ Len(Inet1.OpenURL(" ")) <> 0 Then MsgBox "成功...详情>>
