CheckBox1

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
dost
Üye
Mesajlar: 104
Kayıt: 08 Oca 2004 11:33

CheckBox1

Mesaj gönderen dost »

Merhaba;

CheckBox1 ı SQL kodu ile Access veritabanına nasıl kaydedebilirim.

Yardımcı olabilirmisiniz ?

Teşekkürler.
Kullanıcı avatarı
muskut
Kıdemli Üye
Mesajlar: 1118
Kayıt: 22 Ara 2003 09:50
Konum: Sandalyemden
İletişim:

Mesaj gönderen muskut »

if checkbox1.Checked then
begin
table1.iligilialan.asstring := 'atamak istediğin değer';
end
else
begin
table1.iligilialan.asstring := 'atamak istediğin değer';
end;


şeklinde bir şey uygulayabilirsin...
Kullanıcı avatarı
muskut
Kıdemli Üye
Mesajlar: 1118
Kayıt: 22 Ara 2003 09:50
Konum: Sandalyemden
İletişim:

Mesaj gönderen muskut »

muskut yazdı:if checkbox1.Checked then
begin
table1.iligilialan.asstring := 'atamak istediğin değer';
end
else
begin
table1.iligilialan.asstring := 'atamak istediğin değer';
end;


şeklinde bir şey uygulayabilirsin...
yaaa bu elaman hep yanlış diyor yaa, adam olmaz bundan :) Kusura bakma kardeş SQL ile sorduğunu geç fark ettim. Basit bir örnek kod yolluyorum. Şimdi yazdım hata kontrolü filan yapmadım, sadece mantık açısından bir fikir sunsun. Checkbox bi tıklamada cinsi True (erkek) olanları diğer tıklamada False (bayan) olanları access tablosundan çekiyorum.

vesselam.


procedure TForm1.CheckBox1Click(Sender: TObject);
var
s : string;
begin
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
if CheckBox1.Checked then
begin
s := 'select * from table1 where Cins = true';
ADOQuery1.SQL.Add(s);
ADOQuery1.ExecSQL;
ADOQuery1.Active := True;
end
else
begin
s := 'select * from table1 where Cins = False';
ADOQuery1.SQL.Add(s);
ADOQuery1.ExecSQL;
ADOQuery1.Active := True;
end;

end;
dost
Üye
Mesajlar: 104
Kayıt: 08 Oca 2004 11:33

Mesaj gönderen dost »

Çok teşekkürler.
Cevapla