delphi ke access 2007

Koneksi Delphi ke access 2007

Berikut langkah langkah membuat projek Delphi dengan database access 2007

-buat folder untuk menaruh lembar kerja

-buat form baru  di Delphi dan simpan di folder yang sudah di buat sebelumnya contohnya sbb:

 

-buat database diaccess 2007 dengan nama dbmhs.accdb dan nama tabelnya tbmhs  simpan satu folder dengan projek Delphi yang sudah dibuat

 

Karena nama database adalah baru maka perlu setting diwindowsnya

Langkah-langkahnya  sama dengan pengaturan netbean

Masuk ke windows ketikan ODBC-->pilih datasource(ODBC)-->add-->pilih Microsoft Access Driver(*mdb)-->finish-->masukan data source name misalnya dbmhs-->cari file penyimpanan access td-->bila sudah ketemu klik OK-->OK-->maka dbmhs sudah connec-->ok

 

 

-langsung masuk ke desain form

-tambahkan component pallet  ADO Connection(ADODB) ,ADOTable(ADODB) ,DataSource  danDBGrid   hasilnya kurang lebih sbb:

 

-setting setiap komponennya,agar tinggal pilih2 saja maka langkahnya harus berurutan

 ADOConnection1(ADODB)

double klik pada ADOConnection-->muncul prompt-->build-->untuk access 2007 pilih Microsoft office 12.0 Access…-->next-->masukan datasource ygsudah dibuat(dbmhs.accdb)-->test connection-->jika berhasil -->OK

setting di propertinya-->loginprompt=false,Connected=true

ADOTable1

Setting propertinya-->Connection=pilih ADOConnection1,tablename=pilih tbmhs

DataSource1

Setting di propertinya-->DataSet=ADOTable1

DBGrids

 setting dipropertinya-->DataSource=DataSource1

Bila field dan record muncul di DBgrids berarti koneksinya sudah benar

Berikut codingnya:

//coding tombol simpan

procedure TForm1.Button1Click(Sender: TObject);

 begin

 //PENGGUNAAN MESSAGE

 if ((Edit1.Text='' ) or( Edit2.Text='')) THEN

    MessageDlg('di isi dulu brooo',mtInformation,[mbOK],0)

  else

   if ((Edit1.Text<>'' )OR( Edit1.Text<>'')) then

 //PEGGUNAAN UNTUK INPUT KE DATABASE

begin

ADOTable1.Append;

ADOTable1['npm']:=Edit1.Text;

ADOTable1['nama']:=Edit2.Text;

//CODING input pilihan RADIOBUTTON

  if RadioButton1.Checked=TRUE then

    ADOTable1['jurusan']:='TI'

  else

      if RadioButton2.Checked=TRUE then

        ADOTable1['jurusan']:='SI'

      else

          if RadioButton3.Checked=TRUE then

            ADOTable1['jurusan']:='MI'

          else

              if RadioButton4.Checked=TRUE then

              ADOTable1['jurusan']:='KA'

       end;

 ADOTable1.Post;

 //coding tambahan untuk clear setelah perintah simpan

 Edit1.Text:='';

 Edit2.Text:='';

 RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

RadioButton3.Checked:=false;

RadioButton4.Checked:=false;

end ;

//coding untuk tombol batal

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

RadioButton3.Checked:=false;

RadioButton4.Checked:=false;

end;

//coding untuk keluar

 procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

//coding untuk delete record datagrid yang dituju cursor

procedure TForm1.Button4Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

 

Maka hasinya sbb: 

Semoga bermanfaat heee,,,