Lock file has grown too large

[itsmylife38]

Delphi Ustaları merhaba;

Paradox belasına bulastım birkere Mustafa hocam takip ediyorum en kısa sürede firebirde gecegim yanlız su anki projemde Ayrıntılı bir rapor almam gerekiyor ve her alan icin bir sorgu calıstırmak zorundayım!

Yaklasık 9 adet Query sorgusu her satır icin calısıyor

2 tarih arası belirli bir süre komutlar işliyor ama "'Lock file has grown too large' " hatasına düşüyor forumda arastırdım Aslangeri Hocam LCK dosyalarının büyüklügü ile ilgili demiş

WinExec('command.com /c del *.LCK',sw_Hide);

Her dongude LCK silerek çözmeye calıstım ama olmadı sanırım.

Birde Calışma anında yani bu lck dosyası kullanılıyorken silme işlemi yapılabilir mi ?

Hızlı Rapor almam icin neleri önerirsiniz firebird derdime care olacakmıdır ?

MsSQL gibi paralı veritabanlarını mı kullanmalıyım, netsiste daha karmasık ve cok kayıtlı raporlar bile daha hızlı geliyor ekrana...

Lütfen öneri ve yardımlarınızı bekliyorum !

Tesekkurler Allah bu siteyi kuranlardan ve kullanıcılarından Razı olsun!

Kod: Tümünü seç

QUERY5.CLOSE;
QUERY5.SQL.Clear;
QUERY5.SQL.ADD('SELECT PARTNO,MODEL FROM URUN');
QUERY5.SQL.ADD(' ORDER BY PARTNO ');
IF QUERY5.Prepared THEN QUERY5.PREPARE;
QUERY5.OPEN;


query5.FIRST;
WHILE query5.EOF=FALSE DO BEGIN
QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN TOPLAM:=0 ELSE TOPLAM:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

IF TOPLAM<>0 THEN
BEGIN

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND GARANTI<>""');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN TEKRAR:=0 ELSE TEKRAR:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND ((DURUM="CLOSED(IW)") OR (DURUM="CLOSED(CC IW)")) AND ACIKLAMA NOT LIKE "%NFF%" ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN TIWFF:=0 ELSE TIWFF:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND ((DURUM="CLOSED(IW)") OR (DURUM="CLOSED(CC IW)")) AND ACIKLAMA LIKE "%NFF%" ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN TIWNFF:=0 ELSE TIWNFF:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND CC<>"" ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN CC:=0 ELSE CC:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND CC<>"" AND ((DURUM="CLOSED(IW)") OR (DURUM="CLOSED(CC IW)")) AND ACIKLAMA NOT LIKE "%NFF%" ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN CCIWFF:=0 ELSE CCIWFF:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;


QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND CC<>"" AND ((DURUM="CLOSED(IW)") OR (DURUM="CLOSED(CC IW)")) AND ACIKLAMA LIKE "%NFF%" ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN CCIWNFF:=0 ELSE CCIWNFF:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

{QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND CC<>"" AND ((DURUM="CLOSED(OOW)") OR (DURUM="CLOSED(CC OOW)")) ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN CCOOW:=0 ELSE CCOOW:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;
}
QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND ((DURUM="CLOSED(BER)") OR (DURUM="CLOSED(SCRAP)")) ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN BER:=0 ELSE BER:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;

QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.ADD('SELECT SUM(ADET) FROM GIDENPO');
QUERY1.SQL.ADD('WHERE NCRNO='''+query5.FieldByName('PARTNO').ASSTRING+''' AND (DURUM="CLOSED(RTN)") ');
QUERY1.SQL.ADD(' AND FOUT BETWEEN'''+MASKEDIT1.TEXT+'''AND'''+MASKEDIT2.TEXT+''' ');
IF QUERY1.Prepared THEN QUERY1.PREPARE;
QUERY1.OPEN;

IF QUERY1.FIELDBYNAME('SUM OF ADET').VALUE=Null THEN RTN:=0 ELSE RTN:=QUERY1.FIELDBYNAME('SUM OF ADET').VALUE;


   TABLE1.INSERT;TABLE1.EDIT;
   TABLE1.FieldByName('PARTNO').ASSTRING:=query5.FieldByName('PARTNO').ASSTRING;
   TABLE1.FieldByName('DESCRIPTION').ASSTRING:=query5.FieldByName('MODEL').ASSTRING;
   TABLE1.FieldByName('TOPLAM').VALUE:=TOPLAM;
   TABLE1.FieldByName('1GIRIS').VALUE:=toplam-tekrar;
   TABLE1.FieldByName('TEKRAR').VALUE:=tekrar;
   TABLE1.FieldByName('TIWFF').VALUE:=TIWFF;
   TABLE1.FieldByName('TIWNFF').VALUE:=TIWNFF;
   TABLE1.FieldByName('TOWW').VALUE:=tekrar-(TIWFF+TIWNFF);
   TABLE1.FieldByName('CC').VALUE:=CC;
   TABLE1.FieldByName('CCIWFF').VALUE:=CCIWFF;
   TABLE1.FieldByName('CCIWNFF').VALUE:=CCIWNFF;
   TABLE1.FieldByName('CCOOW').VALUE:=cc-(CCIWFF+CCIWNFF);
   TABLE1.FieldByName('BER').VALUE:=BER;
   TABLE1.FieldByName('RTN').VALUE:=RTN;
   TABLE1.POST;

END;
WinExec('command.com /c del *.LCK',sw_Hide);

query5.NEXT;
END;

QUERY2.CLOSE;
QUERY2.SQL.Clear;
QUERY2.SQL.ADD('SELECT * FROM AYRINTILI');
QUERY2.SQL.ADD('ORDER BY TOPLAM DESC');
IF QUERY2.Prepared THEN QUERY2.PREPARE;
QUERY2.OPEN;

[itsmylife38]

Bir Önceki mesajımda hata kodunu yanlıs yazmısım aynı baslıktan iki adet oldu galiba ama digeri 2003 senesinde kapanmıs benden baska paradox ile cebeleşen kalmadı sanırsam !

Tesekkur Ederim !