Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub CostLoop() Set g_objConn = New ADODB.Connection g_objConn.Open g_sConnectionString Set rs = New ADODB.Recordset rs.Open "tbl", g_objConn, adOpenDynamic, adLockPessimistic For iCounter1 = 1 to (...) For iCounter2 = 1 to (...) For iCounter3 = 1 to (...) ... For iCounter10 = iRecordCounter = iRecordCounter + 1 If iRecordcounter = 1 Then g_objConn.BeginTrans dOutput1 = (...) dOutput2 = (...) dOutput3 = (...) ... dOutput10 = (...) 'SETUP RECORDSET TO ADD A NEW RECORD rs.AddNew 'ASSIGN FIELDS IN TABLE rs!<columnname in table> = <value> rs!Variable1 = iCounter1 rs!Variable2 = iCounter2 rs!Variable3 = iCounter3 rs!Variable4 = iCounter4 rs!Variable5 = iCounter5 rs!Variable6 = iCounter6 rs!Variable7 = iCounter7 rs!Variable8 = iCounter8 rs!Variable9 = iCounter9 rs!Variable10 = iCounter10 rs!Output1 = dOutput1 rs!Output2 = dOutput2 rs!Output3 = dOutput3 rs!Output4 = dOutput4 rs!Output5 = dOutput5 rs!Output6 = dOutput6 rs!Output7 = dOutput7 rs!Output8 = dOutput8 rs!Output9 = dOutput9 rs!Output10 = dOutput10 'ISSUE THE ADD rs.Update If iRecordCounter = 100 Then g_objConn.CommitTrans iRecordCounter = 0 End If Next iCounter10 ... Next iCounter3 Next iCounter2 Next iCounter1 g_objConn.CommitTrans rs.Close Set rs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to measure sizes and angles in scanned images ?||3||99|
|Macro problems with Excel file||6||51|
|VB6 - Check if date format = "MM/DD/YYYY' and check if date also exist||23||77|
Join the community of 500,000 technology professionals and ask your questions.