Hallo Klaus
Ich steh' schon mal wieder auf dem Schlauch. Dabei ist mein Problem ganz simpel: Ich habe 2 Spinner-Views, wobei der zweite Spinner von der Eingabe des ersten abhängig ist. Zuerst suche ich alle bestehenden Datenbanken (.db) und übertrage sie in die Liste des ersten Spinners. Wenn die Datenbank ausgesucht ist, kann ich die zweite Spinnerliste mit allen in der Datenbank vorhandenen Tabellennamen füllen.
Aber ich kann anstellen, was ich will, ich komme schlicht und ergreifend nicht zur Auswahl der Datenbank. Wenn ich aber keine Datenbank angebe, kann ich auch keine Tabelle finden und meine Query geht den Bach runter.
Ich habe alle Views im Designer vorgenommen und so sehen die Codings aus - Ist ziemlich viel, aber das Abspecken ist so eine Sache, vielleicht werfe ich etwas Entscheidendes raus:
Sub DBTableEntry
Dim DBList As List
Dim Query1 As String
Dim Cursor1 As Cursor
DBList.Initialize()
DBList = File.ListFiles (File.DirAssets)
DBList.Sort(True)
spnDatabase.Color = Colors.Yellow
spnDatabase.TextColor = Colors.RGB (0,0,0)
spnDatabase.TextSize = 10
spnDatabase.Prompt = "Datenbank"
If DBList.Size > 1 Then
For i = 0 To DBList.Size - 1
FileName = DBList.Get(i)
If FileName.EndsWith(".db") Then
spnDatabase.Add (FileName)
Log(FileName)
DBFileName = FileName
End If
Next
End If
End Sub
Sub spnDatabase_Itemclick (Position As Int, Wert As String)
Dim cursor1 As Cursor
Dim TableName As String
DBFileName = Wert
spnTableName.Color = Colors.Yellow
spnTableName.TextColor = Colors.RGB(0,0,0)
spnTableName.TextSize = 10
spnTableName.Prompt = "Tabelle"
cursor1 = SQLDatabase.ExecQuery ("SELECT name FROM sqlite_master WHERE type = 'table'")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
TableName = cursor1.getstring("name")
spnTableName.Add (TableName)
Log (TableName)
Next
cursor1.Close
End Sub
Sub spnTableName_Itemclick (Position As Int, Wert As String)
DBTableName = Wert
End Sub
Ich steh' schon mal wieder auf dem Schlauch. Dabei ist mein Problem ganz simpel: Ich habe 2 Spinner-Views, wobei der zweite Spinner von der Eingabe des ersten abhängig ist. Zuerst suche ich alle bestehenden Datenbanken (.db) und übertrage sie in die Liste des ersten Spinners. Wenn die Datenbank ausgesucht ist, kann ich die zweite Spinnerliste mit allen in der Datenbank vorhandenen Tabellennamen füllen.
Aber ich kann anstellen, was ich will, ich komme schlicht und ergreifend nicht zur Auswahl der Datenbank. Wenn ich aber keine Datenbank angebe, kann ich auch keine Tabelle finden und meine Query geht den Bach runter.
Ich habe alle Views im Designer vorgenommen und so sehen die Codings aus - Ist ziemlich viel, aber das Abspecken ist so eine Sache, vielleicht werfe ich etwas Entscheidendes raus:
Sub DBTableEntry
Dim DBList As List
Dim Query1 As String
Dim Cursor1 As Cursor
DBList.Initialize()
DBList = File.ListFiles (File.DirAssets)
DBList.Sort(True)
spnDatabase.Color = Colors.Yellow
spnDatabase.TextColor = Colors.RGB (0,0,0)
spnDatabase.TextSize = 10
spnDatabase.Prompt = "Datenbank"
If DBList.Size > 1 Then
For i = 0 To DBList.Size - 1
FileName = DBList.Get(i)
If FileName.EndsWith(".db") Then
spnDatabase.Add (FileName)
Log(FileName)
DBFileName = FileName
End If
Next
End If
End Sub
Sub spnDatabase_Itemclick (Position As Int, Wert As String)
Dim cursor1 As Cursor
Dim TableName As String
DBFileName = Wert
spnTableName.Color = Colors.Yellow
spnTableName.TextColor = Colors.RGB(0,0,0)
spnTableName.TextSize = 10
spnTableName.Prompt = "Tabelle"
cursor1 = SQLDatabase.ExecQuery ("SELECT name FROM sqlite_master WHERE type = 'table'")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
TableName = cursor1.getstring("name")
spnTableName.Add (TableName)
Log (TableName)
Next
cursor1.Close
End Sub
Sub spnTableName_Itemclick (Position As Int, Wert As String)
DBTableName = Wert
End Sub
Last edited: