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