BUSCA_GRID

USUARIO.EXCLUIDOS 12/09/2007 09:04:22
#235149
Galera estou mais uma vez com a mesma questao, na verdade o que eu quero me parece simples e ja fiz quase tudo falta um pequeno detalhe

quero fazer um form de pesquisa de entidades, nesse meu form ja coloque os seguintes componentes um MsSFlexgrid e caixa de texto, onde nessa caixa de texto vou ter que digitar o nome da entidade e no MsFlexgrid vai ser selecionado a entidade que satisfaça minha digitaçao.

Vou passar abaixo da forma que ja fiz, e da forma que carrego meu MSFlexGrid.
Lembrando que da forma que ja fiz só nao dar certo pelo seguinte problema vamos dar exemplo: que exista varias entidades com o nome Maria da Silva, entao o meu problema e que quando digito Silva aparece todos as Marias e dessa forma eu não quero e quero da forma que só aparece quando eu digitasse Maria ou seja nao buscasse por fragmento lembrando que o criterio começasse do inicio do nome para fim exemplo:

Se existesse a seguinte entidades
Maria da Silva
Maria de Sousa
Maria da Cruz

quando eu digitasse "Maria" aparecesse toda as "Maria" mais quando eu digitasse "Maria de" aparecesse apenas "Maria de Sousa"

Lembrando que o componente que uso é o MsFlexGrid

vou clocar como tá meu codigo


Private Sub Form_Load()
Dim sqlFiltrar As String

sqlFiltrar = "SELECT codigo,nome,cpf,CNPJ  FROM ENTIDADES"
TblConsultaEntidades.Open sqlFiltrar, conexao, adOpenKeyset, adLockOptimistic

CarregarGrid
AjustarGrid
TblConsultaEntidades.Close

End Sub



Private Sub CarregarGrid()
'--------------Funcao para buscar os dados no banco-----------------
    
Set DataGridEntidades.DataSource = TblConsultaEntidades

'-------------------------------------------------------------------
End Sub


Private Sub AbrirTabela()
'--------sql que busca os dados no banco por ordem alfabetica-------

SqlBuscarDados = "Select *  From ENTIDADES"

TblConsultaEntidades.Open SqlBuscarDados, conexao, adOpenKeyset, adLockOptimistic

'Abrir conexao com o banco
'-------------------------------------------------------------------
End Sub



Private Sub AjustarGrid()
'---------Funcao para ajustar o grid conforme os daos---------------
    
    DataGridEntidades.TextMatrix(0, 0) = "CODIGO" 'X
    DataGridEntidades.TextMatrix(0, 1) = "CODIGO"   'X
    DataGridEntidades.TextMatrix(0, 2) = "NOME"   'X
    DataGridEntidades.ColWidth(0) = 0             'X
    DataGridEntidades.ColWidth(1) = 1000           'X
    DataGridEntidades.ColWidth(2) = 5500
    DataGridEntidades.ColWidth(3) = 2000
    DataGridEntidades.ColWidth(4) = 2000
  
    
'-------------------------------------------------------------------
End Sub



na caixa de texto tá mais ou menos assim
sqlFiltrar = "SELECT codigo,nome,cpf,CNPJ FROM ENTIDADES WHERE Nome Like '%" & txtnome.Text & "%'"
TblConsultaEntidades.Open sqlFiltrar, conexao, adOpenKeyset, adLockOptimistic
CarregarGrid
AjustarGrid

agora alguem pode me ajudar?
SILVERDRAGON 12/09/2007 09:17:37
#235156 Resposta escolhida
Coloca isso ..

sqlFiltrar = "SELECT codigo,nome,cpf,CNPJ  FROM ENTIDADES WHERE  Nome Like '" & txtnome.Text & "%'"
TblConsultaEntidades.Open sqlFiltrar, conexao, adOpenKeyset, adLockOptimistic
CarregarGrid
AjustarGrid


T+
USUARIO.EXCLUIDOS 12/09/2007 10:27:25
#235178
é para mudar apenas isso "'" & txtnome.Text & "%'"
"
SILVERDRAGON 12/09/2007 10:52:57
#235185
é sim...


Funcionou?


T+
USUARIO.EXCLUIDOS 12/09/2007 10:56:08
#235186
vou testar
SILVERDRAGON 12/09/2007 11:26:19
#235195
E ai foi.... ?? ? ? ? ?

+ nao esquece heim traco isso aqui..

sqlFiltrar = "SELECT codigo,nome,cpf,CNPJ  FROM ENTIDADES WHERE  Nome Like '" & txtnome.Text & "%'"
TblConsultaEntidades.Open sqlFiltrar, conexao, adOpenKeyset, adLockOptimistic
CarregarGrid
AjustarGrid


copia e cola no lugar do seu

T+
Tópico encerrado , respostas não são mais permitidas
Voltar