#610 V4RB2.0.1

[Claudius Sailer]

Am 30. Mrz 2005 um 19:03 Uhr schrieb Ruslan Zasukhin:

> On 3/30/05 7:01 PM, "Claudius Sailer" <Claudius at sailer-online.de>  
> wrote:
>
>> Hi,
>>
>> could I get a status?
>
>> I see that status of both calls doesn't changed. Do you have problems
>> to reproduce, do you need further informations or tests or new
>> database?
>
>> Tests with 2.0.1 brings also same results as described.
>
> I think tomorrow I will at last of end put hands on this tasks


One more help thing. I believe same problem

I have own Import-Export-Routine. Following code runs in DebugMode=ON  
absolutely fine. it is slow nut it works. When I now deactivate  
DEBUGMODE I geht following error message:
Error Number: 627971
Varchar data "" is corrupted

the case 7 has to import close to 7000 records. Other tables don't have  
problems they are extremly less records to import.. Is it possible that  
the number of records brings trouble to V4RB2.
It would be nice when other user could test this, too.

   select case ImportDatenTyp
   case 7
     //Buchungen auslesen
     if TextZeichen.countfields(chr(9))=9 then
       meineDatenbank.TBuchungen.SetBlank
       TheTrue=parseDate(TextZeichen.nthfield(chrb(9),2),CheckDate)
        
meineDatenbank.TBuchungen.BDatum.set(CheckDate.year,CheckDate.month,Chec 
kDate.day)
        
meineDatenbank.TBuchungen.Herk_Konto.value=RecIDIndex(3,TextZeichen.nthf 
ield(chrb(9),3).cdbl)
        
meineDatenbank.TBuchungen.Ziel_Konto.value=RecIDIndex(3,TextZeichen.nthf 
ield(chrb(9),4).cdbl)
        
meineDatenbank.TBuchungen.Kategorie_ID.value=RecIDIndex(4,TextZeichen.nt 
hfield(chrb(9),5).cdbl)
        
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(TextZeichen.nthfi 
eld(chrb(9),6))
       if NOT CheckLeer(TextZeichen.nthfield(chrb(9),7)) then
          
meineDatenbank.TBuchungen.Kommentar.value=ASCIIToUniCode(TextZeichen.nth 
field(chrb(9),7))
       end if
       if TextZeichen.nthfield(chrb(9),8).cdbl = 1 then
         meineDatenbank.TBuchungen.Blocked.value=true
       else
         meineDatenbank.TBuchungen.Blocked.value=false
       end if
       if TextZeichen.nthfield(chrb(9),9).cdbl = 1 then
         meineDatenbank.TBuchungen.Deleted.value=true
       else
         meineDatenbank.TBuchungen.Deleted.value=false
       end if
       NewRecID=meineDatenbank.TBuchungen.addRecord
        
RecIDIndex(5,TextZeichen.nthfield(chrb(9),1).cdbl)=meineDatenbank.TBuchu 
ngen.RecordCount
     else
       //es liegen nicht genuegend Felder zum importieren vor
       return false
     end if
case 5
case 4
end select

bye


Claudius

-- 
G4/733 QS / MacOS X 10.3.8de / RB 5.5.3de/ Valentina 1.10.0 & 2.0.1
Homepage	http://www.ClaSai.de
iChat		ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]