Fortschrittsanzeige bei DBImport

[Koverhage]

Hallo,

habe öfters mal den Fall DBImport länger dauert, wenn es eine große DBF Datei ist.
Manche ungeduldige Anwender denken dann die Anwendung abgestürzt und killen diese.
Jetzt war mein Gedanke: Gibt es eine Progressbar bei DBImport ?
Nein, also Hinweis bringen das die Tabelle aktualisiert wird. Das ist ja nicht das
Problem, zusätzlich wollte ich die aktuelle RecNo() anzeigen.
Dafür würde ich die ForCondition nehmen.
Leider finde ich keine Möglichkeit, die Recno festzustellen?
Hat jemand einen Tip wie ich das lösen könnte ?

Code: Alles auswählen

oScrn := XbpStatic():new(,, { aBeginn[1], aBeginn[2]+40}, { aGroesse[1],60},, .T.)
oScrn:caption := "Bitte warten, Datentabelle wird aktualisiert"
oScrn:options := XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_WORDBREAK
oScrn:create()
oScrn:setColorBG(XBPSYSCLR_DIALOGBACKGROUND)
oScrn:setColorFg(GRA_CLR_BLACK)
oScrn:setFontCompoundName( "8.Arial" )
oScrn:show()

DbCreateFrom( cDbfDatei,, cStrDatei,,.t.,"dbfneu"  ) // Neue Datei erzeugen
DbImport( cTmpDbf,,fortschritt(oScrn) )

("dbfneu")->(DbCloseArea())
oScrn:destroy()

static function fortschritt(oScrn, nRecNr)
oScrn:setCaption( "Bitte warten, Datentabelle wird aktualisiert"+str(nRecNr) )
return .t.

[Rolf Ramacher]

Hi Klaus,

ich mache dies mit einer Static-Anzeige - aber nicht jeden Satz, sondern alle 500 Sätze bzw. 1000 Sätze

[brandelh]

Hallo Klaus,

eigentlich müsste die FOR Bedingung ja die zu importierende Datei schon ausgewählt haben,
somit müsste der Select Bereich stimmen und du kannst einfach recno() verwenden, wobei eventuell der Prozentsatz besser passt und Arbeit spart !

Code: Alles auswählen

function fortschritt(oScrn)  // STATIC KANN PROBLEME BEREITEN !
    oScrn:setCaption( "Bitte warten, Datentabelle wird aktualisiert"+str(recno()) )
return .t.

Das wird aber bei jedem Datensatz aufgerufen und daher die Aktion sehr bremsen. So wäre es besser:

Code: Alles auswählen

function fortschritt(oScrn)  
    local cRecNo := rtrim(str(recno(),10,0))
    if right(cRecNo,2)=="00" // alle 100 Sätze, "0" -> alle 10 Sätze
       oScrn:setCaption( "Bitte warten, Datentabelle wird aktualisiert"+cRecNo )
    endif
return .t.

Bei einem Prozentanzeiger müsstest du wissen wie der alte Wert war ...

Code: Alles auswählen

function fortschritt(oScrn)  
    local cRecPos := str(DbPosition(),4)+"%", nLen := len(cRecPos)
    if right(oScrn:caption,nLen) # cRecPos
       oScrn:setCaption( "Bitte warten, Datentabelle wird aktualisiert "+cRecPos )
    endif
return .t.

[Jan]

Ich hab gerade keine Hilfe zur Hand. Gibt es bei DbImport() keinen Codeblock wie bei DbIndex()? Da kann man ja im Codeblock Funktionen aufrufen, die während des Indizierens mitlaufen, also auch eine Fortschrittsanzeige. Sowas mache ich bei meinen Indexaufrufen regelmäßig.

Nur mal so ins Blaue geschossen.

Jan

[Manfred]

Hi Klaus,

mal ganz simpel. Baue doch einfach für den Anfang eine Funktion in den For Block ein und schaue dann mal nach, was Dir zu dem Zeitpunkt des Aufrufes alles zur Verfügung steht. Wenn Du in der Funktion stehst, kannst Du doch über den Debugger alles abfragen, was Du gerne hättest, bzw. hast und dann entsprechend später einbauen.

[AUGE_OHR]

den Source hast du doch in c:\ALASKA\XPPW32\Source\SYS\dbbulk.prg

Code: Alles auswählen

FUNCTION DbImport( cFile, ;            // Name fr Quelldatei
                   aFieldNames, ;      // Array mit Feldnamen
                   bFor, ;             // Codeblock fr FOR-Bedingung
                   bWhile, ;           // Codeblock fr WHILE-Bedingung
                   nNext, ;            // Anzahl Datens„tze ab nRecord
                   nRecord, ;          // Erster Datensatz zum importieren
                   lRest, ;            // Alle bis Eof()
                   cDbe, ;             // DBE fr neue Datei
                   aDbeInfo )          // Einstellungen fr DBE

aber es kommt auch auf deine DBE an ... "was" importierst du ?

[Koverhage]

Jimmy,

dbf und dbt