Uporedjivanje

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam sledeci kod (koji povezuje program u VB i bazu pisanu u Access-u), tacnije text box-ove sa kolonama u tabeli:

Private Sub Procedura()   If PrviTextBox-a.Text = adoRecordset!ImePrveKolone Then        If  DrugiTextBox.Text = adoRecordset!ImeDrugeKolone Then            MsgBox "Uspjeh"        Else            MsgBox "Takav izraz ne postoji u DrugojKoloni"        End If     Else          If adorecordset .EOF Then              MsgBox "Takav izraz ne postoji u prvoj koloni"              Exit Sub          End If          adorecordset .MoveNext          Call Procedura               End If

Radi samo ukoliko unesem prvu ili drugu vrstu kolona(u kodu ImePrveKolone i ImeDrugeKolone). Za ostale javlja gresku, odnosno obradjuje dio On Error GoTo..

U cemu je problem?

I da li ce ovakav program uzeti odgovarajuci element Prve i Druge Kolone, dakle da ne prihvati izraze koji nisu u istoj vrsti datih kolona?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ti zelis da uradis da program iz baze podataka uzme i uporedi korisnicko ime i password?! ako to zelis postoji drugi ispravan nacin da se to uradi... ako zelis uradicu za tebe i objasnicu ti (poslacu ti source), ali, moras da koristis ADO objekte. pogledaj da li u komponentama imas mogucstvo dodavanja Microsoft ADO object ili kako vec. klikni desni na tool box gde se nalaze elementi koje ubacujes u formu i klikni na components i pronadji Microsoft ADO object ako imas OK onda cu ti poslati ceo kod sa objasnjenjem...

sada trenutno nemam vremena da kazem u cemu je problem u tom kodu, ali cu pogledati pa cu reci (ako budem znao)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa nemas ni while petlju...ne mozes da pomeras recordsetove sa movenext ako nisu u petlji...
Mislim da ti nedostaje jedno while not adorecordset.EOF do...

Evo jos malo cu da pogledam, ali probaj sa ovim, jer necim moras da pretrazis sve recordset-ove

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jelena u pravu si, to sam primetio, ali zaboravio da pomenem nego ja sam ti uradio primer pa ako zelis da ga dobije posalji mi preko PM-a tvoj mail i poslacu ti...

@ Jelena

otkud ti znas VB?!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@snoop

Pa kako otkud znam, sto se toliko cudis? Naucila sam . Salim se... :)Pa ja sam dipl. ing. za informacione sisteme, pa eto, izmedju ostalog znam da programiram i u VB-u

A sta ce tebi VB??!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Dodala sam Do Loop tako da program (otprilike) izgleda:
Private Sub Procedura() adorecordset .MoveFirst Do Until adorecordset .EOF   If PrviTextBox-a.Text = adoRecordset!ImePrveKolone Then         If DrugiTextBox.Text = adoRecordset!ImeDrugeKolone Then             MsgBox "Uspjeh"             Exit sub         Else             MsgBox "Takav izraz ne postoji u DrugojKoloni"             Exit Sub        End If Else    adorecordset .MoveNext  End If Loop End Sub

Provjerava samo prve dvije vrste i poslednju..

Snoop poslala sam pm i adresu, ako ne uspijem ovako da rijesim.

Hvala obojema na pomoci, pa ma iz kog razloga radili VB

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

SkitArhKa ::
Private Sub Procedura() adorecordset .MoveFirst Do Until adorecordset .EOF   If PrviTextBox-a.Text = adoRecordset!ImePrveKolone Then         If DrugiTextBox.Text = adoRecordset!ImeDrugeKolone Then             MsgBox "Uspjeh"             Exit sub         Else             MsgBox "Takav izraz ne postoji u DrugojKoloni"             Exit Sub        End If Else    adorecordset .MoveNext  End If Loop End Sub

Provjerava samo prve dvije vrste i poslednju..

Snoop poslala sam pm i adresu, ako ne uspijem ovako da rijesim.

Hvala obojema na pomoci, pa ma iz kog razloga radili VB

Private Sub Procedura() adorecordset .MoveFirst Do Until adorecordset .EOF   If PrviTextBox-a.Text = adoRecordset!ImePrveKolone Then         If DrugiTextBox.Text = adoRecordset!ImeDrugeKolone Then             MsgBox "Uspjeh"             Exit sub         Else             MsgBox "Takav izraz ne postoji u DrugojKoloni"             Exit Sub        End If End If    adorecordset .MoveNext Loop End Sub

Probaj ovako. Da bi ti proverilo sve, mora da izvrti sve recordsetove, a ne samo da se odradi ako onaj prvi if uslov nije ispunjen

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jelena ::

Probaj ovako. Da bi ti proverilo sve, mora da izvrti sve recordsetove, a ne samo da se odradi ako onaj prvi if uslov nije ispunjen

Nece ni ovako.. U svakom slucaju meni je potrebno da samo u tom slucaju (prvom) trazi dalje, jer ako nadje na pocetku nece posle naci jer nema ponavljanja u bazi..
Ipak on stigne do poslednje vrste.. obradi i prvu i drugu ali ostale nece nikako..

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@ SkitArhKa

pogledaj ono sto sam ti poslao lakse je onako mozda samo tako ne izgleda, ali veruj mi jeste.... ne moras da se mucis sa do while petljama...

mada bi trebalo i tako da radi, ali eto probacu pa cu videti...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

snoop ::@ SkitArhKa

pogledaj ono sto sam ti poslao lakse je onako mozda samo tako ne izgleda, ali veruj mi jeste.... ne moras da se mucis sa do while petljama...

mada bi trebalo i tako da radi, ali eto probacu pa cu videti...

Dobila sam onaj log ali ne mogu da ga raspakujem, rar mi javlja da su fajlovi osteceni.. vratila sam Ti e-mail..

I hvala na pomoci i trudu.