[es] - deljenje dva broja

prunto
Sabac

Član broj: 239659
Poruke: 38
93.87.160.*

Profil

^{03.02.2010. u 11:49 - pre 173 meseci}

Pozz ljudi,moj problem se sastoji u sledecem,imam bazu na koju sam konektovan putem DATA1,upisujem podatke u tabelu i iscitavam,ali kada hocu da uradim deljenje dva broja,prijavljuje mi da ne mogu da delim sa nulom,i ako je to polje u bazi prazno,ali verovatno ga cita vb kao nulu.
podatke koje obradjujem su u accessu tipa
a=integer
b=integer
c=double , a data type je svima number

kod koji kucam u vb je sledeci
-----------------------------
Private Sub Command2_Click()
Dim a As Integer
Dim b As Integer
Dim c As Double
a = Val(Text7.Text)
b = Val(Text6.Text)
c = a / b
Text8.Text = a / b
-----------------------------

Molio bih za pomoc kako da ovo resim?

Evo link sa projektom,da pogledate gde sam zaj***o

http://www.easy-share.com/1909184768/REZERVISANJE OTPREMNINE.rar

_{[Ovu poruku je menjao prunto dana 03.02.2010. u 13:08 GMT+1]}

Da napomenem da je broj b ceo broj sa 1 ili 2 cifre,dok je broj a isto ceo broj i iznosi 161682,a c ce biti zacisno od situacije ili ceo ili sa decimalom.

_{[Ovu poruku je menjao prunto dana 03.02.2010. u 13:10 GMT+1]}

Prunto

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: deljenje dva broja

^{03.02.2010. u 15:26 - pre 173 meseci}

Pa, stavi proveru

Code (vb):

If b <> 0 Then

    c = a / b

Else

    c = sta_vec_hoces_ako_je_b_nula

End If

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

prunto
Sabac

Član broj: 239659
Poruke: 38
93.87.160.*

Profil

Re: deljenje dva broja

^{04.02.2010. u 12:32 - pre 173 meseci}

Druze uradio sam na drugaciji nacin,ali u svakom slucaju ti hvala.
Sad da pitam kako da uradim zbir svih rezervisanja (za svakog coveka imam odredjenu sumu),znaci meni treba ukupan zbir,koji bi dobio pritiskom na commandbutton u textbox-u?
Hvala

Prunto

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

Re: deljenje dva broja

^{05.02.2010. u 08:54 - pre 173 meseci}

Code:

Private Sub Command1_Click()
Dim i As Integer
Dim Zbir as Long

    Zbir = 0
    Data1.Refresh
    For i = 0 To Data1.Recordset.RecordCount-1
        If i=0 then
            Data1.Recordset.MoveFirst
        Else
             Data1.Recordset.MoveNext
        End if

        Zbir = Zbir + Data1.Recordset.Fields(1)
    Next
    Text1.Text = Zbir
End Sub

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: deljenje dva broja

^{05.02.2010. u 09:53 - pre 173 meseci}

Ovo je veoma loš način (i jedan i drugi primer) za izvođenje računskih operacija kada se radi o bazama podataka. Ne samo što dosta komplikuje i prlja kod, već i zato što je sporije. Za takve stvari treba koristiti SQL

Prvi primer (sa deljenjem) može da se izvede na ovaj način

Code:
SELECT IIF(ISNULL(Polje2) OR Polje2 = 0, 0, Polje1 / Polje2) As Rezultat FROM Tabela1

a drugi primer sa sabiranjem

Code:
SELECT SUM(Polje1) As Zbir FROM Tabela1

ili kombinacija ovih kverija.

-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