MENAMPILKAN DATA DARI EXCEL

Oke pada kesempatan kali ini saya akan memberikan tutorial singkat Bagaimana cara MENAMPILKAN  DATA DARI EXCEL ke Virtualtable  dengan Borland Delphi.

 Silahkan di Copy Paste Scriptnya:

sebelum kalian mengopi kode nya,siapkan dulu bahan bahan nya.
disini saya menggunakan 
Button
ADODataSet
openDialog
virtualtable
dbgrid
datasource

pertama tambah kan code berikut 

public

    xlsOpened: string;

    constring: string;

hasilnya seperti gambar di bawah

kemudian copy code berikut ke button yang nanti di gunakan untuk mengunggah File EXCEL 

procedure TForm2.btnAddcilsetClick(Sender: TObject);

var

  XLSFile: string;

  first1: string;

  first1int: integer;

  mydate: tdatetime;

  partPrice, partPrice2: Real;

  myCurrency: string;

begin

  openDialog1.Title := 'Open Parts List File';

  openDialog1.Filter := 'MS Excel files|*.xls;*.xlsx'; //'MS Excel files|*.xls;*.xlsx';

  if OpenDialog1.Execute() then

  begin

    virtualtable1.Clear;

   // virtualtable2.Clear;

    XLSFile := OpenDialog1.FileName;

    xlsOpened := XLSFile;

    constring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + XLSFile + '; Extended Properties="Excel 8.0;HDR=No";Persist Security Info=False';

    ADODataSet1.Active := False;

    ADODataSet1.ConnectionString := constring;

    ADODataSet1.CommandType := cmdText;

   ADODataSet1.CommandText := 'Select * from [Sheet1$]';

    ADODataSet1.Active := True;

    ADODataSet1.First;

    while not adodataset1.Eof do

    begin

      first1 := adodataset1.fieldbyname('F1').Asstring;

      first1int := adodataset1.fieldbyname('F1').Asinteger;

      if first1 <> null then

      begin

        if first1int > 0 then

        begin

          VirtualTable1.Open;

          virtualtable1.Append;

         // virtualtable1['No'] := adodataset1.fieldbyname('F1').AsInteger;

          virtualtable1['Category'] := adodataset1.fieldbyname('F3').AsString;

          virtualtable1['PartNumb'] := adodataset1.fieldbyname('F4').AsString;

          virtualtable1['Description'] := adodataset1.fieldbyname('F5').AsString;

          virtualtable1['Uom'] := adodataset1.fieldbyname('F6').AsString;

          virtualtable1.Post;

         adodataset1.Next;

        end        else

        adodataset1.Next;

      end

     else

      adodataset1.Next;

    end;

    ADODataSet1.Active := false; ///close ado

    end;

    dbgrd1.Columns[0].Width := 200;

    dbgrd1.Columns[1].Width := 200;

    dbgrd1.Columns[2].Width := 230;

    dbgrd1.Columns[3].Width := 40;

end;

sekian tutorial kali ini semoga bermanfaat buat temen temen semua