Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet » Kasa MSAccess to VB6
Gjoreski 27.07.2013 14:44
Predmet:Kasa MSAccess to VB6

Pozdrav
Eve za sto se raboti
Imam izraboteno program za KASA vo MSAccess koj veke 2 godini dobro funkcionira bez nikakvi problemi.
Sega mi treba da toj program odnosno samo delot za Izdavajne smetki Kasata ja prepravam vo VB6.
Napraviv Forma i na formata dodadov eden GRID koj ke mi sluzi kako Subforma. Dodadov Command butons i sve ostanato sto ke mi treba.
Sega mi se javia nekolku problemi sto mi e tesko da gi resam.
1.Prvo sto sakam e Programot da izgleda identicno kako starata kasa " Sto ne e problem da se resi "
2.Kasata treba da funkcionira identicno na starata odnosno da gi ima site funkcii kako starata
3.Sakam da se koristi samo eden tip na konekcija po moznost ADO
4.Da mozam da koristam tri tipovi na bazi odnosno MSAccess ,MY SQL i MSSQL so toa sto ke ja zamenam samo konecijata.
E sega od kaj da pocnam ?
Eve gi starata kasa vo MSAccess i ona sto sum go napravil do sega vo vb
- Prvo sto mi treba e da gi povrzam kako Master i Slave Formata i Gridot
- Vtoro sakam Gridot da go sredam kako subformata od starata kasa
za grid koristam TDBGrid koj ima dosta moznosti od koi na zalost jas ne znam mnogu da koristam
ako imate predlog za nekoj drug grid ne e problem samo da go dobijam ona sto mi treba
(vo prilog e i instalacijata za gridot)

Se nadevam deka ke mi pomognite da go resam ova.
pozdrav

Gjoreski 27.07.2013 14:51
Predmet:Re: Kasa MSAccess to VB6

Eve gi programite
Prilozi:
Grid.rar (Velicina datoteke:1.05 MB)
Kasa v2.62.rar (Velicina datoteke:355.94 KB)
Kasa vb.rar (Velicina datoteke:66.18 KB)

zxz 27.07.2013 17:26
Predmet:Re: Kasa MSAccess to VB6

Posto ovdje treba malo vise vremena, moci cu da pomognem za nekoliko dana.
Sada nisam u prilici.

Gjoreski 28.07.2013 12:48
Predmet:Re: Kasa MSAccess to VB6

Ne e problem.Ti samo vodi ja rabotava jas ke rabotam.
Fala mnogu.
Me interesira ima uste nekoj na forumov sto raboti Visual basic ?

zxz 01.08.2013 00:32
Predmet:Re: Kasa MSAccess to VB6

Evo kako bi to izgledalo sa dao.
Za ostalo sto nisam uradio a ne ide pitaj.
Rusio sam racunar pa nisam stigao prije.

Nisam jos sve sredio oko compa kad stignem, napravit cu ti primjer i sa ado.
Prilozi:
vbDAO.zip (Velicina datoteke:135.48 KB)

Gjoreski 01.08.2013 18:26
Predmet:Re: Kasa MSAccess to VB6

go poglednav ova sto mi go isprati toa e ok no ne e toa sto go sakam eve vaka da ja ostavime formata za najava nastrana ne mi treba sega toa da se fokusirame samo na kasata.
Jas vo meguvreme rabotev nesto i mislam deka e toa sto go sakam.
Eve sto imam napraveno do sega:
E sega dali moze da porabotime malku na Gridot bidejki golem del od operaciite se rabotat tuka
Kako da go kofiguriram comboto sto go imam na subformata od Accesot. i da mu dodadam funkcionalnosti na gridot .
Prilozi:
Kasa vb.rar (Velicina datoteke:74.62 KB)

zxz 01.08.2013 21:11
Predmet:Re: Kasa MSAccess to VB6

Uf ja sam mislio da si tek poceo.
Podcijenio sam te.
Samo ja ti nebih preporucio da se zamajavas ovim nestandardnim gridovima.
Ja bih to sve uradio sa standardnim objektima sigurnije je.
Imam ti i ja dosta tih objekata gotovih ako hoces.
Umjesto coba ja na dupli klik napravim da se otvori forma sa spiskom ili ako hoces mozes staviti jedan list da bude nevidljiv i njega koristis za to, samo sto ga moras pšomijerati na poziciju misa.

Ako si bas rijesio sa ovim onda evo:
Set col0 = gridStavki_Smetka.Columns(0)
col0.ValueItems.Presentation = 2

Gjoreski 01.08.2013 21:41
Predmet:Re: Kasa MSAccess to VB6

ok moze i so standarden grid ne e problem daj eden primer so standarden grid preporacaj mi nekoj
jas nemam raboteno mnogu so gridovi taka da nemam nekoe iskustvo

Gjoreski 01.08.2013 21:50
Predmet:Re: Kasa MSAccess to VB6

ok vaka se formira combo no treba da go napolnam toa combo so podatoci.
Jas vo starata kasa site podatoci gi zemam od comboto no ako imas podobro resenie predlozi mi.
Mozda e podobro da napravam nekoj recordset so SQL no vo toj slucaj ke mi treba nalesto IDI_Artikal
koj momentalno se gleda na gridot da se gleda nazivot od artiklot ,normalno i na comboto treba da se gleda nazivot na artiklot.
I dali mozam na Gridot da imam Skrieni polijan vo koi vnesuvam razni vrednosti koi mi trebaat za ponataka

zxz 01.08.2013 22:05
Predmet:Re: Kasa MSAccess to VB6

Vidis combo u vb sluzi samo za dodavanja malog broja podataka (redova) a za veci broj podatak imas dbCombo.
Znaci ovi dodaci comba na grid nece ti dobro raditi napr. ako dodas arikle a imas ih preko 1000.
Zato ti predlazem da na dupli klik napravis list ili novu formu da se otvori sa sa spiskom atikala.
Imam ti ja tih ocx grid sa otvorenim kodom pa ako ti se da mozes i prepravljati sebi.
Evo ti dodavanje pa probajk kako ce ti raditi.
Set Col0 = gridStavki_Smetka.Columns(0)
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(0).Value = "1"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(1).Value = "2"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(2).Value = "3"
Col0.ValueItems.Presentation = 2

ili petlja i onda
Dim i
dim N
n=rs.recordcount()

for i= 0 to n
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(i).Value = Rs!Imepolja
rs.movenext
next i