MyCity » Visual Studio -> Visual Basic » Telefonski imenik - pretrazivanje baze

Telefonski imenik - pretrazivanje baze

Napisano na dan: 30.4.2006
2

Telefonski imenik - pretrazivanje baze
Pagination Prethodna strana

Idi na vrh

Poslao: 31 Dec 2008 01:12
Idi na vrh
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.
Poslao: 31 Dec 2008 14:18
Idi na vrh
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



Poslao: 31 Dec 2008 18:12
Idi na vrh
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.

Poslao: 31 Dec 2008 20:36
Idi na vrh
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

Poslao: 31 Dec 2008 22:53
Idi na vrh
offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12420

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

Poslao: 01 Jan 2009 20:02
Idi na vrh
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 ?

Poslao: 03 Jan 2009 22:26
Idi na vrh
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

Poslao: 07 Jan 2009 02:38
Idi na vrh
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: [Link mogu videti samo ulogovani korisnici]

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

Poslao: 07 Jan 2009 08:37
Idi na vrh
offline
  • Pridružio: 24 Jun 2008
  • Poruke: 26

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

Poslao: 07 Jan 2009 18:29
Idi na vrh
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

MyCity » Visual Studio -> Visual Basic » Telefonski imenik - pretrazivanje baze

Ko je trenutno na forumu
 

Ukupno su 2527 korisnika na forumu :: 63 registrovanih, 5 sakrivenih i 2459 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 4783 - dana 08 Dec 2025 18:21

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 10x10.9, A.R.Chafee.Jr., acov34, Apok, Avalon015, Belac91, blatruc82, bokicacar, boromir, BZ, darionis, darkojovxp, Dežurni_Automatičar, dskrlec33, dunavzed, filip1326, GH69, goflja76, hooraay, HrcAk47, ivica976, Jan, JK, jodzula, Kajzer Soze, Kolimator, kolle.the.kid, kovacicbozo, ladro, loon123, luka35, Marko Marković, mercedesamg, moldway, mxzzz, nebojsag, nelezele, Nemanja.M, nobutado, Oscar, paja69, pein, Pilence, powSrb, Prečanin30, procesor, qurtamurta, raso76, redstar72, Sava89, sekretar, Singidunumac, sony771, Srky Boy, Srle993, Tetrijeb, Tila Painen, tm, tomo2, Uros Cuore Sportivo, vathra, vensla, virked