Connection 对象的CommandTimeout默认值为30
你可以设小一点
你可以设小一点
解决方案 »
- VSFlexGrid选中行的问题
- VBA
- 新手请高人指点,程序运行后效果显示不出来?
- 如何实现登录中的信息比对
- Access窗体按钮问题?
- 执行"insert into 表1 select * from 表二" 时出错提示illegal use of long datatype
- 关于DataReport的高分题!如何不用数据环境而只用ADODB.Recordset而做出Group效果?
- 怎样在程序中动态注册ODBC(即在程序打包后,程序安装时生成ODBC)
- 怎么通过VB6.0或vb.net编程改变datagrid的行颜色
- printer
- 关于删除记录的问题(只要我新增记录后 再按删除 就不行了,但刷新后就行,不可能每次都刷新吧) 请高手们来解决?
- 请问哪位做过打印处理
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