ICI
Import from DBF October 22, 2009 12:32AM |
dsKontaQuery is Data Source //Same name can not be for DBF and for one into analysis THEN alias will be KTA HDBOpen("KTA","KTA","C:\IMPORT\KONTA.DBF") sSql is string = "SELECT * FROM KTA" IF NOT HExecuteSQLQuery(dsKontaQuery,hQueryDefault,sSql) THEN ErrorInfo(errFullDetails) END HCreation(Konta) TableDisplay(TABLE_Konta,taStart) nUkupno is int = HNbRec(dsKontaQuery) nRbr is int =0 PROGBAR_ProgressBar1..MinValue=0 PROGBAR_ProgressBar1..MaxValue=nUkupno HReadFirst(dsKontaQuery) WHILE NOT HOut(dsKontaQuery) nRbr += 1 PROGBAR_ProgressBar1 = nRbr Konta.Konto= dsKontaQuery.Konto Konta.Naziv_Konta=NoSpace(dsKontaQuery.kon_naz) HAdd(Konta) HReadNext(dsKontaQuery) END TableDisplay(TABLE_Konta,taStart) //Re-display Table from start