L
lefty1984
Guest
Define Variable FileNaam As Character No-undo. Define Variable TabelNaam As Character No-undo. FileNaam = "c:\tmp\bianca.csv". TabelNaam = "ttbianca". Define Variable ttHandle As Handle. Define Variable bHandle As Handle. Define Variable qHandle As Handle. Define Variable fHandle As Handle. Define Variable bTableHandle As Handle No-undo. Define Variable ExcelHeaders As Character No-undo. Define Variable ExcelData As Character No-undo. Define Variable pColName As Character No-undo. Define Variable pDbColName As Character No-undo. Define Variable i As Integer No-undo. Create Temp-table ttHandle. Input From Value(FileNaam). Import Unformatted ExcelHeaders. Do i=1 To Num-entries(ExcelHeaders,";"): pColName = Entry(i, ExcelHeaders,";"). If pColName Eq "" Then Next. /*Display "1 " pcolname Format "x(25)".*/ pDbColName = TabelNaam + "." + pColName. /*Display "2 " pdbcolname Format "x(25)". */ ttHandle:Add-new-field(pColName,"Character"). End. ttHandle:Temp-table-prepare("ttFile"). bHandle = ttHandle
efault-buffer-handle. Repeat: Import UNFORMATTED ExcelData. bHandle:Buffer-create. Do i=1 To Num-entries(ExcelHeaders,";"): pColName = Entry(i, ExcelHeaders,";"). If pColName Eq "" Then Next. fHandle = bHandle:Buffer-field(pColName). fHandle:Buffer-value = Entry(i, ExcelData,";"). /* Display pColname exceldata.*/ End. End. Input Close. Create Query qHandle. qHandle:Set-buffers(bHandle). qHandle:Query-prepare("FOR EACH ttFile"). qHandle:Query-open(). Create Buffer bTableHandle For Table TabelNaam. Repeat Transaction: qHandle:Get-next(). If qHandle:Query-off-end Then Leave. bTableHandle:Buffer-create(). bTableHandle:Buffer-copy(bHandle). bTableHandle:Buffer-release(). End. qHandle:Query-close(). bHandle:Buffer-release(). Delete Object bTableHandle. Delete Object ttHandle. Delete Object qHandle. Can anyone tell me why this code wont do anything?
Continue reading...
efault-buffer-handle. Repeat: Import UNFORMATTED ExcelData. bHandle:Buffer-create. Do i=1 To Num-entries(ExcelHeaders,";"): pColName = Entry(i, ExcelHeaders,";"). If pColName Eq "" Then Next. fHandle = bHandle:Buffer-field(pColName). fHandle:Buffer-value = Entry(i, ExcelData,";"). /* Display pColname exceldata.*/ End. End. Input Close. Create Query qHandle. qHandle:Set-buffers(bHandle). qHandle:Query-prepare("FOR EACH ttFile"). qHandle:Query-open(). Create Buffer bTableHandle For Table TabelNaam. Repeat Transaction: qHandle:Get-next(). If qHandle:Query-off-end Then Leave. bTableHandle:Buffer-create(). bTableHandle:Buffer-copy(bHandle). bTableHandle:Buffer-release(). End. qHandle:Query-close(). bHandle:Buffer-release(). Delete Object bTableHandle. Delete Object ttHandle. Delete Object qHandle. Can anyone tell me why this code wont do anything?Continue reading...