[es] - Korak po korak: VB 6, Access, ADO i SQL.

degojs

Član broj: 4716
Poruke: 5096
24.100.199.*

Sajt: www.novetehnologije.com

Profil

Korak po korak: VB 6, Access, ADO i SQL.

^{23.11.2003. u 09:32}

Korak po korak: VB 6, Access, ADO i SQL.
------------------------------------------------------
Pre nego se upustimo u pojašnjenje teme da navedem koji sistem ja imam kako bi se izbegli bar neki problemi:

- Visual Basic 6 + Service Pack 5 (SP5 potražite na www.microsoft.com/vstudio)
- Access 2000
- Windows 2000 + Service Pack 4
- ADO 2.5, 2.5 Service Pack 2, 2.6, 2.7 (odgovarajući ADO/MDAC skinite sa www.microsoft.com/data)

Sve u svemu, instalirajte Visual Basic 6 i stavite Service Pack 5, instalirajte Access 2000 (ili noviji) kao i ADO 2.5 Service Pack 2 i ne bi trebalo da imate problema sa praćenjem teksta. Savetujem i da pređete na Windows 2000 (Professional ili Server) ili XP Professional.

Da vidimo šta možete ovde da nađete:

1. Pravljenje proste baze podataka u Access-u 2000
1.1. Pravljenje tabele tbl_Korisnici,
1.2. Pravljenje tabele tbl_Tekstovi,
1.3. Povezivanje tabela - PRIMARY i FOREIGN KEY,
1.4. Pravljenje query-ja qry_Korisnici.
1.5. Pravljenje query-ja qry_Tekstovi

2. Osnove SQL-a
2.1. SELECT, (WHERE, ORDER BY)
2.2. COUNT, MAX, MIN,
2.3. GROUP BY, HAVING,
2.4. "Spajanje" podataka iz više tabela: JOIN,
2.5. DELETE,
2.6. UPDATE,
2.7. INSERT.

3. Visual Basic 6 kod za rad sa bazom - ADO 2.5
3.1. Povezivanje sa bazom podataka - connection string,
3.2. Otvaranje konekcije, preuzimanje podataka, zatvaranje konekcije,
3.3. Prikazivanje podataka u DataGrid kontroli,
3.4. Prolazak kroz recordset "ručno",
3.5. Izmena podataka (UPDATE, DELETE, INSERT),
3.6. Slanje podataka nazad u bazu.

[Ovu poruku je menjao degojs dana 24.11.2003. u 03:26 GMT]

Commercial-Free !!!

^{23.11.2003. u 09:32}

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13173
*.gojko.ss.

Sajt: www.gojkovujovic.com

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{24.11.2003. u 22:53}

Bitje ovde> http://es.verat.net/pub/degojs

Blavo za degojs-a!

/edit - degojs:

Dakle, prvi deo uputstva (pravljenje baze u Access-u) nalazi se na http://es.verat.net/pub/degojs/Korak_po_korak_1.zip

Kraća pauza pa nastavljamo sa drugim delom - osnove SQL-a.

^{24.11.2003. u 22:53}

degojs

Član broj: 4716
Poruke: 5096
24.100.199.*

Sajt: www.novetehnologije.com

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{09.12.2003. u 23:40}

Završio drugi deo, sutra (ili večeras) šaljem Gojku da postavi negde.

Commercial-Free !!!

^{09.12.2003. u 23:40}

degojs

Član broj: 4716
Poruke: 5096
24.100.199.*

Sajt: www.novetehnologije.com

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{11.12.2003. u 22:05}

Dakle drugi deo je ovde

Commercial-Free !!!

^{11.12.2003. u 22:05}

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13173
*.gojko.ss.

Sajt: www.gojkovujovic.com

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{12.12.2003. u 00:03}

Pardon, nisam postavio ceo fajl, pukao upload a ja otišao od kuće. Sad sam uploadovao svih 200k. Ponovite download vi koji ste do sada probali da skinete ovo.

Još jednom bravo za Degojs-a, nadam se da ćemo uskoro imati i onu file arhivu da sve ovo bude integrisano sa forumom (uploadi moderatora, korsnika, itd).

^{12.12.2003. u 00:03}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{06.01.2004. u 10:12}

Treci deo

Blue Man Group

^{06.01.2004. u 10:12}

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 230
62.193.131.*

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{14.01.2004. u 12:58}

Kako da pokupim sve fajlove koji koristi program sa bazom
i sta je sve potrebno da se instalirala da bi sve radilo na nekom drugom kao
na mom comp-u !!!

www.cicevac.com
†StEEwSc†

^{14.01.2004. u 12:58}

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{14.01.2004. u 13:31}

Imas na pocetku teme sta moras da imas instalirano (SPovi, ADO verzija). Da bi instalirao na drugom kompu, napravi setup sa PDW ili InstallShieldom ili cim vec hoces. Osim onoga sto prepozna PDW, treba dodati mdb fajl.

Blue Man Group

^{14.01.2004. u 13:31}

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 230
212.200.9.*

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{01.02.2004. u 08:48}

Probao sam da napravim instalaciju InstallShield-om za moj program, ali nece da mi skupi sve fajlove sto moj program koristi da bi mogao da moj program instaliram na drugom kompjuteru.
Kako da nadjem fajlove koje program koristi i da ih spakujem za slanje na drugi kompjuter ?

www.cicevac.com
†StEEwSc†

^{01.02.2004. u 08:48}

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{01.02.2004. u 10:29}

Pogledaj u projektu References i Components. Osmi toga, sa Visual Studiom ide i jedno korisno programce koje se zove Dependency Walker, pa pogledaj i to.

Blue Man Group

^{01.02.2004. u 10:29}

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{22.10.2005. u 17:57}

S obzirom da gorenavedeni linkkovi trenutno nisu u funkciji (i ne znamo da li će biti) tutorijale trenutno možete skinuti sa alternativnih adresa koje možete naći ovde http://www.elitesecurity.org/poruka/924307

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti

^{22.10.2005. u 17:57}

Fenix

Član broj: 18672
Poruke: 68
195.222.49.*

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{11.03.2006. u 12:34}

Šta je sa ovim trećim djelom, kod mene ne funkcioniše u dijelu forme 35, javlja grešku pri pokušaju AddNew.

Problem je u dijelu koda vezanom za dugme Action:

Code:

       Case 2 'save
            '-- prepisi podatke iz textboxova u RS
            Call m_UpdateData
            '-- update
            m_adoRS.UpdateBatch adAffectAll
            '-- pozicioniraj se na novi/izmenjeni zapis
            If m_Mode = mdAdd Then
                m_adoRS.MoveLast
                '-- new key is avaliable at this point
                txtField(0).Text = m_adoRS("ID")
            End If
            m_Mode = mdNone
            '-- prikazi dugmice
            m_ShowButtons cmdAction, "110101"
            m_EnableButtons cmdNavigation, "1111"

Kod mene je sporni dio ovaj:

Code:

'-- new key is avaliable at this point
txtField(0).Text = m_adoRS("ID")

Kao da ipak nije "new key avaliable at this point" ili...?

^{11.03.2006. u 12:34}

darkog
Obrenovac

Član broj: 82291
Poruke: 122
*.beogrid.net.

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{21.07.2006. u 15:16}

Mozda je tema vec zastarela ali jako bih voleo da neko ko ima ove tutorijale postavi link ka njima ali da radi :)
Napravio sam aplikaciju u Accessu, pa bih sada da bazu povezem sa VB-om tako da front end baze bude u VB. Poprilican sam novajlija u programiranju ali spreman da ucim.
Valjda nisam jedini zainteresovan?

_{[Ovu poruku je menjao darkog dana 21.07.2006. u 16:45 GMT+1]}

^{21.07.2006. u 15:16}

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{21.07.2006. u 21:43}

Dva posta iznad sam ostavio link ka temi na kojoj se nalaze ispravni linkovi (samo ih iskopiraj u adressbar browsera i radiće).

^{21.07.2006. u 21:43}

darkog
Obrenovac

Član broj: 82291
Poruke: 122
*.beogrid.net.

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{22.07.2006. u 10:37}

Juce nisam mogao da otvorim linkove ni kada copiram adresu u browser. Sada radi hvala

^{22.07.2006. u 10:37}

Aleksandar Ružičić
Aleksandar Ružičić
Junior Developer, Spoonlabs d.o.o
20°27'46'' - 44°48'8''

SuperModerator
Član broj: 26939
Poruke: 2355
*.yu1.net.

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{24.07.2006. u 01:05}

Evo okacio sam ja fajlove kod mene na server, tu bi trebali da stoje bar godinu dana:
http://www.krcko.net/es21/VB6_Access_ADO_SQL/

[edit]
evo sad sam okacio sve fajlove i uz ovu poruku (ovde bi trebalo da stoje dok god gojko ne zezne nesto :p)
[/edit]

_{[Ovu poruku je menjao krckoorascic dana 24.07.2006. u 02:25 GMT+1]}

Vivvo CMS

_{jQuery addict!}

Prikačeni fajlovi

ADO StepByStep.zip - 700.47k

Korak_po_korak_1.zip - 306.44k

Korak_po_korak-SQL.zip - 198.23k

^{24.07.2006. u 01:05}

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 230
*.air.my-its.net.

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{29.07.2006. u 13:27}

Da li postoji komanda za redjanje brojeva od najmanjeg do najveceg, ali ne kao kod ORDER BY (10,11,123,20,21,250,31,34...)
vec da isti budu poredjani na sledeci nacin:
10,11,20,21,31,34,123,250?

www.cicevac.com
†StEEwSc†

^{29.07.2006. u 13:27}

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{29.07.2006. u 13:56}

pokusaj sa:

Code:

kveri = "SELECT <kolona> FROM <tabela> ORDER BY CLng(<kolona>)"

Vivvo CMS

_{jQuery addict!}

^{29.07.2006. u 13:56}

bjtetf

Član broj: 77307
Poruke: 74
*.dlp462.bih.net.ba.

Profil

Re: Korak po korak: VB 6, Access, ADO i SQL.

^{02.08.2006. u 11:26}

analizirao sam kod za povezivanje baze (Access) i VBasica,i
koliko sam shvatio nije vodjeno racuna o vrlo bitnoj stvari, tj ako ja vrsim izmjene u aplikaciji
nad jednom tabelom koja sadrzi npr ID_autor,... i sada kada to pokusam da snimim tu izmjenu, dodje
do konflikta ako postoji jos jedna tabela u toj aplikaciji koja sadrzi isti ovaj ID_autor. Tj kako da
to rijesim, kada ja promjenim u jednom tabeli ID_autor, da se on automatski promjeni u svim ostalim
tabelama ako on postoji.
Evo dijela koda iz tog tutorijala u kojem mislim da treba dodati nesto u case2 : Save valjda nesto oko update nije u redu =>

Code:

Private Sub cmdAction_Click(Index As Integer)
    On Error GoTo Proc_Err

    Select Case Index
        Case 0 'add
            'clear fields
            Call m_ClearFields(txtField)
            'otkljucaj kontrole
            Call m_LockControls(txtField, False)
            With m_adoRS
                If Not (.BOF And .EOF) Then
                    'zapamti trenutnu poziciju da bi se vratili
                    'ako korisnik odustane od novog zapisa
                    m_Bookmark = .Bookmark
                End If
                .AddNew
                m_Mode = mdAdd
            End With
            'prikazi dugmice
            m_ShowButtons cmdAction, "001010"
            m_EnableButtons cmdNavigation, "0000"
        Case 1 'edit
            'otkljucaj kontrole
            Call m_LockControls(txtField, False)
            m_Mode = mdEdit
            'prikazi dugmice
            m_ShowButtons cmdAction, "001010"
            m_EnableButtons cmdNavigation, "0000"
        Case 2 'save
            'prepisi podatke iz textboxova u RS
            Call m_UpdateData
            '-- update
            'm_adoRS.UpdateBatch adAffectAll
            m_adoRS.Update

          'pozicioniraj se na novi/izmenjeni zapis
            If m_Mode = mdAdd Then
                m_adoRS.MoveLast
                'new key is avaliable at this point
                txtField(0).Text = m_adoRS("broj_indexa")
            End If
            m_Mode = mdNone
            'prikazi dugmice
            m_ShowButtons cmdAction, "110101"
            m_EnableButtons cmdNavigation, "1111"
        Case 3 'delete
            With m_adoRS
                'brisi zapis
                .Delete
                'pomeri se na sledeci zapis
                .MoveNext
                If .EOF Then .MoveLast
            End With
            'update
            m_adoRS.UpdateBatch adAffectAll
        Case 4 'cancel
            'cancel update
            Call m_LockControls(txtField, True)
            m_adoRS.CancelUpdate
            'pomeri se na zadnju poziciju ako je bilo AddNew
            If m_Bookmark > 0 Then
                m_adoRS.Bookmark = m_Bookmark
            Else
                m_adoRS.MoveFirst
            End If
            m_Mode = mdNone
            '-- prikazi dugmice
            m_ShowButtons cmdAction, "110101"
            m_EnableButtons cmdNavigation, "1111"
        Case 5 'refresh
            m_adoRS.Requery
    End Select

    '-- prikazi tekuci zapis
    If Index > 2 Then m_DisplayRecord

End Sub

[edit]ubuduce koristi code tagove[/edit]

_{[Ovu poruku je menjao krckoorascic dana 02.08.2006. u 15:20 GMT+1]}

^{02.08.2006. u 11:26}