deljenje dva broja

deljenje dva broja 03.02.2010. u 12:49 · pre 203 meseca #1

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.

Potpis

Prunto

Re: deljenje dva broja 03.02.2010. u 16:26 · pre 203 meseca #2

Pa, stavi proveru

Code (vb):

If b <> 0 Then

    c = a / b

Else

    c = sta_vec_hoces_ako_je_b_nula

End If

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: deljenje dva broja 04.02.2010. u 13:32 · pre 203 meseca #3

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

Potpis

Prunto

Re: deljenje dva broja 05.02.2010. u 09:54 · pre 203 meseca #4

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

Re: deljenje dva broja 05.02.2010. u 10:53 · pre 203 meseca #5

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.

Potpis

-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

Re: deljenje dva broja 10.02.2010. u 12:16 · pre 203 meseca #6

Hvala na pomoci!!!

Potpis

Prunto

Forum kao aplikacija na telefonu

Srodne teme