V4RB: SpeedQuestion

Claudius Sailer Claudius at sailer-online.de
Sat Jun 28 16:28:17 CDT 2003


Hi,

which one is faster? Or is it equal what I use?


The UPDATE-Function from Valentina


OR


   res=meineDatenbank.TBuchungen.GoToRecID(BuchungSSatz)
     theTrue=parsedate(trim(EditField1.text),CheckDate)
   //Buchungentabelle aktualisieren
   meineDatenbank.TBuchungen.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)
   meineDatenbank.TBuchungen.Kategorie_ID.value=AktuelleKategorie  
''PopupMenu1(2).RowTag(PopupMenu1(2).ListIndex)
   if cdbl(EditField4(0).text)<>0 then
     //Ausgabe
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(0).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesKonto  
''PopupMenu1(0).RowTag(PopupMenu1(0).ListIndex)
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesGegenKonto  
''PopupMenu1(1).RowTag(PopupMenu1(1).ListIndex)
   else
     //Einnahme
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(1).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesGegenKonto  
''PopupMenu1(1).RowTag(PopupMenu1(1).ListIndex)
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesKonto  
''PopupMenu1(0).RowTag(PopupMenu1(0).ListIndex)
   end if
   if CheckLeer(EditField5.text) then
     meineDatenbank.TBuchungen.Kommentar.setblank
   else
     meineDatenbank.TBuchungen.Kommentar.Value=trim(EditField5.text)
   end if
   meineDatenbank.TBuchungen.Blocked.value=false
   meineDatenbank.TBuchungen.UpdateRecord



More information about the Valentina mailing list