Telefonski imenik - pretrazivanje baze

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 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!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Iskreno, prvi put vidim ovu gresku

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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