Menyimpan Data di DBGRID ke Database

Hay semua buat pecinta pemrograman delphi. Kali ini saya akan membagikan info menarik. bagamana cara menyimpan data dbgrid ke database.

Biasanya kasus ini kita dapatkan ketika kita menggunakan DBGRID sebagai editor untuk mrngubah data melalui dbgrid. Dengan fasilitas ini juga kita dapat memindah data secara masal data satu tabel dengan tabel yang lainnya.

Dengan kata lain fungsi ini adalah untuk menyimpan data DBGRID ke database secara masal tanpa harus memilah data pada dbgrid tersebut.

Oke langsung saja kita imlementasi, gk usah basa basi. Takutnya nti menjadi basi...
Haha...
Cekidot
Siapkan form seperti ini:

Dengan komponenen yang sudah ada:
Setting propertis:

Dan ini adalah koding dari buttonya:

ADOConnection1.connected := True;

  with ADOQuery1 do

  begin

    Active := True;

    DisableControls;

    try

      First;

      { Initialize each parameter with  excel data, execute the query and repeat }

       AdoQuery2.Close;

AdoQuery2.SQL.Clear;

AdoQuery2.SQL.Add('INSERT INTO tbl_tujuan');

AdoQuery2.SQL.Add('(id,nama,alamat)');

AdoQuery2.SQL.Add('VALUES');

AdoQuery2.SQL.Add('(:parID,:parNama,:parAlamat)');

AdoQuery2.Parameters.ParamByName('parID').DataType := ftString;

AdoQuery2.Parameters.ParamByName('parNama').DataType := ftString;

AdoQuery2.Parameters.ParamByName('parAlamat').DataType := ftString;

AdoQuery2.Parameters.ParamByName('parID').Direction := pdInput;

AdoQuery2.Parameters.ParamByName('parNama').Direction := pdInput;

AdoQuery2.Parameters.ParamByName('parAlamat').Direction := pdInput;

{ You do not need to recreate the query or parameter list with each iteration. Thats the benefit of paramaters the query needs to be prepared once only on the server }

      while not Eof do

      begin

        { Process each record here }

AdoQuery2.Parameters.ParamByName('parID').Value:= Fields.Fields[0].AsString;

AdoQuery2.Parameters.ParamByName('parNama').Value:= Fields.Fields[1].AsString;

AdoQuery2.Parameters.ParamByName('parAlamat').Value:= Fields.Fields[2].AsString;

AdoQuery2.ExecSQL;

NEXT;

     //   Next;

      end;

       showmessage('penyimpanan Berhasil');

    finally

      EnableControls;

    end;

Untuk melihat demonya bisa membuka link dibawah ini.

              

Share this post