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

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

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

^{31.05.2010. u 21:15 - pre 169 meseci}

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?

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

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

^{01.06.2010. u 22:15 - pre 169 meseci}

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.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

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

^{02.06.2010. u 00:10 - pre 169 meseci}

kod mene je ovako FK_01_2010, OT_01_2010, RAC_01_2010

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

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

^{02.06.2010. u 09:37 - pre 168 meseci}

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.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

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

^{13.06.2010. u 10:07 - pre 168 meseci}

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?

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

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

^{14.06.2010. u 07:32 - pre 168 meseci}

Promeni da umesto "number" bude "text"

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

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

^{14.06.2010. u 10:54 - pre 168 meseci}

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]}

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

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

^{14.06.2010. u 13:55 - pre 168 meseci}

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

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

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

^{14.06.2010. u 19:57 - pre 168 meseci}

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]}

Prikačeni fajlovi

Untitled.png - 7.31k

Odgovor na temu

sale024
Srbija

Član broj: 248260
Poruke: 21
*.dynamic.isp.telekom.rs.

Profil

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

^{24.01.2011. u 17:27 - pre 161 meseci}

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 :)

Odgovor na temu

goxkojic
Student

Član broj: 263624
Poruke: 14
188.246.90.*

Profil

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

^{07.05.2011. u 17:47 - pre 157 meseci}

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

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

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

^{07.05.2011. u 19:20 - pre 157 meseci}

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

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

goxkojic
Student

Član broj: 263624
Poruke: 14
188.246.90.*

Profil

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

^{07.05.2011. u 19:31 - pre 157 meseci}

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

Odgovor na temu

MasterOfDisaster
Srbija

Član broj: 274933
Poruke: 71
*.dynamic.isp.telekom.rs.

+4 Profil

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

^{07.05.2011. u 19:36 - pre 157 meseci}

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 :)

Odgovor na temu

goxkojic
Student

Član broj: 263624
Poruke: 14
188.246.90.*

Profil

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

^{07.05.2011. u 19:54 - pre 157 meseci}

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

Odgovor na temu

MasterOfDisaster
Srbija

Član broj: 274933
Poruke: 71
*.dynamic.isp.telekom.rs.

+4 Profil

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

^{07.05.2011. u 20:03 - pre 157 meseci}

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

Odgovor na temu

goxkojic
Student

Član broj: 263624
Poruke: 14
188.246.90.*

Profil

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

^{07.05.2011. u 20:22 - pre 157 meseci}

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

Odgovor na temu

MasterOfDisaster
Srbija

Član broj: 274933
Poruke: 71
*.dynamic.isp.telekom.rs.

+4 Profil

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

^{07.05.2011. u 20:46 - pre 157 meseci}

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

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

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

^{07.05.2011. u 21:11 - pre 157 meseci}

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...

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu