V4RB: Problem with UpdateRecords

[Ruslan Zasukhin]

on 7/23/03 20:07, Claudius Sailer at Claudius at sailer-online.de wrote:

Hi Claudius, 

> I am using the following Code with RB 5.2 and 1.9.7 no problem the
> record is updatet. When I do the same with 1.9.8b18 nothing is changed.
> Same to

Hmm, you do not use Cursors here?

It seems only BaseObject.UpdateRecord().
And not works ?

I need to check this...

And this can be reason to your orphan segment...if in below code at least
one your field is TEXT or BLOB
 
>    res=meineDatenbank.TProgrammeDB.GoToRecID(ControlRecID)
>    res=meineDatenbank.TProgrammeDB.DeleteRecord
> 
> res=false  but this is not possible, and the record is not deleted.
> 
>    //User
>    if CheckLeer(EditField1(1).text) then
>      Fehlermeldung(TextFehler007)
>      return
>    end if
>    res=meineDatenbank.TUserDB.GoToRecID(ControlRecID)
>    if CheckLeer(EditField1(0).text) then
>      meineDatenbank.TUserDB.Vorname.setblank
>    else
>       
> meineDatenbank.TUserDB.Vorname.value=UnicodeToASCII(EditField1(0).text.t
> rim)
>    end if
>     
> meineDatenbank.TUserDB.NachName.value=UnicodeToASCII(EditField1(1).text.
> trim)
>    meineDatenbank.TUserDB.Anrede.value=PopupMenu1(0).text
>    if CheckLeer(EditField1(2).text) then
>      meineDatenbank.TUserDB.eMail.setblank
>    else
>       
> meineDatenbank.TUserDB.eMail.value=replaceAll(UnicodeToASCII(EditField1(
> 2).text.trim),"?","")
>    end if
>    if CheckLeer(EditField1(3).text) then
>      meineDatenbank.TUserDB.Strasse.setblank
>    else
>       
> meineDatenbank.TUserDB.Strasse.value=UnicodeToASCII(EditField1(3).text.t
> rim)
>    end if
>    if CheckLeer(EditField1(4).text) then
>      meineDatenbank.TUserDB.Nr.setblank
>    else
>       
> meineDatenbank.TUserDB.Nr.value=UnicodeToASCII(EditField1(4).text.trim)
>    end if
>    if CheckLeer(EditField1(5).text) then
>      meineDatenbank.TUserDB.PLZ.setblank
>    else
>       
> meineDatenbank.TUserDB.PLZ.value=UnicodeToASCII(EditField1(5).text.trim)
>    end if
>    if CheckLeer(EditField1(6).text) then
>      meineDatenbank.TUserDB.Ort.setblank
>    else
>       
> meineDatenbank.TUserDB.Ort.value=UnicodeToASCII(EditField1(6).text.trim)
>    end if
>    if CheckLeer(EditField1(7).text) then
>      meineDatenbank.TUserDB.TelEins.setblank
>    else
>       
> meineDatenbank.TUserDB.TelEins.value=UnicodeToASCII(EditField1(7).text.t
> rim)
>    end if
>    if CheckLeer(EditField1(8).text) then
>      meineDatenbank.TUserDB.TelZwei.setblank
>    else
>       
> meineDatenbank.TUserDB.TelZwei.value=UnicodeToASCII(EditField1(8).text.t
> rim)
>    end if
>    TheTrue=parseDate(EditField1a.text.trim,theDate)
>    if thetrue then
>       
> meineDatenbank.TUserDB.GebDatum.set(theDate.year,thedate.month,thedate.d
> ay)
>    else
>      meineDatenbank.TUserDB.GebDatum.setBlank
>    end if
>     
> meineDatenbank.TUserDB.LastChange.set(today.year,today.month,today.day)
>    if CheckLeer(EditField1(9).text) then
>      meineDatenbank.TUserDB.Kommentar.setblank
>    else
>       
> meineDatenbank.TUserDB.Kommentar.value=UnicodeToASCII(EditField1(9).text
> .trim)
>    end if
>    meineDatenbank.TUserDB.UpdateRecord
> 
>  meineDatenbank.flush

-- 
Best regards,
Ruslan Zasukhin      [ I feel the need...the need for speed ]
-------------------------------------------------------------
e-mail: ruslan at paradigmasoft.com
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://lists.macserve.net/mailman/listinfo/valentina
-------------------------------------------------------------