Delphi Forum

baypipox yardımınız için çok teşekkür ederim, kodunuz hatasız çalışıyor. benim unuttuğum yada bilmediğim bir şey var galiba, kodunuzu inceliyorum çok teşekkür ederim.

Merhabalar 2003 kullanıyorum zaten, pastespeciali de denedim ama aynı hatayı veriyor.

bu satıra geldiğinde worksheet sınıfının paste yöntemi başarısız

hatası veriyor
exceli açıyor ama paste yapamıyor, neden olabilir acaba.

evet
sql=sql+' and DONANIM_TURU='''+combobox1.text+'''';
kod çalıştı dizi gibi mecralara kaymamın sebebi sqli yeterince bilmemem yani bu şekilde kullanabileceğimi bilmiyordm, çok teşekkürler.
önerebileceğiniz sql le ilgili bir kaynak olursa sevinirim.
Birde çok önemli değil ama önceki kodda ...

DataModule3.IBQuery1.Close;
DataModule3.IBQuery1.open;
DataModule3.IBQuery1.sql.Clear;

sql:='select * from DONANIM where 1=1 ';
if edit13.text<>'' then sql:=sql+ 'and MARKA like '+#39+formtyaz(edit13.text)+'%'+#39;
if edit14.text<>'' then sql:=sql+ 'and MODEL like '+#39+formtyaz(edit14.text ...

cevabınız için teşekkür ederim ancak bahsettiğiniz fonksiyonu zatten kullanıyorum bu fonksiyon sadece ı,i gibi karakterleri düzenliyor.
ben ş,ğ gibi karakterlerde de problem yazşıyorum, bu sorunu ş ğ gibi karakterleride fonksiyona tek tek ekleyerek çözdüm fakat bu problemi daha önce yaşamamıştım
bu ...

merhabalar
firebird veritabanı ve ib bileşenlerini kullanıyorum.
veri tabanına türkçe karakterler doğru olarak yazılıyor.
fakat edit dbgrit gibi nesnelere verileri programdan aktardığımda karakterler yanlış görünüyor. ş ğ i gibi karakterler.
forumda aramama rağmen cevap bulamadım. firebird ksımında ...

çok teşekkür ederim qamyoncu

şu kadarcık şey için okadar çok zaman harcadım ki inanamazsın
programcılık yapılacak iş değil valla olsa olsa en fazla bir hastalıktır
veba gibi birşey bu.

Function formtyaz(frmy: ansistring):ansistring;
var
a:integer; ch:string;
begin
if length(frmy)=0 then
exit;
FOR A:=1 TO LENGTH(FRMY) DO
BEGIN
CASE FRMY[A] OF
'ı': FRMY[A] := 'I';
'i': FRMY[A] := 'İ';
else
begin
ch:=FRMY[a];
ch:=ansiUpperCase(ch);
FRMY[a]:=ch[1];
end;
end;
end;
result:=frmy;
end ...

Merhabalar

Formun birinde girdiğim kayıtları diğer bir formda farklı İBdatabase bileşeni ile görüntülediğimde kaydı göremiyorum.
ancak programı kapatıp açarsam ozaman eklenen kayıtları veya değişiklikleri görebiliyorum.
ilk formda ibdataset (formlar ayrı datamodullerden ayrı ibdabase ve ayrı ...

merhabalar bu kodu bir kaç sene önce delphi 7 ile kullanmıştım.

şimdi aynı kodu başka bir projede delphi 2009 ile kullanmak istiyorum

FRMY[1] :=ch[1];

satırında hata veriyor.

[DCC Warning] cihaz_teslim.pas(88): W1057 Implicit string cast from 'AnsiChar' to 'string'
[DCC Error] cihaz_teslim.pas ...

Emeği geçen herkese,
forumda engin tecrube ve bilgilerini paylaşan tüm forum arkadaşlarına teşekkür ediyorum.

şu satırı uyarlayamadım
prepared komutu ne işe yarıyor onuda çözemedim.

teşekkürler..

menderes hocam şimdi size nasıl teşekkür edecem bilemiyorum, verdiğiniz kod çok güzel çok teşekkür ederim.

ALUCARD arkadaşım sizede çok teşekkür ederim menderes hocamın vermiş olduğu koda sizin kodu ekleyince kayıdı bulamıyor. eşleşme sağlanmadığı için. Olsun böylede olsa çok işimi gördü.

Bu kodu ...

evet yardımınız için teşekkür ederim.
Bunu yapmak istiyordum fakat şöyle bir problem var kayıtların hepsini listelemiyor. kodum şu:

VAR
X:integer;
begin
combobox1.items.clear;
FDatamod_CariBasYeni.IBDataSet1.Open;
FDatamod_CariBasYeni.IBDataSet1.first;
for X:=0 TO FDatamod_CariBasYeni ...