Btgunluk.com

Delphi'de AdoTable ile mdb Kullanımı

Delphi'de sıklıkla bilgi toplamak için program yazmam gerekiyor. Sadece bilgi girişi yapılacak bu programlarda SQL ile uğraşmak istemiyorum.

İşte bu durumda imdadıma AdoTable bileşeni koşuyor. Bir AdoConnection, bir AdoTable, bir DataSource ve bir DbGrid'le kolaylıkla programı yazabiliyorum. Gelelim veritabanına bağlanmak için gereken kodlara:

function GecerliKlasoruAl: string;
begin
  Result := ExtractFilePath(Application.ExeName);
  if Result[Length(Result)] <> '' then
   Result := Result + '';
end;

//Bu kodlar veritabanına bağlanılan yere yazılacak
ADOConnection1.LoginPrompt:=false;
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
  'Data Source='+GecerliKlasoruAl+'database.mdb;'+'Mode=Share Deny None;'+
  'Persist Security Info=False';
ADOConnection1.Open();
adotable1.Connection:=ADOConnection1;
adotable1.TableName:='TabloAdi';
ADOTable1.Open;

Tablodaki kayıt sayısını öğrenmek için:

var
  kayitsayisi: integer;

kayitsayisi:=ADOTable1.RecordCount;

Kayıt ekleme ve kaydetme işlemleri:

AdoTable1.Append;
ADOTAble1.FieldByName('alan1').AsString:=edtalan1.Text;
ADOTAble1.FieldByName('alan2').AsInteger:=strtoint(edtalan2.text);
ADOTAble1.FieldByName('alan3').AsString:=edtalan3.Text;
ADOTAble1.FieldByName('alan4').AsString:=edtalan4.Text;
ADOTable1.Post;

Düzeltme için bilgileri Textbox'lara çekme işlemleri:

 edtalan1.Text:=ADOTAble1.FieldByName('alan1').AsString;
 edtalan2.Text:=inttostr(ADOTAble1.FieldByName('alan2').AsInteger);
 edtalan3.Text:=ADOTAble1.FieldByName('alan3').AsString;
 edtalan4.Text:=ADOTAble1.FieldByName('alan4').AsString;
 ADOTable1.Edit;

Düzeltilen bilgleri kaydetmek için:

ADOTAble1.FieldByName('alan1').AsString:=edtalan1.Text;
ADOTAble1.FieldByName('alan2').AsInteger:=strtoint(edtalan2.text);
ADOTAble1.FieldByName('alan3').AsString:=edtalan3.Text;
ADOTAble1.FieldByName('alan4').AsString:=edtalan4.Text;
ADOTable1.Post;

Kayıt silmek için: