Probl. med RDO connection efter installation af MDAC2.6
Jeg har lige opdateret alle NT4.0 clienter med MDAC2.6. Clienterne har visual basic programmer som bruger en gammel rdo connection til en MS-SQL 7 Server.Problemet er at jeg kan lave ca 3 forespørgsler til serveren og herefter er det lige som om serveren ikke svarer længere. Der går helt op til 1 minut inden at den får resultatet af forespørgslen.
Min rdo connection ser sådan ud:
Public Function GeneralQuery(SQLstr As String) As rdoResultset
Dim rdoCn As New rdoConnection
Dim rdoCn2 As New rdoConnection
Dim rdoQy As New rdoQuery
Dim rdoRs As rdoResultset
Dim rdoCol As rdoColumn
Dim rdoEn As rdoEnvironment
On Error GoTo CnEh
Set rdoEn = rdoEnvironments(0)
With rdoCn
.Connect = gsDBConnectionString
.LoginTimeout = 60
.EstablishConnection rdDriverNoPrompt, True
rdoEn.rdoConnections.Add rdoCn
End With
With rdoQy
Set .ActiveConnection = rdoCn
.SQL = SQLstr
.LockType = rdConcurReadOnly
.CursorType = rdUseServer
End With
Set rdoQy.ActiveConnection = rdoCn
Set rdoRs = rdoQy.OpenResultset(rdOpenForwardOnly)
Set GeneralQuery = rdoRs
Exit Function
CnEh:
Dim er As rdoError
Err.Raise Err.Number, \"Xtras.GeneralSQL\" & IIf(Err.Source = \"\", \"\", \" / \") & Err.Source, Err.Description
End Function
