34,874
社区成员
发帖
与我相关
我的任务
分享'连接数据库
Public Function GetConnection() As ADODB.Connection
Dim con As ADODB.Connection 'ADO连接
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB;Server=lws-db;Initial Catalog=PL2010_back;User Id=pl;PASSWORD=pluser;timeout= 0"
Set GetConnection = con
End Functionwaitfor delay '00:00:31'--等待31秒waitfor delay '00:00:30'--等待30秒Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"
Conn. Properties("Connect Timeout") = 15 '以秒为单位
Conn.open DSNtest--手动设置查询超时,可以使用以下语句:
sp_configure 'show advanced options', 1
GO
RECONFIGURE
GO
sp_configure 'query wait', 2147483647
GO
RECONFIGURE
GO timeout =60