Wie ändere ich das Trennzeichen bei Datenbank-Listings
Es erscheint trotzdem das "|" als Trennzeichen, obwohl die Daten ja in der Listboxliste landen.
P.S.:
Wenn die Datenbank UTF-Daten enthält, wie bekomme ich diese dann?
Das entdeckte ich erst bei Anzeige von Umlauten.
Umleitung der Daten in ein String-Grid funktioniert (da gibt es dann keine Überschrift, nur die Daten).
Aber auch hier das Umlaut-Problem.
Code
'$DEFINE DEBUG
Declare string Datenbank
Datenbank = "C:\SQLite\Identi.db3"
var long slDLL = db("slUseDLL", "C:\SQLite\SQLite3.dll")
declare long mydb // Handle der Datenbank
declare long hGrid // Handle eines StringGrid
declare wide ws
ifnot fileexists(Datenbank)
END
else
mydb = db("slInit", Datenbank)
endif
hGrid = Create("Grid", 23, 0)
font 0
cls
Set("ListDel","°")
Set("SqlFile","C:\SQLite\Identi_TEMP_TEST.txt")
db("slSqlExec",mydb,"Select * from Identifiers where code like '%orb%' ", hGrid)
'Print "# "; &sqlcount, GetCount(0)
'Print "> "; GetString$(0,0)
'Print "> "; GetString$(0,1)
'Print "> "; GetString$(0,GetCount(0) - 1)
Print "# "; &sqlcount, GetCount(hGrid)
ws = GetString$(hGrid,0)
Print "> "; ws
ws = GetString$(hGrid,1)
Print "> "; ws
db("slDone",mydb)
WaitInput
End
ProgEnd
Alles anzeigen