[ sorrow @ 23.09.2008. 03:00 ] @
Porebno mi je da podatak iz textbox-a uporedim sa podatkom iz baze.
Kako da podatak iz baze prebacim u promjenljivu i uporedim je sa textboxom? I kako iz textboxa podatak prebaciti u promjenljivu? Ako se može na ovaj načn i kako bi to izgledalo to poređenje preko IF petlje?
[ Marko_L @ 23.09.2008. 03:20 ] @
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 ?
[ sorrow @ 23.09.2008. 10:22 ] @
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]
[ Marko_L @ 23.09.2008. 14:25 ] @
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.
[ sorrow @ 23.09.2008. 14:40 ] @

Uspio sam da riješim problem dodavanjem ovog koda:
Code:
If txtfID.Text <> "" Then
        Iznajmljivanje.Recordset.MoveFirst
        Iznajmljivanje.Recordset.Find "fID = " & txtfID.Text & ""
        If Not Iznajmljivanje.Recordset.EOF Then
            MsgBox "Film je iznajmljen!"
            txtfID.Text = ""
            txtfID.SetFocus
        End If