Hi All
AS always, any help gratefully received.
Just testing a ADO connection before getting too far down the line and have the following problem
When I create a recordset and loop through them, the wheels fall off at record 83 regardless of the SQL, i.e. SELECT FIRST 100... or SELECT * FROM Customer WHERE Name LIKE 'SOMETHING%', etc.
Its fine on other types of connection SQL & Advantage, just seems to be a problem with Informix.
AS always, any help gratefully received.
Just testing a ADO connection before getting too far down the line and have the following problem
When I create a recordset and loop through them, the wheels fall off at record 83 regardless of the SQL, i.e. SELECT FIRST 100... or SELECT * FROM Customer WHERE Name LIKE 'SOMETHING%', etc.
Its fine on other types of connection SQL & Advantage, just seems to be a problem with Informix.
Code:
Const EVENT_FAILED = 2
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set CnInfx = CreateObject("ADODB.Connection")
Set rc1 = CreateObject("ADODB.Recordset")
cnInfx.Open "Provider=Ifxoledbc.2;Password=Sentinel;Persist Security Info=True;User ID=SentinelUser;Data Source=isent98@ol_ukm01"
rc1.Open "SELECT ContNo, Name FROM Customer WHERE ContNo LIKE '11%';", CnInfx, adOpenStatic, adLockOptimistic
rc1.MoveFirst
For i = 1 To 100
WScript.Echo "S+ - " & i & " - " & rc1.Fields(0)& " - " & rc1.Fields(1)
WScript.Sleep(500)
rc1.MoveNext
If Err.Number <> 0 Then
WScript.Echo "Error moving to next record for Informix"
End If
Next
rc1.Close
cnInfx.Close
Set cnInfx = Nothing
Set cnADS = Nothing
Set rc1 = Nothing
Set rc2 = Nothing
SET i = Nothing