' Datenbanktransaktion starten
Dim dbConn As SQLite.SQLiteConnection = _
	Super.GetDatabaseConnection
dbConn.Open()
 
Dim dbTrans As SQLite.SQLiteTransaction = _
	dbConn.BeginTransaction()
Dim dbCmd As SQLite.SQLiteCommand
 
' ...
 
' Einfache Schleife mit Daten
For Each File As FileTableRow2 In Files
 
' ...
 
dbCmd = New SQLite.SQLiteCommand("INSERT INTO fileversiontable ( fileID," & _
  "versionID, filePackage, fileSize, fileDateCreated, fileDateModified," & _
  "fileHash, fileType, fileStatus ) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ? )", _
  dbConn, dbTrans)
 
dbCmd.Parameters.AddWithValue("fileID", filePackage.Item("fileID")).DbType = _
  DbType.Int32
dbCmd.Parameters.AddWithValue("versionID", newVersionID).DbType = DbType.Int32
dbCmd.Parameters.AddWithValue("filePackage", filePackage.Item( _
  "filePackage")).DbType = DbType.Int32
dbCmd.Parameters.AddWithValue("fileSize", fileInfo.fileSize).DbType = _
DbType.Double
dbCmd.Parameters.Add("fileDateCreated", DbType.Date).Value = _
fileInfo.fileDateCreated
dbCmd.Parameters.Add("fileDateModified", DbType.Date).Value = _
fileInfo.fileDateModified
dbCmd.Parameters.AddWithValue("fileHash", fileInfo.fileHash).DbType = _
DbType.String
dbCmd.Parameters.AddWithValue("fileType", filePackage.Item("fileType")).DbType _
= DbType.Double
dbCmd.Parameters.AddWithValue("fileStatus", 1).DbType = DbType.Double
 
dbCmd.ExecuteNonQuery()
 
' ...
 
Next