[es] - vrednost odabrana u combobox-u pa select

tok

Član broj: 52728
Poruke: 13
*.net.vip.hr.

Profil

vrednost odabrana u combobox-u pa select

^{23.03.2005. u 19:23}

Imam pitanje i stvarno se vec mucim par dana i ne znam kako...
Molim vas pomoc...

U formi se napravi odabir koji definira vrednost "id_ure" i onda sam mislio preko selecta proveriti u odredjenoj tablici ovisno o tom "id_ure" koji je primarni ključ u tablici koja je vrednost definirana u pojedinom stupcu flag_ure

Stavio sam message box samo da mi izvadi vrednost da li radi kao kontrolu.

Nadam se da nisam zakomplicirao objašnjenje i da je izvedivo :-)

Ovo dole sam pokusao, ali javlja gresku 2342 :-((
Moze li neko pomoci, sta je krivo??

Hvala....

Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = combo0.value"

DoCmd.RunSQL SQLA

MsgBox SQLA

End Sub

^{23.03.2005. u 19:23}

GoranVucicevic
Novi Sad

Član broj: 28045
Poruke: 66
*.dialup.neobee.net.

Sajt: www.clickersoftware.com

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 08:03}

Code:

Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = " & combo0.value

DoCmd.RunSQL SQLA

MsgBox SQLA

End Sub

Vidi: GoranVuc #4934

^{24.03.2005. u 08:03}

tok

Član broj: 52728
Poruke: 13
*.vip.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 08:28}

Hvala, ali opet ne radi...odnosno...

u MSgBox-u mi ne vraca vrednost tog SQLA stringa...ne javlja se greska, ali kod ne kupi tu vrednost preko selecta

^{24.03.2005. u 08:28}

bestlight
Sasa Oravec
Beograd

Član broj: 52189
Poruke: 12
*.227.EUnet.yu.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 09:38}

Mozda bi ti bilo jednostavnije da se koristis sa Column() svojstvom Combo Box-a. Naime, ako u querryu za taj combobox, pored id_ure, stavis i flag do njega jednostavno dolazis preko vrednosti (ako ti je ime comboboxa cmbID) cmbID.Column(n) gde ti je n broj kolone u kojojse nalaz flag umanjeno za 1 (jer pocinje da broji od 0).

Pušenje je štetno za zdravlje :)

^{24.03.2005. u 09:38}

tok

Član broj: 52728
Poruke: 13
*.vip.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 10:02}

Ne mogu nazalost tako jer ovo mi je samo jedan od preduveta za dalje slozenije stvari...
U principu ono sta ne znam je kako povuci preko selecta određenu vrednost ovisno o primarnom kljucu koji je odabran u comboboxu i staviti je kao string da bude upotrebljiva za dalje

^{24.03.2005. u 10:02}

bestlight
Sasa Oravec
Beograd

Član broj: 52189
Poruke: 12
*.13.EUnet.yu.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 12:19}

Nisam siguran da razumem. I jedan i drugi primer ti daju vrednost sa kojom posle mozes da radis sta hoces. Deklarisi jednu PUBLIC varijablu i dodeli joj dobijenu vrednost. Posle mozes da je pozivas bilo gde u kodu (samo iz VB-a). Mozda da malo bolje pojasnis sta se desva dalje sa tom vrednoscu i zasto to treba. Koliko sam shvatio, i ID i flag su iz iste tabele sto jos vise pojednostavljuje stvar.

Pušenje je štetno za zdravlje :)

^{24.03.2005. u 12:19}

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 2603
*.eqao.com.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 15:02}

Code:

Code:

Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = " & combo0.value

DoCmd.RunSQL SQLA

MsgBox SQLA

End Sub

Ovaj kod sto si dao radi sledece:
1) gradi string varijablu SQLA, koja na kraju izgleda bnesto kao "SELECT flag_ure FROM uredjaj WHERE id_ure = 789", gde je 789 vrednost koja je dosla iz kombo boxa.

2) MasgBox SQLA ne radi NISTA .RunSQL je za akcione kverije (INSERT, UPDATE). Mozda se cak nesto i desi - negde u memoriji 'otvori' se SELECT kveri, ali se to naravno ne vidi nigde.

3) DoCmd.RunSQL SQLA vratice ti poruku u kojoj pise - string "SELECT flag_ure FROM uredjaj WHERE id_ure = 789"

Ono sto ti verovatno hoces, ali ne umes da nam objasnis jeste da upotrebis vrednost flag_ure koju je odabrao SELECT statemet koji si sagradio. E to ne moze ovako kako si zamislio. Umseto DoCmd.runSQl treba da otvoris recordset koji se bazira na tvojoj SQLA varijabli ("SELECT flag_ure...") i da procitas sta ti je rekrdset vratio.

:-)

^{24.03.2005. u 15:02}

tok

Član broj: 52728
Poruke: 13
*.vip.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 15:19}

Da tocno, to je to!

Upotrebio bi vrednost flag_ure koju je odabrao SELECT statemet za daljnje akcije

Recordset koji se bazira na SQLA varijabli ("SELECT flag_ure...") i da procita sta je rekrdset vratio.
Message box je bio samo zbog kontrole da vidim da li je pokupio vrednost.

Samo ne znam kako tih par redova za recordset ispisati...
Mozda sam dosadan i mozda je zaista neko trivijalno pitanje, al zaista ne znam

Hvala puno na trudu...

^{24.03.2005. u 15:19}

tok

Član broj: 52728
Poruke: 13
*.vip.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{24.03.2005. u 22:09}

Pokusao i napisao sam ovo ali ne ide opet...ne dobivam kontrolnu vrednost.
Javlja gresku Type mismatch na kraju koda za
s=rst

Kako da ovo ucinim da radi ?

Hvala...

Code:

Private Sub Combo0_Change()

If Combo0.Value = True Then

Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim s As String

Set dbs = CurrentDb

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure =" & Chr(34) & Combo0.Value & Chr(34)

Set rst = dbs.OpenRecordset(strSQL)

s = rst

MsgBox s

End If
End Sub

^{24.03.2005. u 22:09}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 527
217.71.52.*

Sajt: www.icentar.ba

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 18:40}

jeli id_ure Broj ili string u bazi

zxz

^{25.03.2005. u 18:40}

tok

Član broj: 52728
Poruke: 13
*.vipnet.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 19:18}

String je....

Jel znash? Mooolim te ispravi sto je krivo...

Hvala

^{25.03.2005. u 19:18}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 527
217.71.52.*

Sajt: www.icentar.ba

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 19:53}

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"---imedju chr(34) chr(39)i iza zanaka jednakosti

zxz

^{25.03.2005. u 19:53}

tok

Član broj: 52728
Poruke: 13
*.vipnet.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 20:19}

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

a kako idu chr(34) chr(39) ???

oprost na neznanju...

^{25.03.2005. u 20:19}

tok

Član broj: 52728
Poruke: 13
212.91.119.*

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 21:10}

Code:

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure =chr(34) '" & Combo0.Value & "'chr(39)"

Probao ovako ali ne ide...ne dobivam iznos u kontrolnom msgbox.u...

Jel nesto krivo ???

^{25.03.2005. u 21:10}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 527
217.71.52.*

Sajt: www.icentar.ba

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 22:56}

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

ide ovako a napisao sam ti chr da bi to mogao i ti napisati -da znas staje a netreba chr
Hajde da probam pojasnit.
ALJES BAZI STRING "SELECT flag_ure FROM uredjaj " I STRING " WHERE id_ure =" E SAD TOJ JE JEDNAKO NEKOM STRINGU. DA BI SQL TO RAZUMIO KAO STRING TREBA STAVITI POD ZNAKE NAVODA A POSTO IMAS JEDNE ONDA DRUGE ZNAKE NAVODA PISES KAO chr(39) TJ. '. ZNACI TVOJ KOMPLETAN SQL KAO STRING TREBA DA IZGLEDA OVAKO SELECT flag_ure FROM uredjaj WHERE id_ure ='Podatak id_ure'
nadam se da smo se sad razumjeli
Pozdrav

zxz

^{25.03.2005. u 22:56}

tok

Član broj: 52728
Poruke: 13
*.vipnet.hr.

Profil

Re: vrednost odabrana u combobox-u pa select

^{25.03.2005. u 23:18}

Hvala puno,,,

To je ok, ali ne mogu nikako izvuci taj rst podatak iz recordset-a ili krivo radim?

Zelio sam rst nakon sto je setiran kao OpenRecordset spremiti kao neki podatak da mogu baratati s njima i zato sam stavio msgbox samo radi kontrole da vidim da li ga imam...

Jel to moze ovako ?

Javlja mi Compile error: Tye mismatch na s=rst

Code:

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

Set rst = dbs.OpenRecordset(strSQL)

s = rst

MsgBox s

Prikačeni fajlovi