Connection 对象的CommandTimeout默认值为30
你可以设小一点
你可以设小一点
解决方案 »
- 大家看看这个CSDN的博文,是不是写错了?!
- vb执行SQL INSERT语句报错问题
- vb如何判断List1为空状态?
- VB 中字符“神秘消失”
- 用Sockets的问题~~~~~求高手
- 急急在线等待, 在VB中ComboBx控件,怎么可经把鼠标右键屏蔽掉
- IE插件的问题(代码) &CLSID的设置
- 软件发布以后,有什么办法自动找到客户的安装路径
- 提问的智慧(一直没找到,今天在Java版看到了,大家看看吧)
- 前几天问了一个非常简单的问题,现在再补上一问。非常简单,欢迎回答!
- 关于删除记录的问题(只要我新增记录后 再按删除 就不行了,但刷新后就行,不可能每次都刷新吧) 请高手们来解决?
- 请问哪位做过打印处理
Dim adoConnection As New ADODB.Connection
adoConnection.ConnectionTimeout = 2
On Error Resume Next
adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=TRIATON\PSQL2KE"
If Err.Number = 0 Then
On Error GoTo 0
If adoConnection.State <> adStateClosed Then
VBA.MsgBox "OK!"
End If
Else
VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description, vbCritical
End If
Dim osqlserverdmoapp As New SQLDMO.Application
For i = 1 To osqlserverdmoapp.ListAvailableSQLServers.Count
Debug.Print osqlserverdmoapp.ListAvailableSQLServers.Item(1)
Next i
Set osqlserverdmoapp = Nothing