Advertisement
Advertisement
| 05.13.2008 at 09:32AM PDT, ID: 23398500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: |
For i = 0 To xlLastRow - 2 'Offset starts at 0, but data starts on row 2 so repeat loop until xlLastrow - 3
OracleInsert.AddNew
Call Write_Records(myDemand, rdata, i) 'WriteRecords passes parameters, Recordset - OracleInsert, range - rdata and integer - i
On Error GoTo ErrHandler:
OracleInsert.Update
Next i
MsgBox i & " record(s) uploaded to database", , "Upload"
|