Garip bir Kapanma sorunu...

[beyuslu]

MErhaba;

projemde Sql databaseime kayıt yaparken 100 kayıt birden girerken 60 veya 70 kayıttan sonra program kendi kendine kapanıyor...acaba aynı anda yapılan coklu kayıttanmı yoksa sql denmi?

Nedir yorumunuz...

[doctorfunks]

Slm
Verileri nasıl kaydediyorsunuz ?
Döngüyle ise loop'a giriyor olabilir

[beyuslu]

_

[beyuslu]

Kimse bir yorum yapmayacakmı?

[mkysoft]

Kullandığınız veri tabanı bileşeninden oluyor büyük ihtimalle. Bende aynı sorunu yaşıyordum bir ara. Kullandığınız companentlerin güncel olduğundan emin olun.

[Ertugrul]

-Insert query + Parametre seklinde kayit girin. ( Q1.SQL.Text:='INSERT INTO T (F1,F2) VALUES(:F1,:F2)'; Q.Parameters[0].Value:='A'; Q.ExecSQL; )
-Dongude alanlara FieldByName yerine Fields[0] ya da Table1FieldName.Value seklinde ulasin.

[beyuslu]

Bu söylediklerinin hepsi ok zaten üstat... söyle söylim..

for a:=0 to memo1.lines.count -1 do
begin

query...insert..into..vs vs

end;

dye gidiyor..

memo list 30 bin mesela.. 10 bine geliyor örnegin 10 binde hata veriyor.. tıkanıyor yani.. nasıl üstesinden gelirim bunun?

[beyuslu]

Nedir Fikriniz?

[Ertugrul]

memo yerine stringlist kullanin.

Kod: Tümünü seç

var
x:TStringList;
i: integer;
begin
  x:=TStringList.Create;
  x.LoadFromFile('A.TXT');
  if Q.Active then
    Q.Close;
  Q.SQL.Text:='INSERT INTO TABLO(EKLENECEKALAN) VALUES(:EKLENECEKALAN)';
  for i:=0 to x.lines.count-1 do
  begin
     Q.Parameters[0].Value:=x[i];
     Q.ExecSQL;
  end;
  FreeAndNil(x);
end;

[sabanakman]

Liste kullanılacağı zaman üstte Ertugrul'un verdiği örnekteki gibi TStringList sınıfı kullanılmalıdır ki, işlemler çok daha süratli ve sağlam gerçekleşsin. Eğer görsel bileşenlerin özelliği üzerinden bu işlemler takip edilirse listeyi bellekte tutmanın yanı sıra görsel olarak ta bazı işlemler çalışacağından çok daha hantal bir yapı olacaktır. Ayrıca ilk sorudaki hatadan çıkardığım anlam programın bellek kullanımında sorunları var. Bunun gibi başka yerlerde de belleğe yükleniyorsanız kullandığınız yapıya dikkat etmenizi ve daha sağlam ve iyi hale gelecek şekilde elden geçirmenizi öneririm.

[emin_as]

Program çalışırken görev yöneticisini açıp, programın bellek kullanımını incele.

Transaction kullanıyorsan, her 100 kayitta bir transaction u commit et, bu şekilde transaction ın neden olduğu tıkanmaların önüne geçersin.

Insert ettiğin table i kullanan başka componentlar varsa, onları kapalı tutmayı unutma.

[csunguray]

Bu davranış en çok "Stack overflow" hatalarında meydana geliyor. Büyük ihtimalle kendi kendini çağıran bir fonksiyon söz konusu. Böylece program sonsuz döngüye giriyor ve hazin sonla karşılaşıyorsunuz.

[beyuslu]

x.lines.count derken linesi tanımadı delphi??

[sabanakman]

x'in Lines'ı yok direkt x.count yazarak kullan. Zira her ikisi de TStrings sınıfına karşılık geliyor.

[beyuslu]

teşekkür ederim..ÇAlışıyor