Pomoc oko filtriranja datagrida

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

Pozz forumasi:))

koristim ovaj kod za konekciju sa bazom i smestanje podataka u datagrid

Set Konekcija = New ADODB.Connection
Set rsuser = New ADODB.Recordset

Konekcija.CursorLocation = adUseClient
Konekcija.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb"
rsuser.Open " SELECT * FROM Slave", Konekcija, adOpenStatic, adLockOptimistic, adCmdText


Set DataGrid1.DataSource = rsuser
DataGrid1.Refresh

i sada imam jedan problem koji ne znam kako da rasim. U jednoj tabeli imam 100 zapisa i ja hocu da izdvojim pod kriterijumom iz jednog textboxa (u toj tabeli imam kolonu za kriterijum i ja treba da uporedim sa kriterijumom iz text boxa i ako se slažu da se taj zapis stavi u datagrid , ako se ne poklapa da ga preskoci).

Hvala na svakoj pomoći unapred!

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

Nisam nikad pisao kod u VB, samo nesto malo u VBA, tako da uzmi ovo sa rezervom. Probaj sledece:
Error_92 ::Pozz forumasi:))

...
rsuser.Open " SELECT * FROM Slave WHERE ImeKolone= '" & ImeTextBoxa.Text & "'", Konekcija, adOpenStatic, adLockOptimistic, adCmdText
...

Ako ovo gore nece probaj sledece: WHERE ImeKolone= '" Trim(ImeTextBoxa) & "'"

Trim funkcija uklanja prazna polja sa pocetka i kraja stringa.

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

Ako zelis da filtriras od A do Z ove ti SQL upit:
Citat:
"SELECT * FROM imeTabele WHERE uslov ORDER BY poKojojKoloniIzTabeleDaFiltrira ASC"


ASC = Ascending

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

Napisano: 13 Apr 2010 14:25

Puno se zahvaljujem na brzom odgovoru,sada cu da isprobam pa javim rezultate ;-)

Dopuna: 13 Apr 2010 14:33

Hvala puno!! ovo radi
usput odma je proradilo sa ovim kodom
rsuser.Open " SELECT * FROM Slave WHERE ImeKolone= '" & ImeTextBoxa.Text & "'", Konekcija, adOpenStatic, adLockOptimistic, adCmdText
hvala jos jednom

Dopuna: 19 Apr 2010 0:25

Da ne otvaram novu temu....
Na koji nacin da markiram ceo red kada kliknem na bilo koju kolonu u tom redu ?

Hvala unpred!

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

Dali koristis VB 6 ili VB 2005? Probaj dali ce ovo raditi kod tebe:
Private Sub Form_Load()     DataGrid1.MarqueeStyle = dbgHighlightRow End Sub
Evo sta kaze Microsoft o tome (pogledaj pod "MarqueeStyle Property"):

http://msdn.microsoft.com/en-us/library/y4ddh1ac(VS.80).aspx

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

Napisano: 19 Apr 2010 14:38

Hvala na pomoci to je to

Dopuna: 08 Jun 2010 22:33

Prijatelji opet mi je zapeo

Napisao sam ovaj upit Operatori.Open "Select * from Operatori where Operater='" & Combo1.Text & "' and Lozinka='" & TxtLoz.Text & "' and Zabrana='" & "Aktivan" & "'", Konekcija, adOpenDynamic, adLockOptimistici to radi, ali treba da napišem jedan sličan tome sa jendom razlikom. Imam 2 text boxa u kojima piše datum od i datum do, i u jednoj tabeli imam smeštene te datume i ja sada trebam da ukljucim te datume izmedju u datagrid a ove sto nisu izmedju da odbacim. Da li to može da ide preko upita ili mora nekako drugačije?

for x = 1 to 100
print "Hvala unapred "
next x