Delphide Karekter Uzunluğu

[aydogan46]

Merhaba Arkadaşlar,
Kod yazarken, query1.sql.add(INSERT INTO ISCI (ISCI_NO,ADI,SOYADI) VALUES (1000,’AHMET’,’SAVAŞ’); gibi olan bir kodda karekter uzunluğu 250 yi aşıyorsa sorun veriyor. ama benim alan sayım 250 karakterden çok fazla. nasıl bir çözüm geliştirmem gerekir. Hepiniz kolay gele

[mucar]

Hangi veritabanını kullandığınızı belirtmemişsiniz. SQL Server alan uzunluğu olarak varchar için 8000 karaktere kadar destek veriyor.

[rsimsek]

Verdiği hata Türkçe karakterlerden kaynaklanıyor olmasın

[aydogan46]

hocam hata o şekilde değil, delphi editörde yazarken henüz daha hatayı veriyor.yani veritabanı alanları zaten buyuk. delphide kod yazma kısmında bir satırda 250 karakteri aştığında veriyo hatayı

[fduman]

Bir satırda yapmazsın sen de.

Kod: Tümünü seç

Query.SQL.Add('SELECT...');
Query.SQL.Add('WHERE ...');
Query.SQL.Add('ORDER BY..');

yaparsın.

[pro_imaj]

Merhaba,
@coderlord hocamın dediğine kesinlikle katılıyorum.
Böyle yaparak istediğiniz kadar. Karakter ekleyebilrsiniz.

Saygılarımla
Kolay gelsin.

[aydogan46]

benimde takıldığım nokta orası zaten konu select olsa sorun yok. ama insert ve values satırlarında 250 karekterden fazla. benim asıl demek istediğim şu. query1.sql.add('values("'+edit1.text+'")') satırını nasıl iki veya üç satırda yazabilirim. sanırım daha net oldu. cevaplarınız için teşekkürler

[gkimirti]

Eger Firebird kullanıyorsan
herbir inserti

INSERT INTO tabloadi (ID,ADI) VALUES (1,'deneme');
INSERT INTO tabloadi (ID,ADI) VALUES (2,'ikinci');

seklinde satır satır IBScript bilesenine ekle ve calıstır....

[aydogan46]

hocam ben hala çözemedim. paradox kullanıyorum.
insert komutunda tek satırda 255 karekteri geçtiğinde hata veriyor. halbuki benim bayagı bir alanım var.

[tuanna]

bu benim yazışım elki fikir verir...

Kod: Tümünü seç

sor.SQL.Clear;
sor.SQL.Add('SELECT Count(Kaynak.kaynakno) AS sor, Kaynak.kaynakadi, ' +'Kaynak.kaynakyazari, Kaynak.kaynakyayinevi, Kaynaktur.kaynakturadi FROM Kaynaktur INNER JOIN Kaynak ON Kaynaktur.kaynakturno = Kaynak.kaynakturno GROUP');
sor.SQL.Add('BY Kaynak.kaynakadi, Kaynak.kaynakyazari, Kaynak.kaynakyayinevi, Kaynaktur.kaynakturadi HAVING (((Kaynak.kaynakadi)='''+trim(kaynakadi)+''') AND ((Kaynak.kaynakyazari)='''+trim(kaynakyazari)+''') AND ((Kaynak.kaynakyayinevi)='''+trim(kaynakyayinevi)+''') AND ((Kaynaktur.kaynakturadi)='''+trim(kaynakturu)+'''))');
sor.Open;

[aydogan46]

data.isci.Close;
data.isci.SQL.Clear;
data.isci.SQL.Add('insert into iscicalisan');
data.isci.SQL.Add('(tckimlikno,Sigortasicilno,adisoyadi,dogumtarihi,isegiristarihi,yukumlukimse,primodemehali,isyerino,olaysaati,olayiscisayisi,yaptigi_is,olus_sekli,taniklar,ay1,ay2,ay3,ay4,gun1,gun2,gun3,gun4,ucret1,ucret2,ucret3,ucret4,prim1,prim2,prim3,prim4,mah1,mah2,mah3,mah4)');
data.isci.SQL.Add('values('''+edit15.Text+''', '''+edit10.Text+''', '''+edit9.Text+''', '''+edit12.Text+''', '''+edit11.Text+''', '''+combobox3.Text+''', '''+combobox4.Text+''', '''+edit102.Text+''', '''+edit13.Text+''', '''+edit14.Text+''', '''+memo1.Text+''', '''+memo2.Text+''', '''+memo3.Text+''', '''+edit18.Text+''','''+edit19.Text+''','''+edit20.Text+''', '''+edit21.Text+''', '''+edit22.Text+''', '''+edit23.Text+''', '''+edit24.Text+''', '''+edit25.Text+''', '''+edit26.Text+''', '''+edit27.Text+''', '''+edit28.Text+''', '''+edit29.Text+''', '''+edit30.Text+''', '''+edit31.Text+''', '''+edit32.Text+''', '''+edit33.Text+''', '''+edit34.Text+''', '''+edit35.Text+''', '''+edit36.Text+''', '''+edit37.Text+''')');
data.isci.ExecSQL;

insert cümlecigi bu. ama alan adlarının olduğu satırda [Error] Unit11.pas(792): String literals may have at most 255 elements hatası veriyor

[aslangeri]

s.a.
1) kodlarınızı code tagı içerisinde yazarsanız daha okunaklı olur.
2) verilen hata mesajının pradoxla alakalı olduğunu zannetmiyorum.
3)kodları şu şekilde deneyin.

Kod: Tümünü seç

data.isci.Close;
data.isci.SQL.Clear;
data.isci.SQL.Add('insert into iscicalisan');
data.isci.SQL.Add('(tckimlikno,Sigortasicilno,adisoyadi,dogumtarihi,isegiristarihi,');
data.isci.sql.add('yukumlukimse,primodemehali,isyerino,olaysaati,olayiscisayisi,');
data.isci.sql.add('yaptigi_is,olus_sekli,taniklar,ay1,ay2,ay3,ay4,gun1,gun2,gun3,
data.isci.sql.add('gun4,ucret1,ucret2,ucret3,ucret4,prim1,prim2,prim3,prim4,mah1,
data.isci.sql.add('mah2,mah3,mah4)');
data.isci.SQL.Add('values('''+edit15.Text+''', '''+edit10.Text+''', '''+edit9.Text+''', ''');
data.isci.sql.add(edit12.Text+''', '''+edit11.Text+''', '''+combobox3.Text+''', ''');
data.isci.sql.add(combobox4.Text+''', '''+edit102.Text+''', '''+edit13.Text+''', ''');
data.isci.sql.add(edit14.Text+''', '''+memo1.Text+''', '''+memo2.Text+''', '''+memo3.Text+''', ''');
data.isci.sql.add(edit18.Text+''','''+edit19.Text+''','''+edit20.Text+''', '''+edit21.Text+''', ''');
data.isci.sql.add(edit22.Text+''', '''+edit23.Text+''', '''+edit24.Text+''', '''+edit25.Text+''', ''');
data.isci.sql.add(edit26.Text+''', '''+edit27.Text+''', '''+edit28.Text+''', '''+edit29.Text+''', ''');
data.isci.sql.add(edit30.Text+''', '''+edit31.Text+''', '''+edit32.Text+''', '''+edit33.Text+''', ''');
data.isci.sql.add(edit34.Text+''', '''+edit35.Text+''', '''+edit36.Text+''', '''+edit37.Text+''')');
data.isci.ExecSQL;

[Hakan Can]

Sorun Delphi editörü ile ilgili.
Delphi içinde 255 karakterden uzun stringleri artı (+) ile bölerek yazmak gerekiyor. Yani:

St1 := 'aaaadfsdfsdfsdfsdfdsdfsfsfds' + 'dfdhgddhd' gibi.

İyi çalışmalar.

[aydogan46]

Aslangeri hocam, çok teşekkür ederim. zahmet edip düzeltmişsiniz. tekrar teşekkürler sorun çözüldü

[rsimsek]

Ayrıca SQL içinde parametre kullanmak da hem string i kısaltacak hem de daha derli toplu görünmesini sağlayacaktır

Kod: Tümünü seç

...
data.isci.SQL.Add('insert into iscicalisan');
data.isci.SQL.Add('(tckimlikno,Sigortasicilno,adisoyadi,dogumtarihi,isegiristarihi,');
data.isci.sql.add('yukumlukimse,primodemehali,isyerino,olaysaati,olayiscisayisi,');
data.isci.sql.add('yaptigi_is,olus_sekli,taniklar,ay1,ay2,ay3,ay4,gun1,gun2,gun3,
data.isci.sql.add('gun4,ucret1,ucret2,ucret3,ucret4,prim1,prim2,prim3,prim4,mah1,
data.isci.sql.add('mah2,mah3,mah4)');
data.isci.SQL.Add('values(');
data.isci.SQL.Add(':tckimlikno,:Sigortasicilno,:adisoyadi,:dogumtarihi,:isegiristarihi,');
...
data.isci.sql.add(':mah2,:mah3,:mah4)');
data.isci.ParamByName('tckimlikno').AsString := edit15.Text;
data.isci.ParamByName('Sigortasicilno').AsString := edit10.Text;
...
data.isci.ExecSQL;