Firebird Sql komutlari cikamadim icinden...

[ikra]

öncelikle selamu aleyküm...

arkadaslar, hocalarim....

Firebird ögreneyim dedim sinir sistemlerim alt üst oldu...

simdiye kadar hic görmedigim seyler ile karsi karsiyayim...

sql icinde sartlandirma yapmak icin parametre kullanmak zorundayim...

Kod: Tümünü seç

IBQuery.selectsql.add('select * from tablo where isim="'+isim.text+'"');

bu sekilde yazdigimda calismiyor. mecburen parametre olarak bildirmeliyim...

parametresiz olmuyor mu? yoksa ben mi beceremiyorum?

update etmek istedigimde ise field i bulamadigini söylüyor oysaki field var. fieldlist e de ekledim. sartlandirip update etmek istedigimde ise sart i es geciyor ve tüm tabloyu update ediyor.

tek bir veriyi secip edit komutu ile modify etmeye calisiyorum, tabloda var olan tüm kayitlar modify oluyor

bunca kisi firebird den memnun ise hata muhakkak benden kaynaklaniyodur...

[ikra]

özür dilerim... IBQuery degil IBDataSet kullaniyorum...

[Fatih!]

forumun makaleler kısmındaki döökümanlara bir gözatmanı tavsiye ediyorum
viewtopic.php?t=9819&highlight=ibquery

[fduman]

" değil ' kullanmalısın. Olmaması için başka bir sebep yok.

[ikra]

CoderLord hocam string oldugu icin bu sekilde kullandim ve diger veritabanlarini sorgularken bu calisiyor. bir de o sekilde deniyeyim...


FAOSoft hocam makaleleri okuyarak ögrenmeye calisiyorum. sanirim delphitürkiye de okumadigim makale kalmadi

ilginiz icin tesekkür ediyorum... deneme yanilma yöntemlerine devam ederek bu isi cözecegim Allah'in izni ve sizlerin yardimlari ile...

[rsimsek]

IBQuery olarak en kolay yol şu;

Kod: Tümünü seç

IBQuery.SQL.Clear;
IBQuery.SQL.Add('select * from tablo where isim= :ARANAN');
IBQuery.Prepare;
IBQuery.ParamByName('ARANAN').AsString := Isim.Text; 
IBQuery.Open;

[selman]

selam
kardeş aslında sizin yazdığınız kodlarla ilgili bir sorun yani firebirdle alakası yokki
normalde bu kodları mesela paradoxda da yazsanız yine aynen hata verecektir

[fahrettin]

Recep abinin verdigi kod ile parametre kullanarak da olur. sizin yatiginiz sekilde de olur.
Fakat sizin kodda tirnak " problemi var. ornek kodlardan quotedstr fonksiyonu ile nasil yapildigini bulabilirsiniz.
Sadece quotedstr seklinde aeatmayla orneklere ulasabilirsiniz...

[rsimsek]

Evet çift tırnak kullanmışsın.

IBQuery.selectsql.add('select * from tablo where isim="'+isim.text+'"');

yerine iki tane tek tırnak kullanmalısın.

Kod: Tümünü seç

IBQuery.selectsql.add('select * from tablo where isim='''+isim.text+'''');

kullannalısın. Yine de yöntem olarak yukarıdaki yazdığım daha anlaşılır ve sağlam bir yöntem

[ikra]

hocalarim. Parametre ile de denedim. fakat büyük kücük harf ayrimi yapiyor. yani Simsek ile simSek ayrimi yapiyor... arama kriterlerine aynen kayit ettigim sekilde yazmam gerekiyor ki, sonuc versin. aksi taktir de kesinlikle sonuc alamiyorum... Yavuz olarak kayit ettigim bir isimi yAvuz olarak arattigimda sonuc alamiyorum fakat Y ile yada Ya ile arattigimda sonuc alabiliyorum... bu da büyük kücük harf sorunu oldugunu gösteriyor... var dir elbet bir yöntemi ama nasil???

[NewMember]

upper yöntemini kullan

Kod: Tümünü seç

IBQuery.selectsql.add('select * from tablo where upper(isim)=upper('''+isim.text+''')');

[ikra]

Kod: Tümünü seç

qpersonal.Close;
qpersonal.SelectSQL.Clear;
qpersonal.SelectSQL.Add('SELECT * FROM PERSONAL WHERE '+(sender as TSuiEdit).Name+' LIKE :ara ORDER BY '+(sender as TSuiEdit).Name+' ASC');
qpersonal.ParamByName('ara').Value := (sender as TSuiEdit).Text+'%';
qpersonal.Open;

qpersonal = IBDataSet

hocalarim yukarida belirtmis oldugum kod su an program icerisinde kullandigim kodlar dir...

bu sekilde yapmis oldugum bir aramada daha önceden de belirtmis oldugum gibi büyük ve kücük harfleri ayirmakta ve dolayisi ile dogru sonuc alamamaktayim...

tecrübelerinizi ve fikirlerinizi benimle paylasmanizi rica ediyorum...

selam ve dua ile...

[ikra]

tamam... Hepinize coookkk tesekkür ediyorum.... Allahim razi olsun insaAllah... olay yardimlariniz ile cözüldü... sükürler olsun... sizlerden ögrenecegim daha cookkk sey var...

UPPER yapmak gerekiyormus...
kodun su an ki halini asagiya yaziyorum. ileride ayni sorun ile karsilasan arkadaslara yardimci olmasi umudu ile...

Kod: Tümünü seç

qpersonal.close;
qpersonal.selectsql.clear;
qpersonal.selectsql.add('select * from personal where upper('+(sender as TSuiEdit).Name+') like upper(:ara) order by '+(sender as TSuiEdit).Name+' asc');
qpersonal.ParamByName('ara').Value := (sender as TSuiEdit).Text+'%';
qpersonal.Open;