INPUTBOX
Ae pessoal boa noite, eu voltei a mexer com vb, e to meio eprdido agora, to com uma dificuldade aqui e gostaria de saber de voces se é possivel persquisar atraves de um inputbox parte de um nome...
Eu tenho o campo nome. Joseane Figueira Almeida.
Se por inputbox eu posso colocar figueira e ele voltar todos os registros dentro de um listview... eu to com este codigo aqui veja se é possivel por favor...
Dim sArg As String
Dim i As Integer
Dim item As Integer
Dim Column As Long
Dim Counter As Long
LlenaListView
sArg = InputBox([Ô]Digite o Nome do Contato[Ô], [Ô]Consulta por Nome[Ô])
Rs2.CursorLocation = adUseClient
Rs2.Open [Ô]Select CodigoH,* FROM Tbl_Contas where Contato like [ô][Ô] & sArg & [Ô]%[ô] Order by CodigoH asc[Ô], Conn1, adOpenDynamic, adLockBatchOptimistic
If Rs2.EOF Then
MsgBox [Ô]Nenhum Registro foi Encontrado[Ô], vbInformation, [Ô]Aviso[Ô]
Rs2.Requery
LlenaListView
se puder me dar um dica agradeço, valew pessoal.
Eu tenho o campo nome. Joseane Figueira Almeida.
Se por inputbox eu posso colocar figueira e ele voltar todos os registros dentro de um listview... eu to com este codigo aqui veja se é possivel por favor...
Dim sArg As String
Dim i As Integer
Dim item As Integer
Dim Column As Long
Dim Counter As Long
LlenaListView
sArg = InputBox([Ô]Digite o Nome do Contato[Ô], [Ô]Consulta por Nome[Ô])
Rs2.CursorLocation = adUseClient
Rs2.Open [Ô]Select CodigoH,* FROM Tbl_Contas where Contato like [ô][Ô] & sArg & [Ô]%[ô] Order by CodigoH asc[Ô], Conn1, adOpenDynamic, adLockBatchOptimistic
If Rs2.EOF Then
MsgBox [Ô]Nenhum Registro foi Encontrado[Ô], vbInformation, [Ô]Aviso[Ô]
Rs2.Requery
LlenaListView
se puder me dar um dica agradeço, valew pessoal.
Tente fazer uma pequena alteração na linha abaixo:
Rs2.Open [Ô]Select CodigoH,* FROM Tbl_Contas where Contato like [ô]%[Ô] & sArg & [Ô]%[ô] Order by CodigoH asc[Ô], Conn1, adOpenDynamic, adLockBatchOptimistic
Valew Tecla, era isso memo cara, muito obrigado cara.
Tópico encerrado , respostas não são mais permitidas