METODO LOCALIZAR?

USUARIO.EXCLUIDOS 19/07/2005 10:17:54
#94929
Galera,....
Estou com uma aplicação que faz conexão ADO com o Access 2003 em uma banco de dados simples. - Como é que eu poderia desenvolver no VB o código do botão FIND ou Localizar?

Até agora, eu realizei algumas tentativas frustadas,....

Agradeço.
Leonardo
JEAN.JEDSON 19/07/2005 10:21:48
#94932
bem... poste suas frustações para termos uma idéia do que deu errado.
USUARIO.EXCLUIDOS 19/07/2005 10:47:53
#94957
Concordo JEAN, poste o seu código aqui para a gente dar uma olhada
JEAN.JEDSON 19/07/2005 10:49:18
#94958
ahhh...
por sinal... não sei se serve, mas dê uma olhada neste meu Código Fonte
USUARIO.EXCLUIDOS 19/07/2005 10:53:27
#94961
Galera... o que eu tentei usar é esta dica do Dennys, com um pouco de SQL.
Vejam:

Ele dá erro nesta linha:
" rs.Open "select * from usuarios where ID like '%" & resposta & "%'", conexao 'Abre a tabela e procura a palavra digitada no "

Private Sub cmd_Buscar_Click()
If cmd_Buscar.Caption = "Normal" Then 'Se o botão estiver com o texto: "Normal"
rs.Close 'Fecha a conexão
rs.Open "select * from usuarios ", conexao 'Abre a tabela novamente (Usando SQL)
cmd_Buscar.Caption = "Buscar" 'O texto do Botão muda para: "Buscar"
Else 'Senão
resposta = InputBox("Informe o codigo do usuário a localizar ", "Localizar") 'Abre uma InputBox
rs.Close 'Fecha a Tabela
rs.Open "select * from usuarios where ID like '%" & resposta & "%'", conexao 'Abre a tabela e procura a palavra digitada no campo ID
If rs.EOF Then
MsgBox "Não encontrei o codigo: " & resposta
rs.Close
rs.Open "select * from usuarios ", conexao
Else
cmd_Buscar.Caption= "Normal"
End If
End If
carrega
USUARIO.EXCLUIDOS 19/07/2005 11:21:28
#94966
Galera, Eu também estou com um outro probleminha....
Na minha Sub Grava:

Sub grava()
rs.Fields(0) = "" & Text1.Text
rs.Fields(1) = "" & Text2.Text
rs.Fields(2) = "" & Text3.Text
End Sub

Quando o usuário deixa de cadastrar algum campo e clica em salvar.... dá erro no sistema. - "Será que é porque estou utilizando o Format na sub Carrega Dados...?

Ex.: Text1 = fomat( rs(0)#.##,00.00)

Vejam se conseguem me dar uma luz...
Valeu.
Leonardo.
LREZANI 19/07/2005 11:31:14
#94968
Testei assim e funcionou perfeitamente.
 rs.Open "select * from usuarios where ID like '%" & resposta  "%'", conexao, adOpenDynamic, adLockOptimistic

Você esqueceu do Tipo de cursor "CursorType" e do tipo de bloqueio "LockType".
Espero ter esclarecido LEONARDO.
JEAN.JEDSON 19/07/2005 11:32:07
#94970
poste os dois erros que acontecem, por favor
JEAN.JEDSON 19/07/2005 11:35:45
#94972
ahhh
o código que postei o link, não lhe agrada?
LREZANI 19/07/2005 11:45:59
#94975
Testei assim e funcionou:
"select * from usuarios where ID like '%" & resposta & "%'", conexao, adOpenDynamic, adLockOptimistic

Faltou você indicar o tipo de cursor "CursorType" e o tipo de bloqueio "LockType"
Espero ter esclarecido LEONARDO.
USUARIO.EXCLUIDOS 19/07/2005 11:51:12
#94976
Galera, JEAN,

No momento eu não tenho como postar os erros, pois estou desenvolvendo esta aplicação em casa, e estou aqui no trabalho... E aqui só rola Delphi.

JEAN, eu vou verificar o código fonte que vc passou, e assim que eu receber um resultado "positivo/negativo", lá em casa, eu volto aqui para falar pra vcÂÂÂ's.

Bom... até agora, muito obrigado pelas Dicas e ajuda.
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar