Public Sub Schreibe_Tabelle(DB As String, Tabelle As String, DT As DataTable)
      Dim sw = Stopwatch.StartNew
      SetVorgang("schreibe Tabelle " & DT.TableName.ToString)
      Using Conn As New SQLiteConnection("Data Source=" & DB & ";Version=3"), _
            Cmd As New SQLiteCommand("SELECT * FROM  '" & Tabelle & "'", Conn), _
            myAdapter As New SQLiteDataAdapter(Cmd), _
            cb As New SQLite.SQLiteCommandBuilder(myAdapter)
         Conn.Open()
         myAdapter.Update(DT)
      End Using
      Debug.Print("Sub Schreibe_Tabelle für Tabelle {0} benötigt {1}" & _
        "Millisekunden", DT.TableName, sw.ElapsedMilliseconds)
   End Sub

   Public Sub Schreibe_Tabelle(DB As String, Tabelle As String, DT As DataTable)
      Dim sw = Stopwatch.StartNew
      SetVorgang("schreibe Tabelle " & DT.TableName.ToString)
      Using Conn As New SQLiteConnection("Data Source=" & DB & ";Version=3"), _
            Cmd As New SQLiteCommand("SELECT * FROM  [" & Tabelle & "]", Conn), _
            myAdapter As New SQLiteDataAdapter(Cmd), _
            cb As New SQLite.SQLiteCommandBuilder(myAdapter)
         Conn.Open()
         myAdapter.Update(DT)
      End Using
      Debug.Print("Sub Schreibe_Tabelle für Tabelle {0} benötigt {1}" & _
        "Millisekunden", DT.TableName, sw.ElapsedMilliseconds)
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 02.12.13 um 12:07:48 editiert.