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

  1. 'konekcija na bazu
  2.  Dim stdYesNo As StdFormat.StdDataFormat
  3.     Set dbconnection = New ADODB.Connection
  4.     Set rsuser = New ADODB.Recordset
  5.    
  6.     dbconnection.CursorLocation = adUseClient
  7.     dbconnection.Open _
  8.     "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\baza.mdb"
  9.     rsuser.Open " SELECT * FROM tabla", dbconnection, adOpenStatic, adLockOptimistic, adCmdText
  10.  
  11.  
  12.     Set DataGrid1.DataSource = rsuser
  13. '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

  1. "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
online
  • Pridružio: 14 Feb 2008
  • Poruke: 12405

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:

  1. Private Sub Command1_Click()
  2.     '
  3.     Dim varName As Variant
  4.     Dim strBkMark As Variant
  5.     '
  6.     varName = Text1
  7.     If varName = " " Then
  8.         Exit Sub
  9.     Else
  10.         varName = "'" & varName & "'"
  11.     End If
  12.     '
  13.     With frmMain.Data1.Recordset
  14.         strBkMark = .Bookmark
  15.         .FindFirst "Ime LIKE " & varName
  16.         If .NoMatch Then
  17.             .Bookmark = strBkMark
  18.             Unload Me
  19.             MsgBox "U imeniku ne postoji traženi podatak!", vbExclamation, "Rezultat pretrage"
  20.             frmMain.Show
  21.             frmMain.Enabled = True
  22.         End If
  23.     End With
  24.     '
  25.     Unload Me
  26.     frmMain.Show
  27.     frmMain.Enabled = True
  28.     '
  29. End Sub
  30.  
  31. Private Sub Command2_Click()
  32. Unload Me
  33. frmMain.Show
  34. frmMain.Enabled = True
  35. End Sub

Svuda sam trazio objasnjenje,ali nisam mogao da nadjem,a posebno za ovo:
  1. strBkMark = .Bookmark
  2.         .FindFirst "Ime LIKE " & varName

Poslao: 07 Jan 2009 02:38
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

  1. strBkMark = .Bookmark 'u strBkMark postavlja trenutnu poziciju imenika odnosno na kojem se Recordsetu nalazi imenik
  2. .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:

  1. .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 1039 korisnika na forumu :: 85 registrovanih, 7 sakrivenih i 947 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: 015, 8u47, A.R.Chafee.Jr., Arsenije, B61, babaroga, bigbear, bojcistv, bukefal, Chainsaw, Coficab, dekan.m, djile1, Djokislav, Djota1, Dolinc, Drugsparrow, dule10savic, dulleo, dunavzed, Dzoni2412, EXIT78, g_g, GORDI, Haris, hnjo, icemilos, Iii, istina, JankoS, Jomini, jukeboxer, kunktator, kybonacci, lacko, Lazur_01, lesa, Lj_ubo, LUDI, luka35, Malahit, MB120mm, mean_machine, Metanoja, Mickey12345, MiG-29M2, Mihajlo, milenko crazy north, milimoj, MiroslavD, Motocar, Mrav Obrad, Mzee, N.e.m.a.nj.a., naki011, obilender, oganj123, oldusername, pacika, Paklenica, Pale2025, pein, Pilence, PrincipL, raketaš, rakivan, Raso75, ruso, S-lash, S.Palestinac, sekretar, sosko, SOVO515, Srki94, taomaster, Tas011, travisrise, vjetar, vladulns, VNVK, Zdilar, Zeljo980, Zimbabwe, ZlatniRez, šumar bk2