Excel Daten von SQL Server - Immer das 30 Sekunden TimeOut

28/07/2009 - 11:24 von Roland Schumacher | Report spam
Hallo

Ich muss Daten in ein Excel laden wo das Query auf dem SQL Server
erwiesenermaßen lànger als 1.5 Minuten hat.
Excel moniert aber IMMER nach 30 Sekunden ein Timeout. Das ist ja Standard.
Ich kann im Connectstring das Timeout àndern oder im ADODB.Connection. Aber
es ist immer 30 Sekunden. Egal was ich dort angebe.
Es ist auch egal in welcher Office Version. Ich habe es auch auf
verschiedenen PC's versucht.
Immer nach 30 Sekunden. Ich kenne keine Stelle mehr wo man ein Connection
Timeout angeben könnte.

Hier mein Code.
[...]
Sub LoadStoredProcedure()

On Error GoTo ErrorHandler

Dim m_Connection As ADODB.Connection
Dim m_Command As ADODB.Command
Dim m_Recordset As ADODB.recordSet
Dim m_DatenStartRange As Range
Dim m_DatumRange As Range
Dim m_Datum As Date
Dim m_ConnectionString As String

m_ConnectionString = "Provider=SQLOLEDB.1;Connect Timeout=
120;Server=Server\Instanz;Database=Datenbank;Uid=User;Pwd=Password"

' m_Connectionection-Objekt erstellen
Set m_Connection = New ADODB.Connection

' Verbindungszeichenfolge und Provider zuweisen, dann die Verbindung
öffnen
m_Connection.Open m_ConnectionString

Set m_DatenStartRange = ThisWorkbook.Worksheets("Daten").Range("a6")
Set m_DatumRange = ThisWorkbook.Worksheets("Daten").Range("c1")
m_Datum = m_DatumRange.Value

Set m_Recordset = m_Connection.Execute(GetQuerry(m_Datum))

m_Recordset.Close
m_Connection.Close

Exit Sub

ErrorHandler:

MsgBox Err.Description

End Sub
[...]

Wo muss ich schrauben dass das TimeOut nicht mehr nach 30 Sekunden kommt?

Das tut nicht: "m_ConnectionString = "Provider=SQLOLEDB.1;Connect Timeout=
120;Server ..."
Das auch nicht: "m_Connection.CommandTimeout = 120"

Gruss
Roland Schumacher alias GENiALi
http://blog.geniali.ch/
http://jotd.geniali.ch/
 

Lesen sie die antworten

#1 Roland Schumacher
28/07/2009 - 11:52 | Warnen spam
Hallo

Habs per Zufall gefunden.
Ich muss nur das Select an das m_Command binden und DORT das CommandTimeout
setzen. Dann tut es.

m_Command.CommandText = GetQuerry(m_Datum)
m_Command.CommandTimeout = 900
m_Command.ActiveConnection = m_Connection

Gruss
Roland Schumacher alias GENiALi
http://blog.geniali.ch/
http://jotd.geniali.ch/

"Roland Schumacher" schrieb im
Newsbeitrag news:
Hallo

Ich muss Daten in ein Excel laden wo das Query auf dem SQL Server
erwiesenermaßen lànger als 1.5 Minuten hat.
Excel moniert aber IMMER nach 30 Sekunden ein Timeout. Das ist ja
Standard.
Ich kann im Connectstring das Timeout àndern oder im ADODB.Connection.
Aber es ist immer 30 Sekunden. Egal was ich dort angebe.
Es ist auch egal in welcher Office Version. Ich habe es auch auf
verschiedenen PC's versucht.
Immer nach 30 Sekunden. Ich kenne keine Stelle mehr wo man ein Connection
Timeout angeben könnte.

Hier mein Code.
[...]
Sub LoadStoredProcedure()

On Error GoTo ErrorHandler

Dim m_Connection As ADODB.Connection
Dim m_Command As ADODB.Command
Dim m_Recordset As ADODB.recordSet
Dim m_DatenStartRange As Range
Dim m_DatumRange As Range
Dim m_Datum As Date
Dim m_ConnectionString As String

m_ConnectionString = "Provider=SQLOLEDB.1;Connect Timeout=
120;Server=Server\Instanz;Database=Datenbank;Uid=User;Pwd=Password"

' m_Connectionection-Objekt erstellen
Set m_Connection = New ADODB.Connection

' Verbindungszeichenfolge und Provider zuweisen, dann die Verbindung
öffnen
m_Connection.Open m_ConnectionString

Set m_DatenStartRange = ThisWorkbook.Worksheets("Daten").Range("a6")
Set m_DatumRange = ThisWorkbook.Worksheets("Daten").Range("c1")
m_Datum = m_DatumRange.Value

Set m_Recordset = m_Connection.Execute(GetQuerry(m_Datum))

m_Recordset.Close
m_Connection.Close

Exit Sub

ErrorHandler:

MsgBox Err.Description

End Sub
[...]

Wo muss ich schrauben dass das TimeOut nicht mehr nach 30 Sekunden kommt?

Das tut nicht: "m_ConnectionString = "Provider=SQLOLEDB.1;Connect
Timeout= 120;Server ..."
Das auch nicht: "m_Connection.CommandTimeout = 120"

Gruss
Roland Schumacher alias GENiALi
http://blog.geniali.ch/
http://jotd.geniali.ch/

Ähnliche fragen