|
|
Postada em 28/09/2006 18:25 hs
Gente eu preciso de uma ajuda. No DBGrid, eu aprendi q usa uma data e tals e tals, mas dai ele me da todos os registros q tem em certa tabela Dados do Banco de dados. Eu queria que no DBGrid mostra-se somente um filtro. É um soft de entrada, então que nele mostra-se somente o filtro do Dia Atual e não todos os acessos que deu, entenderam¿?¿? Bom, preciso de um filtro no dbgrid... please help-me!!!Tnx |
|
|
|
|
|
|
|
Postada em 28/09/2006 18:26 hs
Ah, desculpe!! MInha conexão é em DAO |
|
|
|
|
|
Postada em 28/09/2006 18:37 hs
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsfilter As DAO.Recordset Set db = Workspaces(0).OpenDatabase("C:|db97.mdb")
Set rs = db.OpenRecordset("TBA", dbOpenDynaset) rs.Filter = "nome like 'jo*'"
Set rsfilter = rs.OpenRecordset
Do While Not rsfilter.EOF
Debug.Print rsfilter("nome")
rsfilter.MoveNext
Loop tente ae... at+ |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 29/09/2006 15:32 hs
caro amigo, hum... tipo, até deu certo, em partes, mas é q eu não consigo por esse filtro no dbgrid!, ¿eu num consigo huashuashuashuas! na sub do while qual comando coloco para q em vez de dar printer, ou adicionar numa list, pq isso aprendi aqui no forum, va para o db??? Vlw |
|
|
|
|
|
Postada em 01/10/2006 21:50 hs
ah blz. Seu Grid deve estar ligado a um controle Data, então faz assim: Dim Rs As Recordset
Dim flag As Boolean
Private Sub Command1_Click()
If Not flag Then
Set Rs = Data2.Recordset.OpenRecordset
flag = Not flag
End If
filtro = InputBox("Escreva o nome do autor")
If Trim(filtro) <> "" Then
Rs.Filter = "Author LIKE '" & filtro & "*' "
Else
Rs.Filter = ""
End If
Set Data2.Recordset = Rs.OpenRecordset
End Sub Estou pesquisando pelo começo do campo. Fiz uma variável flag para q o Rs abra somente uma vez... Se vc não digitar nada então ele vai tirar o filtro e voltar ao q estava antes. ok?? qq dúvida é só postar at+ :) |
|
|
|
|
|
Postada em 03/10/2006 17:33 hs
Ow, não testei ainda, pq to no trmapo, mas o q seria esse comando debug.print? pra q q serve? |
|
|
|
