Easy DB Problem
Verfasst: 06.12.2004 13:11
Hi Leutz.
Hab ein kleines Problem mit der easy db lib (nicht dll). Und zwar liefert mir dieses Testprogramm jeweils das Resultat zurück. Und wenn ich den Record dann schreiben will, kommt 'ne "PureBasic Fehler in Anwendung" Fehlermeldung. Der Vorgang "written" konnte nicht auf dem Speicher durchgeführt werden.
Hier der Code:
Wie gesagt, die kritische Stelle ist das edbWriteRecord().
Hoffe ihr könnt mir helfen.
THANX!
Morty
Hab ein kleines Problem mit der easy db lib (nicht dll). Und zwar liefert mir dieses Testprogramm jeweils das Resultat zurück. Und wenn ich den Record dann schreiben will, kommt 'ne "PureBasic Fehler in Anwendung" Fehlermeldung. Der Vorgang "written" konnte nicht auf dem Speicher durchgeführt werden.
Hier der Code:
Code: Alles auswählen
#db.b=0
hosch=edbCreateNulldb("n_test.db","","")
MessageRequester("edbCreateNullDB",Str(hosch),0)
hosch=edbOpen(#db,"n_test.db","","")
MessageRequester("edbOpen",Str(hosch),0)
hosch=edbCreateAddField("DT,C,24,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("MT,C,24,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Obj,C,48,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Date,C,10,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Stand,C,48,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Stichw,C,255,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Beschr,C,255,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbCreateAddField("Name,C,48,0")
MessageRequester("edbCreateAddField",Str(hosch),0)
hosch=edbUse(#db)
MessageRequester("edbUse",Str(hosch),0)
hosch=edbAppend()
MessageRequester("edbAppend",Str(hosch),0)
hosch=edbPutIDX(1,"DVD")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(2,"Video")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(3,"Weimar")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(4,"heute")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(5,"Büro")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(6,"DVD Büro")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(7,"DVD von einem Film")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbPutIDX(8,"FilmDVD")
MessageRequester("edbPut",Str(hosch),0)
hosch=edbWriteRecord(1)
MessageRequester("edbWriteRecord",Str(hosch),0)
hosch=edbClose(#db)
MessageRequester("edbClose",Str(hosch),0)
Hoffe ihr könnt mir helfen.
THANX!
Morty