Arsip: import record dari foxpro

 
user image
more 8 years ago

idhiel

para master delphi .... kenapa yah aq import record dari tabel foxpro ke database yang juga dari foxpro sangat lambat....malah boleh aq katakan komputer aq langsung hank..? apa ada yang salah dengan kode programnya.. nih kode programnya..

dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
while NOT dm.Dbf2.Eof do
begin
  dm.Table1.Open ;
  dm.Table1.Append ;
  dm.Table1['noref'] := dm.Dbf2['Wbno'];
  dm.Table1['cycle'] := dm.Dbf2['cycle'];
  dm.Table1['nama'] := dm.Dbf2['nama'];
  dm.Table1['addrs'] := dm.Dbf2['addr'];
  dm.Table1['kodepos'] := dm.Dbf2['kodepos'];
  dm.Table1['upload'] := dm.Dbf2['Pudt'];
  dm.Table1['bank'] := sedit3.Text ;
  dm.Table1.Post ;
  dm.Table1.Close ;
  dm.Table1.Open ;
end;
tolong bantuannya para master...
user image
more 8 years ago

theodorusap

kenapa dm.Table1 di-close kemudian di-open lagi dalam looping ?
user image
more 8 years ago

theodorusap

Kalo copy/import seluruh isi tabel dengan catatan jumlah, jenis dan ukuran field pada kedua tabel sama, (tabel identik) bisa pake source ini :

Function CopyDataset(Src,Dst:TDataset):Integer;
var
  I:Integer;
  Err:Boolean;
begin
  result:=0;
  Err:=false;
  src.first;
  while (not src.Eof) and (not Err) do begin
    dst.Append;
    try
      for i:=0 to dst.FieldCount-1 do
        dst.Fields.Fields[i].Value:=src.Fields.Fields[i].Value;
      dst.Post;
      inc(result);
    except
      on E:Exception do begin
        dst.Cancel;
        err:=true;
      end;
    end;
    src.Next;
  end;
end;
Terus buat manggilnya : CopyDataset(dm.Dbf2,dm.Table1);
user image
more 8 years ago

denmasdanang

dalam looping kasih dm.Dbf2.next;
user image
more 8 years ago

theodorusap

Bener tuh denmasdanang... code itu sama aja artinya looping sampai hang... :lol:
user image
more 8 years ago

idhiel

aq coba dulu yah master solusinya... but sebelumnya aku maksih atas solusinya....
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com