Imports System
Imports System.IO
Imports System.Data.Sqlite
 
Modul Versuch
 
Sub Test()
 
Dim SQLConnStr As String = "DataSource = Verbindung zur DB"
Dim SQLConn As New SQLite.SQLiteConnection(SQLConnStr)
Dim SQLComm As New SOLite.SQLiteCommand("String", SQLConn)
Dim SQLTrans As SQLite.SQLiteTransaction
Dim X As Integer
 
Dim iTime as New System.Diagnostics.Stopwatch
iTime.Start()
 
Try
   SQLComm.Connection.Open()
   SQLTrans = SQLComm.Connection.BeginTransaction()
   For X = 0 to 1000
      SQLComm.Parameters.Add("@Indx", DBType.Int32)
      SQLComm.Parameters.Add("@Sp1", DBType.String)
      SQLComm.Parameters.Add("@Sp2", DBType.String)
      SQLComm.Parameters("@Indx").Value = X
      SQLComm.Parameters("@Sp1").Value = "abcdefghijklmnop"
      SQLComm.Parameters("@Sp1").Value = "wertzuiopasdfghjklö"
      SQLComm.CommandText = "INSERT INTO TabTest VALUES(@Indx, @Sp1, @Sp2)"
      SQLComm.ExecuteNonQuery
   Next
   SQLTrans.Commit()
Catch ex as Exception
   MsgBox(ex.Message)
   SQLTrans.Rollback()
Finally
   SQLComm.Connection.Close()
End Try
 
iTime.Stop()
MsgBox(iTime.ElapsedMilliseconds)
iTime.Reset()
 
End Sub
 
End Modul