求延长excel等待数据库返回数据时间的vba语句

excel_cjx

<p>我通过vba 调用sql server服务器数据来做报表，目前遇到一个问题：</p><p>excel 等待数据库返回的时间太短，</p><p>如果该查询语句在sql上运行超过 excel 等待时间，将出现如下类似超时引起的提示：</p><p>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</p><p>运行时错误 '-2147217887 (80040e21)';</p><p>多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。</p><p>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</p><p>有没有延长excel等待数据库返回数据时间的vba语句，请各位帮忙</p><p><br/>以下是连接数据库的方式<br/>Dim cnnConnect As ADODB.Connection<br/>Dim rstRecordset As ADODB.Recordset<br/>Set cnnConnect = New ADODB.Connection</p><p>cnnConnect.Open Lj<br/>Set rstRecordset = New ADODB.Recordset<br/>rstRecordset.Open _<br/>&nbsp;&nbsp;&nbsp; Source:=l, _<br/>&nbsp;&nbsp;&nbsp; ActiveConnection:=cnnConnect, _<br/>&nbsp;&nbsp;&nbsp; CursorType:=adOpenDynamic, _<br/>&nbsp;&nbsp;&nbsp; LockType:=adLockReadOnly, _<br/>&nbsp;&nbsp;&nbsp; Options:=adCmdText<br/>With Sheet1.QueryTables.Add( _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Connection:=rstRecordset, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Destination:=Sheet1.Range("a"))<br/>&nbsp;&nbsp;&nbsp; .Name = "Contact List"<br/>&nbsp;&nbsp;&nbsp; .FieldNames = True<br/>&nbsp;&nbsp;&nbsp; .RowNumbers = False<br/>&nbsp;&nbsp;&nbsp; .FillAdjacentFormulas = False<br/>&nbsp;&nbsp;&nbsp; .PreserveFormatting = True<br/>&nbsp;&nbsp;&nbsp; .RefreshOnFileOpen = False<br/>&nbsp;&nbsp;&nbsp; .BackgroundQuery = False<br/>&nbsp;&nbsp;&nbsp; .RefreshStyle = xlInsertDeleteCells<br/>&nbsp;&nbsp;&nbsp; .SavePassword = False<br/>&nbsp;&nbsp;&nbsp; .SaveData = False<br/>&nbsp;&nbsp;&nbsp; .AdjustColumnWidth = False<br/>&nbsp;&nbsp;&nbsp; .RefreshPeriod = 0<br/>&nbsp;&nbsp;&nbsp; .PreserveColumnInfo = False<br/>&nbsp;&nbsp;&nbsp; .Refresh BackgroundQuery:=False<br/>End With<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.Range("a").QueryTable.Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>rstRecordset.Close<br/>cnnConnect.Close<br/>Set rstRecordset = Nothing<br/>Set cnnConnect = Nothing</p>