Delphi Forum

Merhaba arkadaşlar;

Ben delphi7 kullanıyorum ve raporlama aracı olarak Qr4 yükledim, ancak rapor çıktımı alıp, pencereyi close ettiğim anda

"Project Project1.exe raised exception class EAccessViolation with messaga 'Access violation at adress 00000000. Read of address 00000000'. Process stopped ...

s.a.
Sorun aşağıdaki kodlarda hatayı giderince çözüldü,

Kendime ve aslangeriye teşekkürler.
Demekki sakin kafa ile uğraşmak gerekiyormuş, yukarıda başıma ağrılar girdi demiştim ya, evet ağrılı bir şekilde nerede hata yaptığımı bile göremez hale gelmişim, biraz hırs yaptım :oops: Çoğu kişi için ...

declare @M_NO decimal
select @M_NO=MAX(MUS_NO)+1 FROM MUSTERI1

INSERT INTO MUSTERI1 (MUS_NO,ADI, SOYADI)

SELECT @MUS_NO,ADI,SOYADI FROM MUSTERI2

bu kod ilede MUSTERI1 DEKİ SON KAYDI 1 ARTIRIP MUSTERİ2 DEKİ KAYITLARIN HEPSİNİ AKTARIYOR AMA AKTARILAN KAYITLARIN MUS_NO ları hepsine aynı numarayı ...

var
d:Integer;
begin
d:=form1.musteri1.FieldValues['MUS_NO'];

ADOQ1.Open;

While Not musteri1.Eof do

musteri1.Last;
musteri1.insert;

musteriMUS_NO.AsInteger:= d+1;

musteri1.FieldByName('ADI').AsString:=ADOQ1.fieldbyname('ADI').AsString;
musteri1.FieldByName('SOYADI').AsString:=ADOQ1.fieldbyname ...

Başıma ağrılar girdi aramaktan...
Arkadaşlar özetle şunu yapmam lazım.
İki şubeden birini kapattık ve kapanan şube müşteri tablosundaki müşteri bilgilerini hazırdaki müşteri tabloma aktarmam lazım

1-
mus_no adı soyadı adres tel cep tel
1 aaa bbb ooo 11 533
2 bbb ccc ddd 22 533
3 ccc ııı ...

Örnek olarak kod yazabilirmisiniz.

Çalışan uygulamayı kapatamazsınz ama adını değiştirebilirsiniz. Çalışan exenin adını değiştirin, yenisini orjinal adıyla kaydedin. Yeni exe'yi çağırın. Yeni exe açılırken eskisi var mı diye kontrol etsin ve silsin (tabiki tasklist takip edip eskisinin kapandığınıda bilmesi lazı)

Buda güzel, exe ...

"gkimirti » 28 Kas 2011 11:55

exe dosya herkesin lokalinde calışmalı,
mesela program her açılışta server bir pc üzerinde çalışan uygulama ile bağlantı kurar ,
güncel versiyon kontrolu yapar.
eger varsa lokale kopyalanır.
bu sırada da bir pencerede "güncel versiyon bulundu, lütfen bekleyiniz"
gibi ...

Select mus_kod, cınsıyet, durum count(mus_kod) as toplam from kisi
group by mus_kod, cınsıyet_durum

sorgum bu ve yukarıdaki sonucu alıyorum, bu sorgudan çıkan sonuçtan da
101 erkek aktif olanların toplamınıda excell A11 hücresine
101 erkek pasif olanların toplanını excell b11 hücresi gibi bunu ...

örnek için teşekkürler ama sorunuma çare olmadı

slm
Excel e aktarma konusunda bir çok siteden araştırma yaptım
ancak query sorgusunda aldığım sonucu tekrar sorgulayarak excel e gönderme ile ilgili sonuç bulamadım
veya ben ters bir mantıkta ilerliyorum
query sorgum
mus_kod cınsıyet durum toplam
101 ERKEK AKTİF 3
101 ERKEK PASİF 9
101 KADIN AKTİF ...