[es] - Uporedjivanje textbox-a i podatka iz baze

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Uporedjivanje textbox-a i podatka iz baze

^{23.09.2008. u 03:20 - pre 201 meseci}

Nešto nisam siguran da ovaj forum posećuju vidovnjaci, tako da, ako misliš da ti neko pomogne, moraš prvo da daš malo (mnogo) više detalja... Dakle, koja je baza u pitanju ? Šta koristiš za konekciju sa bazom (DAO, ADO...) ? Šta tačno hoćeš da uporediš, ceo red, odrešeno polje, više polja... ? Kako ti izgleda struktura baze ?

-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

sorrow

Član broj: 150457
Poruke: 17
79.143.169.*

Profil

Re: Uporedjivanje textbox-a i podatka iz baze

^{23.09.2008. u 10:22 - pre 201 meseci}

Evo ovako. Radim seminarski, temu sam dobio da napravim Program za vođenje video kluba. Ja sam uspio sve to nekako da skuckam i daošao sam do dijela da kad u textbox ukucam šifru filma da mi provjeri da li je film iznajmljen i da MsgBox izbaci upozorenje i da me sprijeći da ne bih iznajmio isti film dva puta. Taj problem treba da riješim u "txtfID" textboxu.

Evo code od te forme pa da vidite kako su podaci povezani i sve ostale potrebne informacije:

Code:

'-----------------------------------------------------------------------
Private Sub Form_Load()
    korisnici.Refresh
    filmovi.Refresh
    Iznajmljivanje.Refresh
End Sub
'------------------------------------------------------------------------
Private Sub cmdPotvrdi_Click()
    Dim strSQL As String

    Iznajmljivanje.Recordset.MoveFirst
    strSQL = "Select * from Iznajmljivanje where kID = " & txtkID.Text & ""
    Iznajmljivanje.RecordSource = strSQL
    'Iznajmljivanje.Refresh
    If Not Iznajmljivanje.Recordset.BOF Then
        With Iznajmljivanje.Recordset
        .AddNew
        !FID = txtfID.Text
        !kID = txtkID.Text
        !Film = lblImeFilma
        !ImeKorisnika = lblkIme
        !PrezimeKorisnika = lblkPrezime
        !DatumIzn = Format(Date, "dd/mm/yyyy")
        .Update
        .Requery
        End With
    End If
    'filmovi.Recordset!Iznajmljen = True
    Unload Me
    prva.Show
End Sub
'-------------------------------------------------------------------------
Private Sub Nazad_Click()
prva.Show
Unload Me
End Sub
'-------------------------------------------------------------------------
Private Sub txtkID_LostFocus()

    If txtkID.Text <> "" Then
    korisnici.Recordset.MoveFirst
    korisnici.Recordset.Find "kID = " & txtkID.Text & ""
    If Not korisnici.Recordset.EOF Then

        lblkIme = korisnici.Recordset!Ime
        lblkPrezime = korisnici.Recordset!Prezime
        lbltel = korisnici.Recordset![Broj Telefona]
        lblUlica = korisnici.Recordset!Ulica
        lblMjesto = korisnici.Recordset!Mjesto
        txtfID.SetFocus

    Else

        MsgBox "Unijeli ste pograšan ID Korisnika!"
        txtkID.Text = ""
        txtkID.SetFocus

    End If
    End If

End Sub
'----------------------------------------------------------------------------
Private Sub txtfID_LostFocus()
    'Dim FIDi As String
    'Dim FIDK As String
    filmovi.Recordset.MoveFirst
    If txtfID.Text <> "" Then
    filmovi.Recordset.Find "fID = " & txtfID.Text & ""
    If Not filmovi.Recordset.EOF Then

        lblImeFilma = filmovi.Recordset!Ime
        lblGlumci = filmovi.Recordset!Glumci
        lblZanr = filmovi.Recordset!Zanr
        lblReziser = filmovi.Recordset!Reziser
        lblGodina = filmovi.Recordset!Godina

      '-------------------------------------- EVO OVDE POKUŠAVAM DA TO URADIM
        FIDK = txtfID
        FIDi = Iznajmljivanje.Recordset!FID
        If FID = FIDK Then
            MsgBox "Film je iznajmljen!"
            txtfID.Text = ""
            txtfID.SetFocus
        End If
      '--------------------------------------
       cmdPotvrdi.SetFocus
    Else

        MsgBox "Unijeli ste pograšan ID Filma!"
        txtfID.Text = ""
        txtfID.SetFocus


    End If
    End If
End Sub
'---------------------------------------------------------------------------------

Kao što vidite nisam neki poznavalac VB6, to je zato što sam VB6 prvi put pokrenuo prije nekoliko dana

Izvinjavam se svima, ali mi je stvarno potrebno da riješim ovaj problem što prije, pa zato vas gnjavim. Nemam vremena da uzmem neku knjigu i pa da to sam na tenane prostudiram. Tražio sam po tutorima ali nisam ništa zapazio.
Svaka pomoć je dobrodošla. Unaprijed zahvalan.

_{[Ovu poruku je menjao sorrow dana 23.09.2008. u 15:39 GMT+1]}

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Uporedjivanje textbox-a i podatka iz baze

^{23.09.2008. u 14:25 - pre 201 meseci}

Ih bre, al si ti to zakomplikovao :)
Izvini, ali ja iz ovoga što si napisao zaista ne kontam kako tvoj program treba da radi, tj. kako si ti to zamislio. Dakle, ako sam ja dobro razumeo, ti imaš 3 tabele, korisnici, filmovi i iznajmljivanje... i onda kad izdaš film upisuješ u tabelu iznajmljivanje. Međutim vidim da imaš i polje iznajmljen u tabeli filmovi, a proveru pokušavaš da izvršiš pretražujući tabelu iznajmljivanje. Zašto ? Zar nije jednostavnije da proveriš u tabeli filmovi da li je Iznajmljen True ili False ? Ili ja nešto nisam dobro razumeo.

Odgovor na temu