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