Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
23.09.2005. Problem sa Rave Reports u Delphi-ju
06.06.2004. problem povezivnja dva uslova kod filtriranja baze
03.08.2004. problem sa selektovnjem polja iz baze
16.03.2005. Prikaz podataka u DBLabel
20.05.2005. Izvlacenje strukture baze is DataSet-a?
22.05.2005. Galoa polja tabele
12.11.2005. Kako da obrisem obrisana polja iz baze ??
19.11.2005. Bulova algebra i (sabiranje) oduzimanje - potpun ..
05.01.2006. Paketi problem?!?!?!

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Opet problem sa tabelom! (sabiranje dva polja iz baze)

[es] :: Visual Basic 6 :: Opet problem sa tabelom! (sabiranje dva polja iz baze)

Strane: 1 2 3 4 5 6 ... Dalje > >>

[ Pregleda: 17289 | Odgovora: 121 ] > FB > Twit

Autor

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{06.04.2005. u 15:02 - pre 231 meseci}

Pa napisao sam ti u prethodnom postu kako to da dobiješ automatski, pogledaj ga malo bolje.Dao sam ti dva načina za to.

-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

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{06.04.2005. u 15:32 - pre 231 meseci}

Izvini ali stvarno ne znam. Jeb*ga sta cu takav sam!

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{06.04.2005. u 15:59 - pre 231 meseci}

Pa dobro, jesi li rešio problem ? Ako nisi, šta te muči ?

-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

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{06.04.2005. u 16:02 - pre 231 meseci}

Pa reko sam ti da ne znam za kod da sam odredi koliko ima ucenika.

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{06.04.2005. u 17:02 - pre 231 meseci}

Code:
Dim ukupnoucenika As Integer
ukupnoucenika = datPrimaryRS.Recordset.RecordCount

-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

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 11:28 - pre 231 meseci}

Pojavio se novi problem. U Form1 napravio sam sve kako treba i stavio sam dugme Dodaj. Sad bi zeleo da kada stisnem to dugme da mi otvori novi Form2 u kojem imam txtImeiPrezime, txtMatematika, txtFizika, txtOpravdano, txtNeopravdano i da tu unosim novo a ne direktno u tabeli i kad u toj formi stisnem OK da izadje iz nje i u Form1 prikaze u tabeli sta sam unjeo. Hvala unapred...
Ako mozete sto prije odgovoriti hitno mi treba. :)

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 13:34 - pre 231 meseci}

Code:

' u form1 vec imas command button (cmdDodaj) koji ti aktivira drugu formu
Private Sub cmdDodaj_Click()
    With Form2
        .Show 1, Me  ' ovaj kec "1" znaci da će glavna forma tu stajati sve dok se form2 ne ugasi
' ne znam kako snimas u bazu, ali sve promenljive uzimas kao Form2.<ImePromenljive>
        rs!ImeiPrezime = .ImeiPrezime
        rs!Matematika = .Matematika
'        ....
    End With

End Sub

a ovo ide u Form2. naravno u Form2 treba da imas sva text polja koja si naveo

Code:

Option explicit
Public ImeiPrezime As String
Public Matematika As String
Public Fizika As String
Public Opravdano As String
Public Neopravdano As String

Private Sub cmdOk_Click()
    ImeiPrezime = txtImeiPrezime
    Matematika = txtMatematika
    Fizika = txtFizika
    Opravdano = txtOpravdano
    Neopravdano = txtNeopravdano
    Me.Hide
End Sub

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

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

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

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

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 14:00 - pre 231 meseci}

@vujkev: ovo je (po meni) veoma los i prljav nacin za preuzimanje podataka sa druge forme.

Elegantnija resenja su sa eventom forme ili sa public funkcijom

Form1

Code:

Private Sub Command1_Click()
    Dim ImeiPrezime     As String
    Dim Matematika      As String
    Dim Fizika          As String
    Dim Opravdano       As String
    Dim Neopravdano     As String

    Call Form2.PickData(ImeiPrezime, Matematika, Fizika, Opravdano, Neopravdano)
    Debug.Print ImeiPrezime, Matematika, Fizika, Opravdano, Neopravdano
End Sub

Form2

Code:

Private m_Canceled          As Boolean

Private m_ImeiPrezime       As String
Private m_Matematika        As String
Private m_Fizika            As String
Private m_Opravdano         As String
Private m_Neopravdano       As String

Public Function PickData(ByRef ImeiPrezime As String, _
                         ByRef Matematika As String, _
                         ByRef Fizika As String, _
                         ByRef Opravdano As String, _
                         ByRef Neopravdano As String)

    m_ImeiPrezime = ImeiPrezime
    m_Matematika = Matematika
    m_Fizika = Fizika
    m_Opravdano = Opravdano
    m_Neopravdano = Neopravdano

    '-- set default values
    txtImeiPrezime.Text = m_ImeiPrezime
    txtMatematika.Text = m_Matematika
    txtFizika.Text = m_Fizika
    txtOpravdano.Text = m_Opravdano
    txtNeopravdano.Text = m_Neopravdano

    Me.Show vbModal

    '-- nakon Unload Me kod nastavlja da se izvrsava ovde
    '-- vrati vrednosti parentu ako nije bio cancel
    If Not m_Canceled Then
        ImeiPrezime = m_ImeiPrezime
        Matematika = m_Matematika
        Fizika = m_Fizika
        Opravdano = m_Opravdano
        Neopravdano = m_Neopravdano
    End If

End Function

Private Sub cmdCancel_Click()
    m_Canceled = True
    Unload Me
End Sub

Private Sub cmdOk_Click()
    m_Canceled = False
    m_ImeiPrezime = txtImeiPrezime.Text
    m_Matematika = txtMatematika.Text
    m_Fizika = txtFizika.Text
    m_Opravdano = txtOpravdano.Text
    m_Neopravdano = txtNeopravdano.Text
    Unload Me
End Sub

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 14:20 - pre 231 meseci}

Hvala na ispravci. Zapamticu ovo

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 14:44 - pre 231 meseci}

Nas kako u tabeli imam:
Ime i prezime
Matematika
Fizika
Maternji jezik
Strani jezik
Srednja ocjena
Vladanje
Opravdano
Neopravdano
Svega
U tabeli ce mi biti svi prikazani, ali u Form2 nece biti ( Srednja ocjena, Svega ) zato sto cu u Form1 staviti kad kliknem na dugme cmdRezultat da to sve sabere.
E mozes dati primjer naspram ovoga. Hvala ti puno.

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 17:00 - pre 231 meseci}

Da li ima neko resenje za ovo moje navedeno gore. Molim vas hitno mi treba posto nisam bas razumio ono mladenovicevo.

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{11.04.2005. u 20:05 - pre 231 meseci}

Izvinite jel mi mozete odgovoriti molim vas treba mi hitno samo sam tu zapeo i nemogu nastaviti dalje.

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 14:22 - pre 231 meseci}

Ovaj kod gore mi ne radi. a sta nije u redu sa ovim mojim kodom:

Code:

Private Sub cmdRezultat_Click()
datPrimaryRS.RecordSource = "select sum(val(Opravdano)) AS ukupno FROM [Tehnicari za racunarstvo 2]"
datPrimaryRS.Refresh
lblUkupno = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "select [Red br],[Ime i prezime],[Maternji jezik],[Strani jezik] " & _
",Matematika,[Mjerenja u elek],Istorija,[El teh mat i komp],[Finomehanicka teh],Fizika,Informatika, " & _
"[Sportska kultura],[Osnove elek],[Radionicke vjezbe], ((([Maternji jezik]) +([Strani jezik]) " & _
"+ (Matematika) +([Mjerenja u elek]) +(Istorija) +([El teh mat i komp]) + ([Finomehanicka teh]) + (Fizika) + (Informatika) + ([Sportska kultura]) + ([Osnove elek]) + ([Radionicke vjezbe])) /12) " & _
" AS [Srednja ocjena], cint((([Maternji jezik]) +([Strani jezik]) " & _
"+ (Matematika) +([Mjerenja u elek]) +(Istorija) +([El teh mat i komp]) + ([Finomehanicka teh]) + (Fizika) + (Informatika) + ([Sportska kultura]) + ([Osnove elek]) + ([Radionicke vjezbe]) /15)) " & _
" AS Uspijeh,Vladanje,Opravdano,Neopravdano, (Opravdano+Neopravdano) AS Svega from [Tehnicari za racunarstvo 2]"
datPrimaryRS.Refresh
End Sub

U tabeli u koloni Srednja ocjena ispise kako treba npr. ( 2.24 ) stavio sam da dvije decimale, ali je problem u koloni Uspjeh nece da mi ispise npr. 4 vec ispisuje 42 nekad 48, nekad 46 sve zavisi koje sam ocjene unjeo. Hvala unaprijes. :)

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 14:34 - pre 231 meseci}

da ne treba ono /15 da bude posle sledeće zagrade?

Code:

... + ([Radionicke vjezbe]) ) /15 )

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 15:08 - pre 231 meseci}

E jest hvala ti a zasto nece onak kod gore da mi radi kad unesem sve i kliknem OK u tabeli nista se ne pojavi? Hvala ti puno za ovo. :)

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 16:33 - pre 231 meseci}

Zato što ih nisi ni ubacio u tabelu, odnosno bazu :)
mladenovicz ti je pokazao kako da preneseš podatke sa forme, i prikažeš ih u debug prozoru.Dakle zameni liniju

Code:
Debug.Print ImeiPrezime, Matematika, Fizika, Opravdano, Neopravdano

sa

Code:
datPrimaryRS.Recordset.AddNew
    datPrimaryRS.Recordset.Fields("ime i prezime").Value = ImeiPrezime
    datPrimaryRS.Recordset.Fields("Matematika").Value = Matematika
    datPrimaryRS.Recordset.Fields("Fizika").Value = Fizika
    datPrimaryRS.Recordset.Fields("Opravdano").Value = Opravdano
    datPrimaryRS.Recordset.Fields("Neopravdano").Value = Neopravdano
    datPrimaryRS.Recordset.Update

-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

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 16:43 - pre 231 meseci}

E hvala ti. Ja sjedim 14 sati za PC i samo mi izbacije probleme poludicu sad imam problem sa ovim kodom:

Code:

datPrimaryRS.RecordSource = "SELECT count(Uspijeh) FROM [Tehnicari za racunarstvo 2] WHERE val(Uspijeh) = 3"
datPrimaryRS.Refresh
lblOdlicnih.Caption = datPrimaryRS.Recordset.Fields(0).Value

i on mi u labelu ispise 0 umjesto da ispise 3 posto ih ima troje sa odlicnim uspjehom i tako u svim ostalim Vrlodobrih, Dobrih, itd ispise samo 0. Sta je u pitamnju covece nemam vise snage...............

Hvala ti milion puta!.!.!.!.!.!

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 19:39 - pre 231 meseci}

Izvinite bas sam na poran ali stacu kad mi uvjek nesto treba nemojte mi zamjeriti.
Imam jos jedno pitanje ovo gore sto sam pito za novi unos preko forme2 e sada kako kad kliknem u tabeli na neko ime i sada stisnem cmdUpdate da mi tu pokaze sve njegove podatke kao sto sam unosio nove pa da izmjenim neki. Hvala vam puno...

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 20:22 - pre 231 meseci}

To polje "Uspijeh" u tvom kodu postoji kao rezultat query-ja, tako da ga ne možeš koristiti direktno, već moraš da ga predstaviš sa istim query-jem sa kojim si ga i dobio.Evo ti primer za Fiziku i Matematiku, a ti dodaj ostale predmete i naravno promeni ovo 2 u broj predmeta koliko ih bude bilo

Code:
datPrimaryRS.RecordSource = "SELECT count([Ime i prezime]) FROM Razred WHERE cint((val(Matematika) + val(Fizika)) / 2) = 3"
datPrimaryRS.Refresh
lblOdlicnih.Caption = datPrimaryRS.Recordset.Fields(0).Value

-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

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)

^{12.04.2005. u 20:35 - pre 231 meseci}

Off Topic:

Citat:

Izvinite bas sam na poran ali stacu kad mi uvjek nesto treba nemojte mi zamjeriti.

Šta ćeš ? Pa, recimo da počneš malo više da se trudiš :)
Nemoj pogrešno da me shvatiš, jer ja ti ne zameram na tome što tražiš pomoć, ali ti zameram što ne želiš da se potrudiš malo više da sam nešto uradiš.Do sada si dobio dovoljno koda da bi sa malo kombinovanja mogao da napraviš sve to što ti treba u tom tvom projektu, dakle da naučiš nešto, što bi po meni i trebala da bude svrha foruma.Ako već želiš da se baviš programiranjem, moraš da naučiš da neko stečeno znanje iskoristiš u novim situacijama, jer u suprotnom ne vidim svrhu ovoga što se radi.
I još nešto, najlepše bih te zamolio da se uzdržiš od ovakvih poruka

Citat:

Da li ima neko resenje za ovo moje navedeno gore. Molim vas hitno mi treba posto nisam bas razumio ono mladenovicevo.

Citat:

Izvinite jel mi mozete odgovoriti molim vas treba mi hitno samo sam tu zapeo i nemogu nastaviti dalje.

napisanih u razmaku od 3 sata, jer time ništa ne dobijaš.Kada naiđe neko ko može da ti da odgovor, on će to i učiniti.

Poz.

-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

Odgovor na temu

[es] :: Visual Basic 6 :: Opet problem sa tabelom! (sabiranje dva polja iz baze)

Strane: 1 2 3 4 5 6 ... Dalje > >>

[ Pregleda: 17289 | Odgovora: 121 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
23.09.2005. Problem sa Rave Reports u Delphi-ju
06.06.2004. problem povezivnja dva uslova kod filtriranja baze
03.08.2004. problem sa selektovnjem polja iz baze
16.03.2005. Prikaz podataka u DBLabel
20.05.2005. Izvlacenje strukture baze is DataSet-a?
22.05.2005. Galoa polja tabele
12.11.2005. Kako da obrisem obrisana polja iz baze ??
19.11.2005. Bulova algebra i (sabiranje) oduzimanje - potpun ..
05.01.2006. Paketi problem?!?!?!

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.