Wrox Home  
Search P2P Archive for: Go

  Return to Index  

activex_data_objects thread: 80040e25


Message #1 by "Josh Bailey" <djbailey@l...> on Wed, 30 May 2001 16:48:17
Here is my code



    

Set cn = New ADODB.Connection

cn.Open "Connection String"    

Set rs = New ADODB.Recordset

rs.Open "Select * from TABLE", cn, adOpenDynamic, adLockBatchOptimistic



I then open a log file and parse out the info i need to put into the rs. 

Here is that code.



            rs.AddNew

           

                rs("entryTimeStamp") = sTimeStamp

                rs("Table") = sTable

                rs("DestinationsRouter") = sDestinationRouter

                rs("SentRecords") = lSentRecords

                rs("TotalRecords") = lTotalRecords

                rs("OldestTimeStamp") = sOldestTimeStamp

                rs("NewestTimeStamp") = sNewestTimeStamp

                rs("AverageTimeStamp") = dAverageTimeStamp

                rs("HiMinuteDiff") = dHiMinuteDiff

                rs("SendTime") = dSendTime

            

            rs.Update



I successfully go through the loop once but on the second time through it 

tells me all HROWS need to be released. How does one release all HROWS 

while still writing to the DB?



Thanks In Advance

Josh Bailey
Message #2 by Thomas Bellavia <TBellavia@V...> on Thu, 31 May 2001 16:03:12 -0400
Are you missing a Movenext() somewhere?



-----Original Message-----

From: Josh Bailey [mailto:djbailey@l...]

Sent: Wednesday, May 30, 2001 12:48 PM

To: ActiveX_Data_Objects

Subject: [activex_data_objects] 80040e25





Here is my code



    

Set cn = New ADODB.Connection

cn.Open "Connection String"    

Set rs = New ADODB.Recordset

rs.Open "Select * from TABLE", cn, adOpenDynamic, adLockBatchOptimistic



I then open a log file and parse out the info i need to put into the rs. 

Here is that code.



            rs.AddNew

           

                rs("entryTimeStamp") = sTimeStamp

                rs("Table") = sTable

                rs("DestinationsRouter") = sDestinationRouter

                rs("SentRecords") = lSentRecords

                rs("TotalRecords") = lTotalRecords

                rs("OldestTimeStamp") = sOldestTimeStamp

                rs("NewestTimeStamp") = sNewestTimeStamp

                rs("AverageTimeStamp") = dAverageTimeStamp

                rs("HiMinuteDiff") = dHiMinuteDiff

                rs("SendTime") = dSendTime

            

            rs.Update



I successfully go through the loop once but on the second time through it 

tells me all HROWS need to be released. How does one release all HROWS 

while still writing to the DB?



Thanks In Advance

Josh Bailey



Message #3 by "Bailey, Josh" <DJBailey@L...> on Thu, 31 May 2001 16:50:08 -0400
I figured it out.



This adLockBatchOptimistic should have been Pessimistic.



-----Original Message-----

From: Thomas Bellavia [mailto:TBellavia@V...]

Sent: Thursday, May 31, 2001 4:03 PM

To: ActiveX_Data_Objects

Subject: [activex_data_objects] RE: 80040e25





Are you missing a Movenext() somewhere?



-----Original Message-----

From: Josh Bailey [mailto:djbailey@l...]

Sent: Wednesday, May 30, 2001 12:48 PM

To: ActiveX_Data_Objects

Subject: [activex_data_objects] 80040e25





Here is my code



    

Set cn = New ADODB.Connection

cn.Open "Connection String"    

Set rs = New ADODB.Recordset

rs.Open "Select * from TABLE", cn, adOpenDynamic, adLockBatchOptimistic



I then open a log file and parse out the info i need to put into the rs. 

Here is that code.



            rs.AddNew

           

                rs("entryTimeStamp") = sTimeStamp

                rs("Table") = sTable

                rs("DestinationsRouter") = sDestinationRouter

                rs("SentRecords") = lSentRecords

                rs("TotalRecords") = lTotalRecords

                rs("OldestTimeStamp") = sOldestTimeStamp

                rs("NewestTimeStamp") = sNewestTimeStamp

                rs("AverageTimeStamp") = dAverageTimeStamp

                rs("HiMinuteDiff") = dHiMinuteDiff

                rs("SendTime") = dSendTime

            

            rs.Update



I successfully go through the loop once but on the second time through it 

tells me all HROWS need to be released. How does one release all HROWS 

while still writing to the DB?



Thanks In Advance

Josh Bailey




  Return to Index