Delphi Forum

TMemo ve TStringList işlemlerinde "BeginUpdate" ve "EndUpdate" kullanırsanız hızlanma sağlarsınız.

Örnek kod:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Lines.BeginUpdate;
try
for I := 0 to 100000 - 1 do Memo1.Lines.Add(FormatFloat('0000000000000', I ...

Şu SQL scriptlerini kullanabilirsin:

update RDB$PROCEDURES
set RDB$PROCEDURE_SOURCE = null
where RDB$SYSTEM_FLAG is null or RDB$SYSTEM_FLAG = 0;

update RDB$TRIGGERS
set RDB$TRIGGER_SOURCE = null
where RDB$SYSTEM_FLAG is null or RDB$SYSTEM_FLAG = 0;

update RDB$RELATIONS
set RDB$VIEW_SOURCE ...

Şuna benzer bir query ile çok hızlı sonuç dönmesi gerekir (hesapkodu alanı her iki tabloda da indeksli ise) :

SELECT
T1.HESAPKODU,
T2.TOPLAMBORC,
T2.TOPLAMALACAK
FROM HESAPKODLAR T1
LEFT JOIN
(
SELECT
HESAPKODU,
SUM(BORC) AS TOPLAMBORC,
SUM(ALACAK) AS TOPLAMALACAK
FROM HESAPLAR
GROUP BY ...

Hocam mümkünse projeyi yeni bir isimde sadeleştirip bizimle paylaşırsanız daha yardımcı olunabilir. Misal QuantumGrid'in farkında olmadan belki bir property'sini değiştirmiş olabilirsiniz.

Kolay gelsin.

Şabanakman'ın kodunu daha derli toplu olarak şöyle kullanabilirsin:

SELECT
T1.TARIH_1,
T1.ADI_SOYADI
FROM
(
SELECT DISTINCT TARIH AS TARIH_1, TARIH AS TARIH_2, CAST(NULL AS VARCHAR(50)) AS ADI_SOYADI, 1 AS GRUP FROM TABLO UNION ALL
SELECT DISTINCT CAST(NULL AS DATE) AS TARIH_1, TARIH AS TARIH ...

Otomatik artan sayı yani IDENTITY olan bir alana direk INSERT işlemi yapamazsınız.

Ya INSERT işleminde bu alanı kullanmayacaksınız (otomatik kendisi artacak) veya SET IDENTITY_INSERT ON/OFF komutlarını kullanacaksınız.

Eğer tablo yapısı şuna benzer birşeyse şöyle bir çözüm olabilir:

SORULAR
------------------
SORU_NO INTEGER
SORU VARCHAR(1000)

CEVAPLAR
---------------
SORU_NO INTEGER
CEVAP_SIRA_NO INTEGER
CEVAP VARCHAR(100)

SELECT
T1.SORU_NO,
T1.SORU,
T2.CEVAP AS CEVAP_1,
T3.CEVAP AS CEVAP_2,
T4.CEVAP AS ...

Şöyle bir query ile istediğin sonuca ulaşabilirsin:

SELECT
T1.URUN
FROM URUN_MIKTAR T1
INNER JOIN
(
SELECT
T1.SAYI * 1 + T2.SAYI * 10 + T3.SAYI * 100 + T4.SAYI * 1000 + 1 AS SAYI
FROM (SELECT 0 AS SAYI UNION ALL SELECT 1 AS SAYI UNION ALL SELECT 2 AS SAYI UNION ALL SELECT 3 AS SAYI UNION ALL ...

Hocam DOSYA tablosu içindeki FILEDATA alanını xxx.gif olarak kaydettim. 4 KB'lık bir dosya ancak açtığımda birşey göstermiyor. Muhtemelen resimleri sıkıştırıp veya kriptolayarak tabloya kaydediyorlar. Açmak için de source kodu görmek gerekecektir.

Belki başka bir açıklaması olabilir. Forumla ...

Hocam CASE WHEN .. WHEN .. ELSE .. END şeklinde kullanılıyor. Önceki SQL scriptinin sonuna ".. < 0 THEN 'Alacak' ELSE 'Sıfır' END AS BORC_ALACAK" diye ilave etmiştim.

Hata burada değil muhtemelen. Hata olan SQL scriptini tam verebilirsen belki nedenini anlayabiliriz.

Kolay gelsin.

Hocam şöyle olabilir:

SELECT
CH.BLKODU,
CH.TARIHI,
CH.EVRAK_NO,
CH.ACIKLAMA,
CH.ISLEM_TURU,
CH.ENTEGRASYON,
CH.FATURA_DURUMU,
CH.KPB_BTUT AS BORC,
CH.KPB_ATUT AS ALACAK,
(SELECT ABS(COALESCE(SUM(KPB_BTUT), 0) - COALESCE(SUM(KPB_ATUT), 0)) FROM CARIHR WHERE CARIHR.BLCRKODU = CH.BLCRKODU AND ...

Hocam, IDENT_CURRENT fonksiyonunu help'ten incelerseniz muhtemelen işinizi görür:

"IDENT_CURRENT( 'table_name' ), IDENT_CURRENT returns the last identity value generated for a specific table in any session and any scope."

SELECT IDENT_CURRENT ('Person.Address') AS Current_Identity;


Kolay ...

Hocam kullandığın query componentinin belki de tanımlı indeksi vardır (IndexFieldNames, Index vs). Query sonunda onu kullanıyor olabilir.

Kolay gelsin.

Hocam, aynı SQL'in farklı sonuç göstermemesi gerekir aynı şartlar altında. Sitede görünen sonuçta sıralama TARIH, BLKODU şeklinde değil (aynı tarihe sahip 4454, 4487'den sonra).

Source kod olmadan (en azından bu bölümlerin olduğu) yorum yapamayacağım.

Kolay gelsin.

Hocam, sorun var mı hala?