Uporedjivanje

1

Uporedjivanje

offline
  • Pridružio: 02 Sep 2003
  • Poruke: 42
  • Gde živiš: Tamo iz nekog grada..

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?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

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) Smile



offline
  • Pridružio: 18 Apr 2003
  • Poruke: 1819
  • Gde živiš: Beograd

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

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

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?! Smile

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 1819
  • Gde živiš: Beograd

@snoop

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

A sta ce tebi VB??! Smile Smile

offline
  • Pridružio: 02 Sep 2003
  • Poruke: 42
  • Gde živiš: Tamo iz nekog grada..

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 Smile

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 1819
  • Gde živiš: Beograd

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 Smile


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

offline
  • Pridružio: 02 Sep 2003
  • Poruke: 42
  • Gde živiš: Tamo iz nekog grada..

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..

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

@ 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...

offline
  • Pridružio: 02 Sep 2003
  • Poruke: 42
  • Gde živiš: Tamo iz nekog grada..

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.

Ko je trenutno na forumu
 

Ukupno su 1354 korisnika na forumu :: 41 registrovanih, 4 sakrivenih i 1309 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Ageofloneliness, antonije64, Apok, Asparagus, BORUTUS, Brana01, CikaKURE, comi_pfc, cuculo, Dimitrise93, Dorcolac, Dukelander, Georgius, gmlale, gorval, ILGromovnik, janbo, ladro, Leonov, lord sir giga, Lošmi, Lucije Kvint, Magistar78, mercedesamg, miodrag, Mixelotti, mocnijogurt, naki011, Nemanja.M, pera bager, Pikac-47, Ripanjac, S2M, skvara, Srle993, Stanlio, stegonosa, Vlad000, vladulns, zlaya011