Hallo,
ich spiele ja gerade ein bisschen mit SQLite und MySQL herum. Nun wollte ich meine SQLite-DB nach MySQL migrieren.
Das Problem ist, dass ich nur ca. 1000 Datensätze rüber bekomme und dann ist plötzlich Schluss.
Kann mir jemand auf die Sprünge helfen?
ich spiele ja gerade ein bisschen mit SQLite und MySQL herum. Nun wollte ich meine SQLite-DB nach MySQL migrieren.
Das Problem ist, dass ich nur ca. 1000 Datensätze rüber bekomme und dann ist plötzlich Schluss.
Kann mir jemand auf die Sprünge helfen?
VB.NET-Quellcode
- Public DB_Name As String = "`" & Form1.schema & "`.`" & Form1.table & "`"
- Public DB_Name_SQLite As String = Form1.DB_SQLite
- Public AnzahlDatensaetze As Integer
- Public conn As New MySqlConnection
- Public cmd As New MySqlCommand
- Public datareader As MySql.Data.MySqlClient.MySqlDataReader
- Public adapt As New MySql.Data.MySqlClient.MySqlDataAdapter
- Public sqlite_conn As Data.SQLite.SQLiteConnection
- Public sqlite_cmd As SQLiteCommand
- Public sqlite_datareader As SQLiteDataReader
- Public sqladapt As New Data.SQLite.SQLiteDataAdapter
- Public Sub MySQL2SQLite()
- Dim i As Integer
- connect_db()
- sql_connect_db()
- sqlite_cmd.CommandText = "SELECT count(*) FROM " & DB_Name_SQLite & ";"
- Try
- sqlite_cmd.ExecuteNonQuery()
- Catch ex As Exception
- MessageBox.Show("Es wurde ein Fehler festgestellt:" & vbCrLf & vbCrLf & ex.Message, "SQL-Test", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- AnzahlDatensaetze = CInt(sqlite_cmd.ExecuteScalar())
- sqlite_cmd.CommandText = "SELECT ID,Maschine,Zählerstand,Zeitstempel FROM " & DB_Name_SQLite & ""
- Dim test As SQLiteDataReader = sqlite_cmd.ExecuteReader
- While (test.Read())
- cmd.CommandText = "INSERT INTO " & DB_Name & " (`ID`, `Maschine`, `Zählerstand`, `Zeitstempel`) VALUES ('" & test.GetValue(0) & "' , '" & test.GetValue(1) & "' , '" & test.GetValue(2) & "', '" & test.GetValue(3) & "'); "
- cmd.ExecuteNonQuery()
- End While
- disconnect_db()
- sql_disconnect_db()
- End Sub
