A ka mundesi nga ky shembull me larte qe ma keni dhene ti importoj te dhenat ne datagrid fajllin qe me heret e kam ruajtur nga datagridi tjeter
dmth nga nje datagrid e ruaj si tekst fajll ne datagridin tjeter te zbrazet e importoj ate tekst fajll provova me stream reader por nuk me shkoj per dore
'eksporto ne file "eksporti.txt"
Dim fs As FileStream = New FileStream("ekspoti.txt", FileMode.open, FileAccess.read)
Dim sr As Streamreader = New Streamreader(fs)
sr.read()
sr.Close()
fs.Close()
me kete kod nuk kam mundur ta arij
Do te desha ndihme ne Access 2010.
Kam hartuar nje database per personelin, shih foton e formes se kontakteve. idea eshte psh, kur duam te dime se kur del ne pension nje punonjes. Nga 65 per meshkujt zbresim moshen dhe mbetet diferenca. ose 60 per femrat zbresim moshen del diferenca. ne se diferenca eshte me e vogel se 1 vit, atehere shfaqet nje mesazh.
Shih kodin:
Option Compare Database
Option Explicit
Private Sub Pensioni_Click()
If Me.Gjinia = "Femer" Then
Pensioni = 60 - Me.Mosha
End If
If Me.Gjinia = "Mashkull" Then
Pensioni = 65 - Me.Mosha
End If
If Pensioni<= 1 Then
MsgBox ("Me pak se njevitderi ne pension")
End If
End Sub
Deri ketu ne rregull, problemi eshte se ne control "deri ne pension", diferenca SHFAQET VETEM PO TE BEJ CLICK ATJE. si duhet bere, qe diferenca te shfaqet automatikisht?
Per te procesuar automatikisht proceduren te nevojitet nje time-trigger qe ne kohe te definuar, psh. cdo ore kontrollon moshat nese ndonjeri eshte gati per pension dhe lajmeron ose ndermerr ndonje aksion tjeter.
Kjo mund te behet me nje Timer ne Access,
ose me ndonje script jashte databazes qe mund te lansohet nga Sheduler i OS-it (Windows).
tempus fugit, amor manet in aeternum corde
Mundesia qe une do preferoja eshte, nje script/aplikacion qe drejtohet nga sheduler i windows, perparesite jane se do ekzekutohej edhe atehere kur databaza ne access nuk eshte e hapur dhe programimi ne access vba eshte shume i shpifun, sipas mendimit tim.
Ja nje pseudo kod ne C#, qe lidh databazen e accessit dhe kontrollon moshat nese ndonje person eshte afer pensionit, per dic me konkrete me duhet databaza te lokalizoj emrat e kolonave.
Nuk eshte e thene te programohet ne C#, mund te jete ne cfaredo lloj gjuhe, kryesorja eshte qe automatikisht ne kohen e dhene te aktivizoje kontrollen per pension.Kodi PHP:
string emriTabeles = "";
string emriKolones = "";
int mosha = 0;
OleDbConnection con = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + locmdDB);
con.Open();
string strSQL = "SELECT * FROM " + emriTabeles;
OleDbCommand cmd = new OleDbCommand(strSQL, con);
OleDbDataReader dr = cmd.ExecuteReader();
while (dr.Read())
{
mosha = Convert.ToInt(dr[emriKolones].ToString().Trim());
gjinia = dr[emriKolones].ToString().Trim();
if(gjinia == "Femer")
{
if((60-mosha) <= 1)
MessageBox.Show("Me pak se njevitderi ne pension");
}
if(gjinia == "Mashkull")
{
if((65-mosha) <= 1)
MessageBox.Show("Me pak se njevitderi ne pension");
}
}
dr.Close();
con.Close();
Jane edhe disa gjera ne kete logjike qe duhen te jene me te qarta, e marrim se per cdo dite kontrollohet mosha dhe nje person eshte afruar pensionit, kjo logjike do tregonte per cdo dite ne vitin e fundit para pensionit se personi x do te dale ne pension, gje e neveritshme. Ketu do duhej ndoshta te krijohet nje kolone enkas per statusin e pensionit, psh. me vleren 0 kur personi nuk eshte ne vitin e fundit para pensionit, 1=kur personi eshte ne vitin e fundit para pensionit (ne kete menyre aplikacioni do te lajmeroje vetem njehere se personi x eshte para pensionimit) dhe vlera 2 = kur personi ka dalur ne pension.
Lajmerimi qe personi eshte para daljes ne pension do duhej te dergohej me e-mail ne sekretariat ndoshta edhe automatikisht te krijonte nje mirenjohje dhe jo te shfaqej ne Mesagge Box.
Ndryshuar pėr herė tė fundit nga hot_prinz : 08-11-2012 mė 15:58
tempus fugit, amor manet in aeternum corde
Shume faleminderit hot_Princ, por duke ju kerkuar ndjese, do te desha nje kod ne VBA sepse nuk jam familjar me C# ose PHP plus qe C# expres edition qe kam instaluar nuk e ka PHP, dhe nuk di te lidh nje script nga Windows ne textbox qe kam bere kalkulimit. Tjeter kodin qe kam shkruar e kam event ne OnClick.
Edhe nje here faleminderit mik
Provoje kete,Kodi PHP:
Option Compare Database
Option Explicit
Private Sub Pensioni_Click()
If Me.Gjinia = "Femer" Then
Pensioni = 60 - Me.Mosha
End If
If Me.Gjinia = "Mashkull" Then
Pensioni = 65 - Me.Mosha
End If
If Pensioni <= 1 Then
MsgBox ("Me pak se njevitderi ne pension")
End If
End Sub
Sub Form_Load()
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
Pensioni_Click
End Sub
ne Form_Load() inicializojme Timer-in e Formes Me.TimerInterval = 1000, 1000 jane ne milisekonda 1 sekonde, 3600000 jane 1 ore, e vendos vleren qe ti deshiron.
Procedura Form_Timer() e aktivizon proceduren Pensioni_Click() automatikisht, per cdo interval te kohes se definuar ne Me.TimerInterwal = X.
tempus fugit, amor manet in aeternum corde
Shume Faleminderit hot_Princ per ndihmen, dhe gezuar festen e pavaresise
Je i mireseardhur dhe me vjen mire qe munda te te ndihmoj,
gezuar gjithashtu festen e pavaresise.
tempus fugit, amor manet in aeternum corde
ju kisha lut nese mundet dikush me ndimu per nje databas access si ti thrras format me f2 apo f3 a tjeter me ifkeycode
Krijoni Kontakt