Veri Getirme Sorunu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
KingStriker
Üye
Mesajlar: 48
Kayıt: 16 Eki 2006 01:00
Konum: IstanbuL

Veri Getirme Sorunu

Mesaj gönderen KingStriker »

Arkadaşlar rahatsız ediyorum ama paradox veritabanımdan edit1.text e nasıl veriyi getirebileceğimi çözemedim :S

edit1.text:=query1.sql.add('select ...'); gibi yazdım ama hata verdi ne yapabilirim acaba ? şimdiden tsk ederim ;)
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Yeni başlıyoruz herhalde, başarılar...

Kod: Tümünü seç

  edit1.Text := Query1.FieldByName('AdiSoyadi').AsString;
şeklinde bir tanımlama gerekir...

- Kurgu ise aşağıdakinin türevi olacak.

Kod: Tümünü seç

  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM Adresler' );
  Query1.Active := True;
  edit1.Text := Query1.FieldByName('AdiSoyadi').AsString;
  Query1.Active := False;
Resim
Resim ....Resim
KingStriker
Üye
Mesajlar: 48
Kayıt: 16 Eki 2006 01:00
Konum: IstanbuL

Mesaj gönderen KingStriker »

Evet yeni başlıyorum ve sayenizde veri getirmeyi artık öğrendim :) çok teşekkür ederim bilgi için. :alkis: :alkis:
Yangınların İzini Aşklar Siler Sevdiğim...
KingStriker
Üye
Mesajlar: 48
Kayıt: 16 Eki 2006 01:00
Konum: IstanbuL

Mesaj gönderen KingStriker »

Abi bir sorunum daha olcaktı yaf :S mesela bi edit'e girilen sayıyı db de karşılaştırıp o değere eşit olanları listeleyen sql komutunu yapamadım bi türlü

Kod: Tümünü seç

procedure TForm1.editparalanChange(Sender: TObject);
var x: integer;
begin
x:=strtoint(editparalan.Text);
 sorgu1.SQL.Clear;
  sorgu1.SQL.Add('SELECT aadi FROM palan where 'x'=ano ' );
  sorgu1.Active := True;
  label1.Caption:= sorgu1.FieldByName('palan.aadi').AsString;
  sorgu1.Active := False;
end;

böyle yaptım ama şu x i nasıl komutun içine yerleştiricem çözemedim bi türlü :([/code]
Yangınların İzini Aşklar Siler Sevdiğim...
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Kod: Tümünü seç

  sorgu1.SQL.Add('SELECT aadi FROM palan where ano = '+ QuotedStr( editparalan.Text ) ); 

QuotedStr bir fonksiyondur, bir text'i tırnak içine alma işlemi yapar yarar.
Resim
Resim ....Resim
KingStriker
Üye
Mesajlar: 48
Kayıt: 16 Eki 2006 01:00
Konum: IstanbuL

Mesaj gönderen KingStriker »

üstad sorguyu formdaki property penceresinden aktive ozelligini true yapıyım dedim kontrol amaclı fakat program bir kilitlendi simdi kod penceresine de gelemiyorum proje kilitlendi :oops: bayağı bi çömezmişim ben yaw :cry:
Yangınların İzini Aşklar Siler Sevdiğim...
Kullanıcı avatarı
ozsal
Üye
Mesajlar: 108
Kayıt: 22 Oca 2006 07:55
Konum: izmir
İletişim:

Mesaj gönderen ozsal »

1. data modul kullanmayı alışkanlık haline getirmen yararına olacaktır.

2. query deki sql tanımlamasına ' select * from tablo ' yazdıysan querynın üzerine ii kere tıkla
acılan pencrede sağ tıklatıp add all fields i seç. Tablondaki bütün fieldler eklenir.
daha sonra bu fieldlerin herhangi birini sürükle bırak ile form üzerine taşıdığın zaman ; istediğin databaseden veri getirme işini halletmiş olursun sanırım ;
2.


ikinci soruna da parametre kullanarak yap.

Kod: Tümünü seç

x:=strtoint(editparalan.text);
query1.close;
query1.sql.clear;
query1.sql.add('select * from tablo where palan=:pal ');
query1.parameters.parambyname('pal').value:=x;
query1.open;
;)
Kullanıcı avatarı
Kuri_YJ
Moderator
Mesajlar: 2248
Kayıt: 06 Ağu 2003 12:07
Konum: İstanbul
İletişim:

Mesaj gönderen Kuri_YJ »

Selamlar,

Madem yeni başlıyorsun :)

viewtopic.php?t=5800

Buraya bir göz at, gereksiz Paradox ile cebelleşme :)

Kolay Gelsin
Kuri Yalnız Jedi
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Cevapla