Merhaba arkadaşlar bu makalemizde access veritabanına
bağlanacağız. DBComboBox ta employee tablosundaki FirstName sütunundaki
verileri Item olarak göstereceğim.
Formumuza
DBComboBox ve ADOTable ekleyelim. Object Inspector de ADOTable seçiliyken
ConnectionString kısmında Access veritabanını seçiyoruz. AdoTable in TableName
kısmından employee tablomuzu seçiyoruz.
Şekil
1
unit dbcombobox_Unit1;
interface
uses
Winapi.Windows, Winapi.Messages,
System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms,
Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Data.DB,
Data.Win.ADODB, Data.Bind.EngExt,
Vcl.Bind.DBEngExt, System.Rtti,
System.Bindings.Outputs,
Vcl.Bind.Editors, Data.Bind.Components,
Data.Bind.DBScope;
type
TForm1 = class(TForm)
DBComboBox1: TDBComboBox;
ADOTable1: TADOTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTable1.Open;
while Not ADOTable1.Eof do
begin
DBComboBox1.Items.Add(ADOTable1.FieldByName
('FirstName').AsString);
ADOTable1.Next;
end;
ADOTable1.Close;
if DBComboBox1.Items.Count > 0 then
//ilk itemi seciyoruz
DBComboBox1.ItemIndex := 0
end;
end.
Click for details
Bir
makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır
ŞAHİN
0 comments:
Yorum Gönder