Sorgulamayı DBcomboboxdan yapmak istiyorum

[Berdem]

Merhaba,
Veritabanım Access ve ADO kullanıyorum.Aşagıdaki koddan yanıt alamıyorum.

Kod: Tümünü seç

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandType:=cmdText;
  ADODataSet1.CommandText := 'SELECT * FROM gelen WHERE GELDIGIYER=:Ta';
  ADODataSet1.Parameters.ParamByName('Ta').Value:=DBComboBox3.Text;
  ADODataSet1.Prepared;
  ADODataSet1.Open;
end;

Düz bir edit nesnesi konunca yanıt veriyor.

Kod: Tümünü seç

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandType:=cmdText;
  ADODataSet1.CommandText := 'SELECT * FROM gelen WHERE GELDIGIYER=:Ta';
  ADODataSet1.Parameters.ParamByName('Ta').Value:=Edit2.Text;
  ADODataSet1.Prepared;
  ADODataSet1.Open;
end;

Fakat ben sorgulamayı DBcomboboxdan almak istiyorum..
Sevgi ve Saygılar..

[husonet]

Arkadaşlar bu tip parametre gönderimlerinde Trim fonkisyonu ile Stringlerin sağındaki ve solundaki boşlu karakterleri temizleyin.

Arkadaşım senin kodunun çalışması lazım.

[cuneyt22]

peki yaptigin combobox ta sadece 1 verimi var yoksa birden verimi var eger birden fazla veri var ise secili olan veriyi aktarmalisin bu sekilde calisir yok eger combobox ta sadece 1 veri varsa kodun dogru

[Berdem]

Gercektende ilginç yanıt veriyor.Edit2 yerine DBcombobox3 koyunca grid ekranında ve comboboxun içinde görünen ne varsa siliyor.
Trim fonksiyonunu biraz acarsan çok sevinirim..
Not combobox içinde bir çok item veri var.

[aslangeri]

S.A.
dbcombo box ve dbgrid in bağlı olduğu tablo adodataset1 mi?
yani eğer ona bağlı ise
1. edite bağlayınca oluyor. çünkü dbcombobxa bağladığın zaman adodataset i close yaptığın için. dbcomboboxun texti boş oluyor.
2. dbcomboboxun texti boş olduğu için sorgun geriye değer döndürmüyor. sonuç olarak gridde ve dbcombobox da kayt görünmüyor.

dbcomboboxu başka bir dataset e bağlamayı dene.
Kolay gelsin.

[cuneyt22]

ADODataSet1.Parameters.ParamByName('Ta').ASSTRING:=ComboBox3.Items[ComboBox3.ItemIndex];

bunu bir dene istersen eger olmaz ise bilki combobox bos deger atiyor ve aslangerinin dedigi mantigi uygulayacaksin

[Berdem]

Yanıt veren tüm arkadaşlara çok teşekkür ediyorum..
Evet dediğiniz gibi hepsi dataset bağlı.Close yapınca combobox boş deger atıyor.O zaman o degerimi sıfırlamadan bir variant degeri saklayınca problemi siz degerli dostlarımız sayesinde çözdüm tekrar tekrar teşekkürler...

Kod: Tümünü seç

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
asd:string;
begin
asd:=DBComboBox3.Text;
  ADODataSet1.Close;
  ADODataSet1.CommandType:=cmdText;
  ADODataSet1.CommandText := 'SELECT * FROM gelen WHERE GELDIGIYER=:Tar';
  ADODataSet1.Parameters.ParamByName('Tar').Value:=asd;
  ADODataSet1.Prepared;
  ADODataSet1.Open;
end;

[husonet]

Bir string'in başındaki ve sonundaki boşlukları atmak için kullanılır

Trim(string)

TrimLeft (string)//stringin sadece başındaki boşlukları atmak için
TrimRight (string) //stringin sadece sonundaki boşlukları atmak için

Bu arada hakketten Database in kapanma olayı aklıma gelmemişti @Aslangeri Teşekkürler.

Kolay Gelsin...