Dim CursorLog As Cursor
Dim i As Int
Dim commands As List
commands.Initialize
' CursorLog = Starter.SQL0.ExecQuery("Select col1,col2 from Table1")
CursorLog = Starter.SQL0.ExecQuery("SELECT id,username,booktitle,userid,isbn,date,booktime FROM bookstime")
Dim commands As List
commands.Initialize
For i = 0 To CursorLog.RowCount - 1
CursorLog.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_bookstime"
cmd.Parameters = Array(CursorLog.GetString("id"), CursorLog.GetString("username"), CursorLog.GetString("booktitle"), CursorLog.GetString("userid"), CursorLog.GetString("isbn"), CursorLog.GetString("date"), CursorLog.GetString("booktime"))
commands.Add(cmd)
Next
reqManager.ExecuteBatch(commands, "insert_bookstime")