comboBox Veri Birleştirme

[pma]

ComboBox ıma musteri.db den Ad Alanından İsimler Geliyor Ad alanı ve Soyad Alanının Birleşik Gelmesinini İstiyorum Nasıl Birleştirebilirim Ad+Soyad gibi db alanı birleştirme

[tayipk]

combobox ın on click olayına aşağıdaki kodları yazman yeterli olacaktır

Kod: Tümünü seç

begin
combobox1.clear;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text:='select * from musteriler';
adoquery1.open;
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fieldbyname('Ad').asstring+' '+adoquery1.fieldbyname('soyad').asstring);
adoquery1.next;
end;
end;

kolay gelsin

[unicorn64]

sql strring birleştirme

[pma]

yazıyı sizin kodlarla ComboBox a gönderdiğim yerde birleştirdim

Click Olayındaki Kodum Çalışmıyor tıkladığımda editlere veriler dolmuyor (NOT: table2 müşteri tablom)

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
var
sonuc:Boolean;
begin
table2.SetKey;
table2.IndexFields[0].AsString:=ComboBox1.Text;
sonuc:=table2.GotoKey;
if sonuc = true then
begin
Edit2.Text:=Table2.FieldByName('Ad').AsString;
Edit3.Text:=Table2.FieldByName('Soyad').AsString;
Edit4.Text:=Table2.FieldByName('Telefon').AsString;
Memo1.Text:=Table2.FieldByName('Adres').AsString;

end;
end;

[brs]

Daha önce Konuyu viewtopic.php?f=2&t=33349 burada da açmışsınız sorun çözülmemiş miydi...

[pma]

yok çözülmüştü bu gösterdiğim kod tayipk nın kodunu çalıştırdıktan sonra işlemez duruma düştü

[brs]

O zaman bu şekilde yaparsan sorun kalmaz...

Kod: Tümünü seç

procedure TForm3.ComboBox3Change(Sender: TObject);
begin
 Connection.Connected := False;
  with User do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From User where ID=:ID');
    ParamByName('ID').AsString := Combobox3.Text;
    Prepared := True;
    Open;
    if Not IsEmpty then // Kayıt varsa
    begin
      Edit1.Text := FieldByName('KULLANICI').AsString +'  ' + FieldByName('SIFRE').AsString;
    //  Edit2.Text := FieldByName('SIFRE').AsString;
    end
    else
    begin
      Application.MessageBox('Kayıt Bulunamadı!', 'Mesaj',
        MB_Ok or MB_ICONQUESTION);
    end;
  end;
end;

[tayipk]

%100 test edildi ve çalışıyor sırf senin için test ettim sıkıntı yok çalışıyor

Kod: Tümünü seç

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
 ComboBox1.Clear;
adoquery1.Close;
adoquery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from tcari';
ADOQuery1.Open;
while not adoquery1.Eof do
begin
  ComboBox1.Items.Add(ADOQuery1Cari_Adi.AsString+' '+ADOQuery1Cari_Tipi.AsString);
  ADOQuery1.Next;
end;
end;

kolay gelsin

[pma]

Yardımlar İçin Teşekkür Ederim Zahmet Edip Uğraştnız Sağolun