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

[ degojs @ 23.11.2003. 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]

[ Gojko Vujovic @ 24.11.2003. 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.

[ degojs @ 09.12.2003. 23:40 ] @

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

[ degojs @ 11.12.2003. 22:05 ] @

Dakle drugi deo je ovde

[ Gojko Vujovic @ 12.12.2003. 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).

[ mladenovicz @ 06.01.2004. 10:12 ] @

Treci deo

[ steewsc @ 14.01.2004. 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 !!!

[ mladenovicz @ 14.01.2004. 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.

[ steewsc @ 01.02.2004. 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 ?

[ mladenovicz @ 01.02.2004. 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.

[ Marko_L @ 22.10.2005. 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

[ Fenix @ 11.03.2006. 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...?

[ darkog @ 21.07.2006. 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]}

[ Marko_L @ 21.07.2006. 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).

[ darkog @ 22.07.2006. 10:37 ] @

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

[ Aleksandar Ružičić @ 24.07.2006. 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]}

[ steewsc @ 29.07.2006. 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?

[ Aleksandar Ružičić @ 29.07.2006. 13:56 ] @

pokusaj sa:

Code:

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

[ bjtetf @ 02.08.2006. 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]}

[ gmarko @ 27.05.2010. 16:34 ] @

gde mogu pronaci taj "SQL tester"?
Ubih se trazeci na forumu ali nista!

[ miki987 @ 31.05.2010. 21:15 ] @

Citat:

steewsc: 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?

jesi li resio ovaj problem to i ja trazim :D

Citat:

Aleksandar Ružičić: pokusaj sa:

Code:

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

ja imam sledeci kod koji lista brojeve iz access-a

Code:
SQL = "SELECT DISTINCT baza FROM tablica ;"

i prikazuje u listview redosledom 10,11,123 ..., kako se resiti ovoga?

[ dzigilibonglica @ 01.06.2010. 22:15 ] @

Citat:

ja imam sledeci kod koji lista brojeve iz access-a

Code:
SQL = "SELECT DISTINCT baza FROM tablica ;"

i prikazuje u listview redosledom 10,11,123 ..., kako se resiti ovoga?

Pa ako je polje u tabeli tipa "Broj" (byte,int,long,single,double) sortirace ti kako treba.
Ako je polje neki karakter onda se desava to sto si naveo.

[ miki987 @ 02.06.2010. 00:10 ] @

kod mene je ovako FK_01_2010, OT_01_2010, RAC_01_2010

[ dzigilibonglica @ 02.06.2010. 09:37 ] @

Umesto :

Citat:

FK_01_2010, OT_01_2010, RAC_01_2010

Oznacavaj kljuceve ovako:

Code:

FK_2010_01, OT_2010_01, RAC_2010_01

i to ti resava problem. Polja koja su stringovi se sortiraju Abecedno (ili azbucno ako je cirica). Kada bi koristio konverziju Clng na vresnosti u kojoj imas karakter koji nije Cifra, ne znam sta sve moze da ti dodje kao rezultat, ali najverovatnije 0.

[ miki987 @ 13.06.2010. 10:07 ] @

Code:
Dim br_fak As String

br_fak = Text1.Text + "_2010"
sql1 = "UPDATE baza_faktura SET datum='" & DTPicker2 & "', broj_fakture=" & br_fak & "....

u tablici polje broj_fakture je Number

ne prihvata unos zbog "_", sta dalje?

[ dzigilibonglica @ 14.06.2010. 07:32 ] @

Promeni da umesto "number" bude "text"

[ miki987 @ 14.06.2010. 10:54 ] @

Citat:

miki987: ja imam sledeci kod koji lista brojeve iz access-a

Code:
SQL = "SELECT DISTINCT baza FROM tablica ;"

i prikazuje u listview redosledom 10,11,123 ..., kako se resiti ovoga?

da ali u predhodnom postu sam trazio ovo resenje koje se postize sa Number :D t.j. jedino sa number redni brojevi imaju pravilan redosled

_{[Ovu poruku je menjao miki987 dana 14.06.2010. u 12:09 GMT+1]}

[ dzigilibonglica @ 14.06.2010. 13:55 ] @

E sad nista ne razumem sta ti radish....

ako su ti vrednosti koje hoces da sortirash kako treba kao sto si rekao:

Citat:

kod mene je ovako FK_01_2010, OT_01_2010, RAC_01_2010

Uradi ono sto sam ti dao da je resenje problema:

Citat:

Oznacavaj kljuceve ovako:

FK_2010_01, OT_2010_01, RAC_2010_01

Ako ti vrednosti koje sortirash NISU "FK_01_2010",... vec 1,123,12...

onda samo promeni u bazi da ti se te vrednosti upisuju u polje tipa Number\Long Integer i opet ces dobiti sve lepo sortirano.

Znaci,

1) Ono prvo je string
2) Ono drugo sju brojevi

[ miki987 @ 14.06.2010. 19:57 ] @

a kako cu da uspem da nateram access da mi

Citat:

FAK_2010_01, OT_2010_01 i t.d....

konvertuje u Number kada to nije potpuna numericka vrednost vec ima i ovo FAK i _ ???

Evo sta sam probao:

Da postavim iskljucivo brojeve 1,2,3,4,5 i da mi bude Number, rezultat radi!
Dodao na brojeve zeljeno FAK i _ na Number, rezultat ne radi!

Stavio na TEXT umesto NUMBER prikazuje mi sve iz baze ali redom FAK_2010_01,FAK_2010_10,FAK_2010_02...

ListView1 Sorting vrednost 0 ( listview1 gde prikazujem to FAK_2010_01 i t.d.)
Upit za prikaz rezultata u Listview2 a na osnovu pretrage se vrsi preko

Code:

Dim br_fak As String
br_fak = Text1.Text

ListView2.ListItems.Clear
openconn
SQL = "SELECT * FROM baza_faktura WHERE broj_fakture='" & br_fak & "' ORDER BY broj_fakture DESC;"

ima da poludim

problem resen cekiranjem opcija

_{[Ovu poruku je menjao miki987 dana 14.06.2010. u 21:28 GMT+1]}

[ sale024 @ 24.01.2011. 17:27 ] @

evo meni se desilo pa ako nekom izbaci istu gresku da zna sa da ukljuci...

pri aktiviranju ADOStepByStep.vbp kliktom na start javi se greska

da bi VB pokrenuo program bez javljanja greske treba aktivirati

znam da pomoc i nije bas nesto ali mozda nekom zatreba :)

[ goxkojic @ 07.05.2011. 17:47 ] @

Imam maleni problem koji ne mogu da rešim a ne otvara mi se za ovakav problem tema. Imam 4 check box-a: engleski, nemački, francuski i španski i imam jednu labelu. Kada odaberem neki checkbox treba da mi se odmah ispiše u labelu slovo E ako je odabran engleski, N ako je njemački itd ili ako je npr. odabran španski i nemački da mi ispiše N i Š. Kako klikćem u checkbox-ove isto tako treba labela prilikom svakog odabira da uradi ko neki refresh da se isprazni. znam da uradim kada je slučaj da neko odabere jednu opciju a ako više ne znam kako da napravim da se ispiše u labelu. Ovako sam ja započeo:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label5.Caption = "E"
Else
Label5.Caption = ""
End If
End Sub

Hvala unapred

[ shpiki @ 07.05.2011. 19:20 ] @

Code:
Private Sub Check1_Click()
If Check1.Value = 0 Then
Me.Caption = ""
Else: If Check1.Value = 1 Then Me.Caption = "E"
End If
End Sub

[ goxkojic @ 07.05.2011. 19:31 ] @

Citat:

shpiki:

Code:
Private Sub Check1_Click()
If Check1.Value = 0 Then
Me.Caption = ""
Else: If Check1.Value = 1 Then Me.Caption = "E"
End If
End Sub

hvala na pokušaju ali ovo je kod da promeni slovo u naslovu forme... meni treba da promeni na labeli. Znači imam 4 check box-a i to engleski, nemački, francuski i španski i imam jednu labelu... kada čekiram neke od ova četiri jezika treba da mi ispiše prvo slovo u labeli...

npr. ako čekiram engleski i španski i francuski da mi na labeli piše E F Š, ako odčekiram npr. španski na labeli treba da mi piše E F

Moželi mi ko pomoći???

[ MasterOfDisaster @ 07.05.2011. 19:36 ] @

Code:

Private Sub RefreshLang()

    Label5.Caption = ""

    If Check1.Value = 1 Then Label5.Caption  = "E"
    If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "N"
    If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "F"
    If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "S"

End Sub

Private Sub Check1_Click()

If Check1.Value = 1 Then
    Label5.Caption = Label5.Caption & "E"
Else
    RefreshLang()
End If

End Sub

Nisam isprobao ali to bi bilo to.

Pozdrav :)

[ goxkojic @ 07.05.2011. 19:54 ] @

Citat:

MasterOfDisaster:

Nisam isprobao ali to bi bilo to.

Pozdrav :)

hvala na pokušaju, probao sam ja i imam syntax error na ovim linijama
If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "N"
If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "F"
If Check1.Value = 1 Then Label5.Caption & Label5.Caption = "S"

Ovako sam ja napravio :

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label5.Caption = "E"
Else
Label5.Caption = ""
End If
End Sub

Private Sub Check1_Click()
If Check2.Value = 1 Then
Label5.Caption = "N"
Else
Label5.Caption = ""
End If
End Sub

Private Sub Check1_Click()
If Check3.Value = 1 Then
Label5.Caption = "F"
Else
Label5.Caption = ""
End If
End Sub

Private Sub Check1_Click()
If Check4.Value = 1 Then
Label5.Caption = "Š"
Else
Label5.Caption = ""
End If
End Sub

ovako mi se fino ispiše na labeli slovo ali samo ako čekiram jedan checkbox ako čekiram više ostaje jedno slovo,
npr. kada čekiram sve na labeli treba da bude E N F Š, ne znam kako bi to sastavio da bi tako ispisalo, ja sam napravio za jedan odabir ali mi treba za više

Nadam se da će mi neko pomoći

[ MasterOfDisaster @ 07.05.2011. 20:03 ] @

LOL ja sam pogresio, nzm sta mi je bilo:

If Check1.Value = 1 Then Label5.Caption = Label5.Caption & "S"

zameni ovako u sva cetri slucaja i to mora da sljaka

Pozdrav

[ goxkojic @ 07.05.2011. 20:22 ] @

Citat:

MasterOfDisaster: LOL ja sam pogresio, nzm sta mi je bilo:

If Check1.Value = 1 Then Label5.Caption = Label5.Caption & "S"

zameni ovako u sva cetri slucaja i to mora da sljaka

Pozdrav

ovo je dosada najbliže što je bilo, al opet problem, ako odaberem engleski onda mi sve izlista E N F S.... a meni treba da izlista samo ono što odaberem... pokušao sam umesto check1 da stavim kod u check2 i ostale i opet isto, kada odaberem jedno izlista sve ko da sam odabrao...

Hvala što si odvojio vremena za ovo

[ MasterOfDisaster @ 07.05.2011. 20:46 ] @

Ma cekaj bre, jesi stavio sve kao sto sam ti malopre napisao?

Iskopiraj ovaj kod tamo ovako kako jeste i ovo mora da radi:

Code:

Private Sub RefreshLang()

    Label5.Caption = ""

    If Check1.Value = 1 Then Label5.Caption  = "E"
    If Check1.Value = 1 Then Label5.Caption = Label5.Caption & "N"
    If Check1.Value = 1 Then Label5.Caption = Label5.Caption & "F"
    If Check1.Value = 1 Then Label5.Caption = Label5.Caption & "S"

End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
     Label5.Caption = Label5.Caption & "E"
Else
    RefreshLang()
End If
End sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    Label5.Caption = Label5.Caption & "N"
Else
    RefreshLang()
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
    Label5.Caption = Label5.Caption & "F"
Else
    RefreshLang()
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
    Label5.Caption = Label5.Caption & "S"
Else
    RefreshLang()
End If
End Sub

Cak mozes umesto ovoga:

Code:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label5.Caption = Label5.Caption & "E"
Else
RefreshLang()
End If
End sub

da uradis ovo:

Code:

Private Sub Check1_Click()
If Check1.Value = 1 Then RefreshLang()
End Sub

Pozdrav i nnc

[ shpiki @ 07.05.2011. 21:11 ] @

druze, kad si ti poceo sa VB?
samo umesto Me.Caption napisi Label1.Caption (ili kako god da ti se labela zove) i k0d radi... nemoj da maltretiras ove ljude ovde da ti pisu tako trivijalnu stvar na 100 nacina...

[ goxkojic @ 07.05.2011. 21:15 ] @

e hvala puno sada radi... ja sam bio promašio... Hvala

[ goxkojic @ 07.05.2011. 21:18 ] @

Citat:

shpiki: druze, kad si ti poceo sa VB?
samo umesto Me.Caption napisi Label1.Caption (ili kako god da ti se labela zove) i k0d radi... nemoj da maltretiras ove ljude ovde da ti pisu tako trivijalnu stvar na 100 nacina...

pa ne davno sam i počeo oko toga da znam ne bi pitao... mogao si to reći pre i nebi morao gnjaviti ni druge, a ni sebe

[ shpiki @ 10.05.2011. 01:03 ] @

ma ne gnjaviš ti mene, jednostavno MORAŠ da razmišljaš, ne uči se programiranje tako što ti neko napiše i ti copy-paste... da si pažljivije pogledao i samo 5sec razmislio shvatio bi da imaš rešenje... ništa loše nisam mislio u prošlom postu...

Pozdrav.

[ SpizaGenije @ 10.05.2011. 13:01 ] @

hehehehe!

Joj kada se samo setim mojih početaka... i kuburenja sa 56k modemima... kakva podrška zajednice i forumâ... VB6 biblija i opleti :D
Ali neka... momak je spreman da se uči i to je OK... treba ga maksimalno podržati...

Ipak druže, moja ti je preporuka da odmah počneš da učiš VB.NET...

E sada... zašto svi uporno koriste sledeće:

Code:
if nešto then nekitxt.text=" "

Zašto nigde nisam naleteo na:

Code:
if nešto then nekitxt.text=vbnullstring

[ SpizaGenije @ 10.05.2011. 13:12 ] @

Code:
if nešto then nekitxt.text=" "

Zašto nigde nisam naleteo na:

Code:
if nešto then nekitxt.text=vbnullstring

[ MasterOfDisaster @ 10.05.2011. 13:44 ] @

Svestan sam toga da je prva varijanta sporija ali stara navika... :)

Pozz

[ SpizaGenije @ 11.05.2011. 08:17 ] @

malo skrenusmo sa teme, ali zamisli kada na formi moraš da očistiš 40ak tekstboksova, kao što je slučaj kod mene... pa im opet pišeš 8b podataka za svaki, umesto 1b... pa opet sve to brišeš (msm... briše ih sam pre novog upisa, da ne ispadne da sam debil

), da bi povukao nešto iz baze...

nije problem sa jednim ili dva... ili pet tekstboksova, ali treba se navići...

[ MasterOfDisaster @ 11.05.2011. 13:16 ] @

Ma razumemo se i potpuno si u pravu teba se odvikavati takvih navika mada ja kad krenem da pisem neku vecu f-ju ja je po nekoliko puta proverim kako bih pokusao da
se setim optimiziranijeg resenja i pritom obavezno to promenim ali posto ga napisem na taj nacin, kako god nadam se da cu se setiti ove diskusije kad budem radio
nesto i na taj nacin iskoreniti tu naviku :)

Pozdrav