Tema
Registracija

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

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 46 odgovora
  • 34.599 pregleda
Re: Korak po korak: VB 6, Access, ADO i SQL. 31.05.2010. u 21:15 · pre 199 meseci #21
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?
Re: Korak po korak: VB 6, Access, ADO i SQL. 01.06.2010. u 22:15 · pre 199 meseci #22
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.
Re: Korak po korak: VB 6, Access, ADO i SQL. 02.06.2010. u 09:37 · pre 199 meseci #24
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.
Re: Korak po korak: VB 6, Access, ADO i SQL. 13.06.2010. u 10:07 · pre 199 meseci #25
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?
Re: Korak po korak: VB 6, Access, ADO i SQL. 14.06.2010. u 10:54 · pre 199 meseci #27
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]
Re: Korak po korak: VB 6, Access, ADO i SQL. 14.06.2010. u 13:55 · pre 199 meseci #28
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
Re: Korak po korak: VB 6, Access, ADO i SQL. 14.06.2010. u 19:57 · pre 199 meseci #29
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]
Untitled.png7.31k
Re: Korak po korak: VB 6, Access, ADO i SQL. 24.01.2011. u 17:27 · pre 191 meseci #30
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 :)

Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 17:47 · pre 188 meseci #31
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
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 19:20 · pre 188 meseci #32
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
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 19:31 · pre 188 meseci #33
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???
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 19:36 · pre 188 meseci #34
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 :)
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 19:54 · pre 188 meseci #35
Citat:
MasterOfDisaster: 
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 :)


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
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 20:03 · pre 188 meseci #36
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
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 20:22 · pre 188 meseci #37
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
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 20:46 · pre 188 meseci #38
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
Re: Korak po korak: VB 6, Access, ADO i SQL. 07.05.2011. u 21:11 · pre 188 meseci #39
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...
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme