ich versuche mich etwas in die easyDB (libary nicht die dll) einzuarbeiten. Dazu habe ich die Demo von Galaxy etwas aufgebröselt. An folgendem Problem bleibe ich hängen:
Mit edbput möchte ich die DB erweitern. Die Anzahl der Rekords erhöht sich auch, aber das was ich zum Testen mit edbPut hineinschreibe, finde ich mit der Suchfunktion nicht wieder (die funktioniert aber!). Im großen und ganzen habe ich das Programm von Galaxy bisher so gelassen.
Code: Alles auswählen
daten.l = edbOpen(1,GetPath() + "wort.db","","")
;........................................................................................
Repeat
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadgetID()
;...................................................................
Case #Suchen ;Button Suchen
suchenach$ = GetGadgetText(#Suchen_Eingabe) ;suche in der DB nach dem wort ""
filter$ = "" ;kein Filter (Feld Name oder auch INDEX)
suchtype.b = 2 ;der Typ ist 2 für die Suche
startrec.l = 1 ;beginn der suche bei Datensatz nummer 1
anzahlrec.l = 0 ;NULL bedeutet, durchsuche alle Datensätze,
gefunden.w = 0
;suche alle vorkommen in der DB, wo "staedte" enthalten ist ....
AddGadgetItem(#Listview_0, 0, "Suche Nach: " + suchenach$)
Gosub SucheInDB
;...................................................................
Case #End ;Programmende
End
;...................................................................
Case #info
info$ = edbGetInfoH("$dbFName,1")
SetGadgetText(#FelderInDB,info$ )
info$ = edbGetInfoH("$dbFName,2")
SetGadgetText(#String_0,info$ )
info$ = edbGetInfoH("$dbFName,3")
SetGadgetText(#String_1,info$ )
info$ = edbGetInfoH("$dbFName,4")
SetGadgetText(#String_2,info$ )
;...................................................................
Case #neuerEintrag
edbPut ("Staedte","test1")
edbPut ("Pflanzen","test2")
edbWriteRecord(1186)
EndSelect
EndSelect
