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.

 

Click for details

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.