Imports System.Data.SQLite
Public Class FrmSpaltenTitel

    
    Private Sub FrmSpaltenTitel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim selectFirst As Boolean = False
        Dim SQLconnect As New SQLite.SQLiteConnection()
        Dim SQLcommand As SQLiteCommand
        SQLconnect.ConnectionString = Globals.Datenbank
        SQLconnect.Open()
        SQLcommand = SQLconnect.CreateCommand
        Dim SchemaTable = SQLconnect.GetSchema(SQLiteMetaDataCollectionNames.Tables)
        Me.ListBox1.Items.Clear()
        For int As Integer = 0 To SchemaTable.Rows.Count - 1
            If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "table" Then
                Me.ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())
                selectFirst = True
            End If
        Next
        SQLcommand.Dispose()
        SQLconnect.Close()
    End Sub


    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim selectFirst As Boolean = False
        Dim ds As New DataSet
        Dim SQLconnect As New SQLite.SQLiteConnection()
        SQLconnect.ConnectionString = Globals.Datenbank
        SQLconnect.Open()
        Dim da As New SQLiteDataAdapter("", SQLconnect)
        Dim sqlcmd As New SQLiteCommand
        sqlcmd.Connection = SQLconnect
        sqlcmd.CommandType = CommandType.Text
        sqlcmd.CommandText = "Select * from " + ListBox1.SelectedItem
        da.SelectCommand = sqlcmd
        da.Fill(ds, "Daten")
        sqlcmd.Dispose()
        SQLconnect.Close()

        Dim lpdataset As New LPDataSet
        Dim lpspaltenadapter = New LPDataSetTableAdapters.spaltenTableAdapter
        Dim dbkey As New clsdbkey

        Dim i As Integer = 0
        Dim spaltenrow As LPDataSet.spaltenRow
        For Each c As DataColumn In ds.Tables(0).Columns
            spaltenrow = lpdataset.spalten.NewRow
            spaltenrow.eintragnr = dbkey.Get_NewKey("Spalten")
            spaltenrow.tabelle = ListBox1.SelectedItem
            spaltenrow.tabellenspalte = c.Caption
            spaltenrow.spalte = c.Caption
            spaltenrow.alsHacken = False
            spaltenrow.Breite = 0
            spaltenrow.Reihenfolge = 0
            spaltenrow.tiptext = ""
            spaltenrow.aktiv = True
            spaltenrow.erstellt_am = Now
            spaltenrow.mutierer = 1
            spaltenrow.mutiert_am = Now
            spaltenrow.mandantnr = 1
            spaltenrow.NumberFormat = ""
            spaltenrow._Readonly = False
            lpdataset.spalten.AddspaltenRow(spaltenrow)
            lpspaltenadapter.Update(lpdataset.spalten)
        Next

    End Sub
End Class