DbCombobox Kullanýmý

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.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüþmek üzere. Bahadýr ÞAHÝN