Takvim Projesi Sebebsiz Hata .

[dragon3781]

Merhabalar ,

Hazır Indıgorose sitesinden indirilmiş .apz projede hata vermektedir.

Projede Clear Temizle yaptıgımda dırek bu hatayı verıyor , proje kapanırken aynı hatayı tekrar verıyor .

[img]http://c1111.hizliresim.com/r/m/mlgx.jpg[/img]

Hata plugıns dosyasından mı kaynaklanmakta , yada ındıgorse forumdan anladıgım kadarıyla orjınal olmayan projelerde ( crack ) bu hata oluyormus sanırım .

Bunun orjınal proje ile bir alakası varmı acaba , bilen bir arkadas aydınlatırsa sevinirim.

Proje dosyası ;

http://www.multiupload.com/EDO623RJF9

[ReddKill]

4 saufada btnbıtton 13 de hata var.Kod hatası var

[pilgetir]

Hatanın sebebi eski sürüm ams ile tasarlanmış ve eski sürümde yani 8den öncekilerde tablo yapısı aşağıdaki gibi idi;Muhtemelen çıkarkende hata veriyordu oda tablo yapısından kaynaklanıyor
[quote] for strCount, strDate in tbSpecial do[/quote]
ams 8de ise tablo yapısı böyle

[quote] for strCount, strDate in [b]pairs ([/b]tbSpecial[b])[/b] do[/quote]
btnClear Onclickdeki kodu bununla değiştir;
[quote]--Set the Text
Input.SetText("inpBlog","");
--Get the selection
tbSel = Calendar.GetSelection("calendar");
if (tbSel) then
tbBlog[tbSel.Begin] = "";
--Remove the Selections special date (if it exists) becuase
--the text is blank
tbSpecial = Calendar.GetSpecialDates("calendar");
if (tbSpecial) then
Calendar.ClearSpecialDates("calendar");
--Now re-Add all special dates
for strCount, strDate in pairs (tbSpecial) do
if (strDate ~= tbSel.Begin) then
Calendar.AddSpecialDate("calendar",strDate);
end
end
end
end[/quote]

Page1> On Close evresindeki kodu bununla değiştir.
[quote]-- Initialize variables
tbWriteOut = {};
nCount = 1;

-- Check for table existance
if (tbBlog) then
-- Step through each item in the table
for strDate, strText in pairs (tbBlog) do
if (strText ~= "") then
-- The current line is not blank, output date to 'output' table
tbWriteOut[nCount] = strDate;
nCount = nCount + 1;

-- Output notes to 'output' table, and replace LUA line breaks with an ASCII placeholder
tbWriteOut[nCount] = String.Replace(strText, "\r\n", "\002");
nCount = nCount + 1;
end
end

-- Write the 'output' table to a text file
strTextFilePath = Shell.GetFolder(SHF_MYDOCUMENTS).."\\CalNotes.txt";
TextFile.WriteFromTable(strTextFilePath,tbWriteOut);
end[/quote]

Edited November 19, 2011 by pilgetir

[dragon3781]

Evet , düzeldi gerçekten.

tablo yapısındaki sürüm farklılığınıda ögrenmiş oldum sayende.

[dragon3781]

Sonunda projem bitti fakat Combobox ile Gruplama yapamıyorum SQL den veri çekerek , bu konu ile ilgili örnek çalışma varmı acaba hic elinizde ..

Örnek Olarak ;

SQL içeriği Tablolar : a tablosu , b tablosu , c tablosu

Combobox1 : A Tablosunu
Combobox2 : B tablosunu
Combobox3 : C tablosunu


Secılen verılerde filtrelenerek Lıstboxa aktarılacak ;

[pilgetir]

fikir vermesi açısından şöyle yapalım;

bir adet ınput 1 adet buton ve bir adet combobox oluştur ınput nesnesinin adını 1 yap
Kaydet butonu onclick;
[quote]SQLite3Connection:execute("insert into okulbilgileri (kurumadi,kurumadikisa,birimadi,ili,ilcesi,kasabakoyu,adres,ailebirligibaskani,ailebirligibaskaniyardimcisi,memur,kaymakam,milliegitimmuduru,malmuduru,sayman,okulkodu,vergikimlikno,epostaadresi,telefonbir,telefoniki,fax) values ('"..kurumadi.."','"..kurumadikisa.."','"..birimadi.."','"..ili.."','"..ilcesi.."','"..kasabakoyu.."','"..adres.."','"..ailebirligibaskani.."','"..ailebirligibaskaniyardimcisi.."','"..memur.."','"..kaymakam.."','"..milliegitimm.."','"..malmuduru.."','"..sayman.."','"..okulkodu.."','"..vergikimlikno.."','"..epostaadresi.."','"..telefonbir.."','"..telefoniki.."','"..fax.."') ");
Dialog.Message("","Kayıt Başarılı");

SQLite3Cursor, err = SQLite3Connection:execute("SELECT * FROM okulbilgileri");
listele = SQLite3Cursor:fetch({}, "a")
ComboBox.ResetContent("ComboBox1");

while listele do

ComboBox.AddItem("ComboBox1", listele.kurumadi);

listele = SQLite3Cursor:fetch(listele, "a");
end[/quote]
Page1> On Show;

[quote]SQLite3Cursor, err = SQLite3Connection:execute("SELECT * FROM okulbilgileri");
listele = SQLite3Cursor:fetch({}, "a")
ComboBox.ResetContent("ComboBox1");

while listele do

ComboBox.AddItem("ComboBox1", listele.kurumadi);

listele = SQLite3Cursor:fetch(listele, "a");
end[/quote]

[kapucu1971]

takvim apz si olan yayınlayabilirmi

[KintaRo]

demek ki neymiş? hiç bir hata sebepsiz değilmiş.

[DivaneTR]

[color="#8B0000"]Tablo hataları genelde eski sürümdeki syntax'ı yeni sürümde kullanırken olur. pairs (table) şeklinde denerseniz sorunu giderebilirsiniz. Tabi sorun tablo ile ilgili başka bi sorun değilse.[/color]