Delphi Forum

ARKADAŞLAR SORUNU AŞAĞIDAKİ GİBİ HALLETTİM ARKADAŞLARA FAYDALI OLMASI DİLEĞİYLE. ŞABAN ABİMİN KODUNDAN HAREKETLE TABİ. ÇOK TŞK. EDERİM ŞABAN ABİ.

select *, (CevapSayi*100/Toplam) as Yuzde from (select *, (select sum(CevapSayi) from anketsecenek C WHERE ([C.AnketId] = ?) ) as Toplam from (select ...

abi kodu aşağıdaki gibi düzenlediğimde çıktısı altındaki gibi geliyor. ancak burda şu sorun var toplam bu
WHERE ([AnketId] = ?) için sadece bu id ye eşit olanları bir arada toplaması gerekirken tüm idlerin toplamını alıyor.
sayi alanı gerek değil sorun değil visible false yaparım. ancak WHERE ...

şaban abi senin kodlarına bakarak kendime uyarlamaya çalıştım aşağıdaki gibi ancak from yantümcesinde söz dizimi hatası verdi.

select *, (CevapSayi*100/Toplam) as Yuzde from
select *, (select sum(CevapSayi) from anketsecenek) as Toplam
from anketsecenek
group by cevapsayi

Ack isimli bir alan ve tbl isimli access tablosunda aşağıdaki sorguyu çalıştırdım yapısını incelemeni tavsiye ederim.

select *, ( Sayi *100/ Toplam ) as Yuzde from ( select *, ( select count(*) from tbl ) as Toplam from ( select Ack, count(*) as Sayi from tbl group by Ack ) as Genel ) as Sonuc ...

acces veritabanındaki secenek tablomda bulunan cevapsayi alanının yüzdesini almak istiyorum.
secenek cevapsayi
a) seviyorum 15
b) sevmiyorum 12
c) fikrim yok 9

böyle bir yapıda istediğim (tek sql sorgusu ile) her şıkkın yüzdesini almak. toplam cevapsayısı 36 buna göre
mesela a şıkkının yüzdesini ...

güzel

Bir veri tabanı yapacağım. programadi, ve yolu cd yi takınca
direk autorun yapıyorum. formum geliyor. program adı ve yolunu db
ye önceden kaydetmiştim. çalıştır butonuna basınca db deki yoluna
gidip programın adı neyse o programı çalıştırmak kurmak vs. istiyorum.
değişken tanımlayarak yapmak ...

query1.databasename:='c:\baksil\data';
query1.sql.clear;
Query1.active:=false;
Query1.sql.add('select birimi, cinsi, cpu,tahsiseden from bilgisayar');
Query1.sql.add('order by birimi');
query1.open;
query1.active:=true;


kodları böyle butonun clicki ile çalıştırınca sorun yok ancak aşağıdaki gibi ...

text dosyasının içine kaydedilmiş veritabanı yapısını olduğu gibi MySQL’e boca etmek istiyorum.
örneğin

CREATE TABLE defter (
id int(10) unsigned DEFAULT '0' NOT NULL auto_increment,
tarih int(11) unsigned DEFAULT '0' NOT NULL,
isim varchar(50) NOT NULL,
posta varchar(100) NOT NULL,
url ...

t-hex gönderdiğin kodda tarih çıkarması yaptığımda istidiğim formata uygun ancak
17.11.2000
17.05.1999
tarihlerini çıkarttığımızda 0 gün 6 ay 1 yıl olarak yazması gerekirken bu kodlara göre 2 gün 1 ay 1 yıl şeklinde bir sonuc veriyor.
yine
24.03.2004
24.03.2004
çıkartıldığında ise 0 gün 0 ay 0 ...

hocam tşk. işimi gördü. çok sağl.

encodedatetime yazan satırda hata veriyor.

01.01.1995
01.01.2004

bu iki tarihi çıkarttığımda bana 557 gün farkı var şeklinde değilde
atıyorum 2 yıl 5 ay 23 gün şeklinde bir sonuc vermesini istiyorum. forumda sorulara baktım tabiki araştırmadan yazmadım. ancak forumdaki soruların tamamına verilen cevaplarda benim istediğim gibi değilde 554 ...

ShellExecute(Handle, 'open','\cdgiris\'+'turizm.pps',nil,nil,sw_ShowMaximized);


şeklinde değiştirdim oldu. sorun bu şekilde çözülmüş oldu. saygılarımı sunuyorum.

WinExec(Pchar(ExtractFilePath(Application.ExeName)+'\cdgiris\'+'turizm.pps'), SW_SHOWNORMAL);

kodları yukardaki gibi yazmama ragmen çalışmadı. acaba diyorum pps uzantili olan dosyalarmı çalışmıyor. illaki exe mi olmalı. yada uses kısmına bir terim eklemem gerekiyor mu?