sql programı çık yavaşlattı..

[forumsad]

Kod: Tümünü seç

//*******************************************************************************
////elektirik kesilmesi ve veritabanı kayıt işlemleri için giden her puan
//kaydedilir


procedure F1OtomatikKaydet(sira,puan:integer);
begin
DMoyunKaydet.ADOquery1.SQL.Clear;
DMoyunKaydet.ADOQuery1.Close;
DMoyunKaydet.ADOQuery1.SQL.Add('select * from tblOyunlar where ID='+IntToStr(OyunId));
DMoyunKaydet.ADOQuery1.Open;


DMoyunKaydet.ADOQuery1.Edit;
DMoyunKaydet.ADOQuery1.FieldByName('OyP1'+IntToStr(sira)).AsString:=IntToStr(puan);
DMoyunKaydet.ADOQuery1.Post;
DMoyunKaydet.ADOQuery1.Close;
end;
//*******************************************************************************
/////////////////////////////////////////////////////

yukardaki şekilde 10-15 ayrı yerde kod kullanarak güncelleme yapıyorum
ama program çık yavaşladı
açık unuttuğum bir şey mi var acaba..

saygılarımla

[csunguray]

1. ID sahasına göre indeksiniz var mı? Yoksa oluşturun.

2. Open, Edit, Post yapacağınıza doğrudan

Kod: Tümünü seç

DMoyunKaydet.ADOQuery1.Connection.Execute('update tblOyunlar set OyP1' + IntToStr(sira) + ' = ' + IntToStr(OyunId) + ' where ID=' + IntToStr(OyunId));

kullanın.

[forumsad]

teşekkürler hocam verdiğiniz kodu deneyeceğim

sorunu buldum tabloyu 250 hücreli yapmıştım ado bağlanırken sanırım tüm hücrelere bakmaya çalışıyor
hücre sayısını 25 e düşürdüğümde hız normale döndü..

saygılarımla

[forumsad]

hacam select için bu kodu nasıl kullanacağız acaba

Kod: Tümünü seç

DMoyunKaydet.ADOQuerySave.SQL.Clear;
DMoyunKaydet.ADOQuerySave.SQL.Add('select * from tblOyunlar where ID='+IntToStr(Oyun1Id));
DMoyunKaydet.ADOQuerySave.Open;
if DMoyunKaydet.ADOQuerySave.fieldbyname('Bitti').value=0 then OyunAcikmi:=DMoyunKaydet.ADOQuerySave.fieldbyname('Bitti').value;

bu kodun yerine Execute olayını nasıl kullanacağız


saygılarımla

[Kuri_YJ]

Selamlar,

250 Field'lık bir tablo???? Hem de M$-SQL Serverda... Bence tablo yapını gözden geçir, mutlaka bir yanlışın var. Dizayn ile ilgili bir sıkıntın var.

Kolay Gelsin
Adnan