LOCALIZAR USANDO ADO

USUARIO.EXCLUIDOS 03/06/2005 13:44:52
#86833
Esto fazendo da seguinte forma pra preencher uma Grid

Public db As Connection
Dim WithEvents adoPrimaryRS As Recordset  

Private Sub Form_Load()
AbreBanco
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * Tabela ", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
End Sub

Public Sub AbreBanco()
Set db = New Connection
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Dados\Escolar.mdb;"
End Sub


Como devo fazer para localizar um registro no Grid, atraves de um determinado campo?
LEANDRO.BUENO 03/06/2005 14:20:36
#86845
Eu fiz assim no meu programa:
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM originaisexternos WHERE documento='" & txtlocalizar & "'", dbOpenDynaset)
Set Data1.Recordset = var_sql
Data1.Refresh
txtlocalizar = Empty
txtlocalizar.SetFocus
Exit Sub
Onde o data1 esta relacionado com a flexgrid
Tente adaptar ao seu.


Espero ter ajudado
USUARIO.EXCLUIDOS 03/06/2005 14:33:02
#86848 Resposta escolhida
quando você utiliza um datagrid, seu recordset esta aberto, portanto pesquise no seu recordset e não no datagrid

adoPrimaryRS.movefirst
adoPrimaryRS.find "SeuCampo Like '" & textpesquisa.text "'" 'extamentente igual

ou
adoPrimaryRS.movefirst
adoPrimaryRS.find "SeuCampo Like '" & textpesquisa.text "%'" 'pelas iniciais

ou
adoPrimaryRS.movefirst
adoPrimaryRS.find "SeuCampo Like '%" & textpesquisa.text "%'" 'por partes

ou
adoPrimaryRS.movefirst
adoPrimaryRS.find "SeuCampo = " & textpesquisa.text 'para campos do tipo numero
USUARIO.EXCLUIDOS 03/06/2005 14:49:28
#86855
Tranquilo Wiliam, era isto mesmo que estava precisando.

Valeu Leandro, eu faço isso que vc colocou na filtragem, ou seja, quando o usuario filtra eu carrego o grid, quando ele localiza o cursor para sobre o regsitro
USUARIO.EXCLUIDOS 03/06/2005 20:07:58
#86908
Como devo fazer para que a localização continua do registro localizado ate o ultimo do grid


Ae galera , eu coloquei
adoPrimaryRS.MoveNext
USUARIO.EXCLUIDOS 03/06/2005 21:01:56
#86913
Como devo fazer para selecionar a linha por inteiro do grid?

Gostaria de saber se tem como trocar a ordem das colunas de um grid fazendo drag amd drop
Tópico encerrado , respostas não são mais permitidas
Voltar