Schwierigkeiten mit Combobox und SQLite

Hallo Ich bin Gaaanz neu ^^

und habe leider ein problem das bestimt eig keins ist
würde mich über hilfe sehr freuen

was mach ich den da falsch ? :
wen ich in der combo ne auswahl treffe bekomme ich immer die fehlermeldung Operation cannot be complete becouse the database is close

[code]Sub Change()
dim dbdatei1 as FolderItem
dbdatei1 = GetFolderItem(“E:\tool\db.sqlite”)

db = new SQLiteDatabase
db.DatabaseFile = dbdatei1

dim rs1 as RecordSet
dim value as string = artlist1.text
rs1 = db.SQLSelect (“SELECT * FROM Artikel WHERE ArtNr = ‘value’”)

DBError

while not rs1.eof
artbez.text = rs1.field(“Bezeichnung”).StringValue
rs1.moveNext
wend
rs1.close
End Sub[/code]

vielen dank schon mal im vorraus :smiley:

rs1 = db.SQLSelect ("SELECT * FROM Artikel WHERE ArtNr = '"+value+"'")

will work better

You should open database somewhere when app or window opens.

Nach:

gehört ein:

If Not db.Connect Then // Fehler beim Öffnen der Datenbank End // Datenbank geöffnet Dim rs1 As RecordSet ...

Oh wow Danke so schnelle antworten

ihr habt mir sehr geholfen es funktioniert mit euren tips :smiley:
und ich so macht lernen Spa
jetzt kann ich weiter basteln :wink:

Thanks @ all !!