Sqlite Data Hatası

[Sistemci]

biraz işlerim var yardım edecem kardeşim sabır

[murat3246683]

tmm abicim sen iste yeterki  :jump:

[Sistemci]

Buyur Kardeşim nerdeyse baştan yazdım bütün kodlarda hata vardı işallah işini görür

http://www.mediafire.com/download/uhj612un133y582/Teknik_Servis_Programı.apz

[murat3246683]

hocam eline koluna sağlık ya senin hakkını nasıl ödecim ya cok teşekkür ederimm  birde bu 

KintaRo hocamın kodunu ben nereye yazacağım Edited May 16, 2014 by murat3246683

[murat3246683]

hocam not menüsü ve garanti menüsündeki silme kodları calışmıyo ben dün paylaştığından beri uğrasıyom ama yapamadım düzeltme yapıyom sadece not yazan yeri siliyor garanti te ise gönderen kişiyi siliyor diyerleri aynı duruyor.

 

 

nSecilen = TreeList.GetSelected("liste1") -- secilene bak

if nSecilen ~= -1 then -- eğer seçilen varsa

nID = TreeList.GetRowData("liste1", nSecilen)

adi = TreeList.GetCellText("liste1", 0, nSecilen)

sSoru = Dialog.Message("Uyarı!", adi .. " Not Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor

if sSoru == IDYES then -- eğer evet tusuna basilirsa

sql.baglan()

SQLite3Connection:execute("DELETE FROM note WHERE id='" .. nID .. "'")

sql.kapat()

Page.Jump("Page1") -- sayfayi yenile

end

end

 

sql.baglan()

db, err = SQLite3Connection:execute("SELECT * FROM note");

tVeri = db:fetch({}, "a")

TreeList.ClearRows("liste1")

while tVeri do

 

id                   = tVeri.id

adi                = tVeri.adi

soyadi           = tVeri.soyadi

adres          = tVeri.adres

telefon         = tVeri.telefon

mail              = tVeri.mail

tarih              = tVeri.tarih

nott               = tVeri.nott

 

TreeList.AddRow("liste1", id .. "|" .. adi .. "|" .. soyadi .. "|" .. adres .. "|" .. telefon .. "|" .. mail .. "|" .. tarih .. "|" .. nott, nil, nil)

tVeri = db:fetch(tVeri,"a");

end

sql.kapat();

 

[Sistemci]

Not Silme Butonu Kardeşim

[spoiler]nSecilen = TreeList.GetSelected("liste1") -- secilene bak
if nSecilen ~= -1 then -- eğer seçilen varsa
nID = TreeList.GetCellText("liste1", 0, nSecilen)
sSoru = Dialog.Message("Uyarı!", nID .. " Not Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor
if sSoru == IDYES then -- eğer evet tusuna basilirsa
sql.baglan()
SQLite3Connection:execute("DELETE FROM note WHERE id='" .. nID .. "'")
sql.kapat()
Page.Jump("Page1") -- sayfayi yenile
end
end

sql.baglan()
db, err = SQLite3Connection:execute("SELECT * FROM note");
tVeri = db:fetch({}, "a")
TreeList.ClearRows("liste1")
while tVeri do

id = tVeri.id
adi = tVeri.adi
soyadi = tVeri.soyadi
adres = tVeri.adres
telefon = tVeri.telefon
mail = tVeri.mail
tarih = tVeri.tarih
not_al = tVeri.nott

TreeList.AddRow("liste1", id.."|"..adi .. "|" .. soyadi .. "|" .. adres .. "|" .. telefon .. "|" .. mail .. "|" .. tarih .. "|" .. not_al, nil, nil)
tVeri = db:fetch(tVeri,"a");
end
sql.kapat();
[/spoiler]

 

Garanti Silme Butonu

[spoiler]nSecilen = TreeList.GetSelected("liste2") -- secilene bak
if nSecilen ~= -1 then -- eğer seçilen varsa
nID = TreeList.GetCellText("liste2", 0, nSecilen)
sSoru = Dialog.Message("Uyarı!", nID .. " Arıza Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor
if sSoru == IDYES then -- eğer evet tusuna basilirsa
sql.baglan()
SQLite3Connection:execute("DELETE FROM garanti WHERE id='" .. nID .. "'")
sql.kapat()

end
end

sql.baglan()
db, err = SQLite3Connection:execute("SELECT * FROM garanti");
TreeList.ClearRows("liste2");

tVeri = db:fetch({}, "a")
while tVeri do

id = tVeri.id
urunsahibi = tVeri.urunsahibi
telefon = tVeri.telefon
markasi = tVeri.markasi
uruntipi = tVeri.uruntipi
serino = tVeri.serino
servisadresi = tVeri.servisadresi
servistelefon = tVeri.servistelefon
gidistarihi = tVeri.gidistarihi
gelistarihi = tVeri.gelistarihi
gonderenkisi = tVeri.gonderenkisi

TreeList.AddRow("liste2", id.."|"..urunsahibi .. "|" .. telefon .. "|" .. markasi .. "|" .. uruntipi .. "|" .. serino .. "|" .. servisadresi .. "|" .. servistelefon .. "|" .. gidistarihi .."|".. gelistarihi .."|" .. gonderenkisi, nil, nil)
tVeri = db:fetch(tVeri,"a");
end
sql.kapat();[/spoiler]

Edited May 17, 2014 by Sistemci

[murat3246683]

hocam çok çok saolsın ya hakkını nasıl ödücem ya  gerçekten hocam daha öncede sormuştum ama kitaro hocamın kodunu nereye yazacağım ben

[Sistemci]

hocam çok çok saolsın ya hakkını nasıl ödücem ya  gerçekten hocam daha öncede sormuştum ama kitaro hocamın kodunu nereye yazacağım ben

 

önemli değil kardeşim. garanti bölümünde kaydederken yazacaksın bu kodları kardeşim

[murat3246683]

Sistemci Hocam Seninde Kafanı ağrıtıyom ama (onceki_yil, onceki_ay ve onceki_gun değişkenlerine garantiye gidiş tarihinin verilerini atamak) derken ben bunu anlamadım hocam 

 

birde garanti bölümü kaydet butonuna koydum hocam doğrumudur

Edited May 17, 2014 by murat3246683

[Sistemci]

evet kardeşim doğru verileri ay gun yil olarak tek tek çek bu kadar kolay şuan evdeyim proje yenımda yok teknik servis programı yazacam Allah nasip ederse sen vesile oldun paylaşınca görürsün gerekirse sana apz atarım kardeşim

[murat3246683]

saolsın hocam gönderirsen cok memnun olur sayende bende bişeyler öğreniyom hocam