Telefonski imenik - pretrazivanje baze

2

Telefonski imenik - pretrazivanje baze

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

Radim isti projekat sa access bazom... i sve sam zavrsio uspesno, jendino mi je ostalo da napravim neki filter da kad u neki textbox ukucam npr. ime da on u tabeli datagrid oznaci ga sa onom strelicom sa leve strane. dali neko moze da mi pomogne Question za konekciju na bazu koristim ovaj kod 'konekcija na bazu  Dim stdYesNo As StdFormat.StdDataFormat     Set dbconnection = New ADODB.Connection     Set rsuser = New ADODB.Recordset         dbconnection.CursorLocation = adUseClient     dbconnection.Open _     "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\baza.mdb"     rsuser.Open " SELECT * FROM tabla", dbconnection, adOpenStatic, adLockOptimistic, adCmdText     Set DataGrid1.DataSource = rsuser 'konektovano
Hvala unapred!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Hmm... Ovo sa strelicom nisam siguran bas kako ide. Ali mozes u SQL upitu da dodas
"WHERE ime=" & textbox.text &";"
i tako ce ti u datagridu prikazivati samo osobe koje se zovu tim imenom koje si upisao u textbox Smile



offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

Ok hvala...sad cu probati.

Dopuna: 31 Dec 2008 18:12

Evo probao sam sad ali neide izbacuje mi gresku kao u skrinu koji sam atacovao.

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Iskreno, prvi put vidim ovu gresku Sad

Verovatno ovo moje nece ici sa tvojim kodom... iako ni za to nemam objasnjenje Razz
Mozes li napisati taj deo koda gde si dodao ovo moje? Bebee Dol

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12345

Stvarno bih poslao imenik - nasao sam ga. Ali problem je sto je 11mb Sad . Verovatno zbog grafike Sad. Zao mi je ....

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

EE sretna nova godina svima.... sve najbolje!!! Very Happy

pokusao sam ga ovako odraditi rsuser.Filter = "WHERE ime i prezime=" & Text5.Text & ";" i sa tim kodom mi izbacuje gresku Sad jel ima neko resenja? ili ja nisam dobro nesto pdradio ?

offline
  • Pridružio: 24 Jun 2008
  • Poruke: 26

Pogledao sam ovaj imenik,i jasno mi je kako radi u principu,ali ako bi neko mogao da mi objasni kod za za formu Search?
Tj. da mi objasni ovaj deo:
Private Sub Command1_Click()     '     Dim varName As Variant     Dim strBkMark As Variant     '     varName = Text1     If varName = " " Then         Exit Sub     Else         varName = "'" & varName & "'"     End If     '     With frmMain.Data1.Recordset         strBkMark = .Bookmark         .FindFirst "Ime LIKE " & varName         If .NoMatch Then             .Bookmark = strBkMark             Unload Me             MsgBox "U imeniku ne postoji traženi podatak!", vbExclamation, "Rezultat pretrage"             frmMain.Show             frmMain.Enabled = True         End If     End With     '     Unload Me     frmMain.Show     frmMain.Enabled = True     ' End Sub Private Sub Command2_Click() Unload Me frmMain.Show frmMain.Enabled = True End Sub
Svuda sam trazio objasnjenje,ali nisam mogao da nadjem,a posebno za ovo:
strBkMark = .Bookmark         .FindFirst "Ime LIKE " & varName

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

strBkMark = .Bookmark 'u strBkMark postavlja trenutnu poziciju imenika odnosno na kojem se Recordsetu nalazi imenik .FindFirst "Ime LIKE " & varName 'pretrazuje bazu tako da trazi varName u polju Ime u bazi

Ako nema rezultata, a recordset vise nije na starom mestu on ga pomocu ovog vraca:

.Bookmark = strBkMark

Jel treba da objasnim ceo kod ili je ovo dovoljno? Bebee Dol

Dopuna: 07 Jan 2009 2:38

Evo ovde ces naci nesto o tome: http://www.cmis.brighton.ac.uk/Research/Archive/no.....ab16_3.htm

Citat:Another useful property of the RecordSet is Bookmark. Bookmark is, in effect, the current record pointer. You can save the value of the Bookmark property, and use it later to move directly to that record, as follows:

Dim saveBookmark As String
saveBookmark = data1.RecordSet.Bookmark
' do processing which moves the current record pointer
data1.RecordSet.Bookmark = saveBookmark 'Restore the current record pointer

offline
  • Pridružio: 24 Jun 2008
  • Poruke: 26

Samo to mi nije bilo jasno,sve ostalo je Ok.Hvala...

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

da sve je to lepo, kad imas record set, a aj imam datagrid ima li za to leka ? Smile

Ko je trenutno na forumu
 

Ukupno su 765 korisnika na forumu :: 31 registrovanih, 5 sakrivenih i 729 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: _Sale, bojank, Boris90, cenejac111, danilopu, Drug pukovnik, Georgius, goran.babic5, goxin, havoc995, helen1, HrcAk47, ibssa, ikan, janezek67, Konda, krlebgd77, Marko Marković, Milan A. Nikolic, miodrag, moldway, nebkv, RJ, sakota79, shadower78, sombrero, sovanova95, ssekir75, Tas011, Toni, vlvl