o que está dando errado


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: o que está dando errado

bernardolb
não registrado

ENUNCIADA !

Postada em 18/10/2004 13:10 hs

Dim nomedigitado As String
nomedigitado = InputBox("nome para busca", "Nome para busca")
Data1.RecordSource = "select * from agenda where nome =nomedigitado "
Data1.Refresh
:::::logo
agenda = bancodedados
nome = campo
o erro e o seguinto
The Microsoft Jet database engine cannot find the input table or query Make sure it exists and that its name is spelled correctly. (Error 3078)

Rinaldo
não registrado

ENUNCIADA !

Postada em 18/10/2004 13:20 hs

Tente mudar esta linha

Data1.RecordSource = "select * from agenda where nome =nomedigitado "

para esta

Data1.RecordSource = "select * from agenda where nome =" & nomedigitado

T+

Rinaldo

Rinaldo
não registrado

ENUNCIADA !

Postada em 18/10/2004 13:22 hs

Ah esqueci, o correto é assim:

Data1.RecordSource = "select * from agenda where nome ='" & nomedigitado "'"

T+

Rinaldo

maxcim

GUARULHOS
SP - BRASIL

Postada em 18/10/2004 13:30 hs

para facilitar o busca utilize um caractere curinga "*" que retorna qualquer coisa apos o texto qu voce digitou

por exemplo voce digita José no nome para busca e o programa retorna todos os josés presentes no BD , para fazer isso use:

nomedigitado = InputBox("nome para busca", "Nome para busca")

nomedigitado = plic(nomedigitado & "*")

' ou plic("*" & nomedigitado & "*") para buscar em qualquer parte do texto

Data1.RecordSource = "select * from agenda where nome like" & nomedigitado

'no module - tratamento de aspas

Public Function Plic(ByVal sTexto As String) As _
       String
If InStr(sTexto, Chr(39)) Then
    Plic = Chr(39) & Replace(sTexto, _
           Chr(39), Chr(39) & Chr(39)) & _
           Chr(39)
Else
    Plic = Chr(39) & sTexto & Chr(39)
End If
End Function

qualquer duvida poste ai

Fabio Rocha

SÃO PAULO
SP - BRASIL

Postada em 18/10/2004 14:43 hs

Data1.RecordSource = "select * from agenda where nome ='" & nomedigitado & "'"

bernardolb
não registrado

Postada em 18/10/2004 14:53 hs

não dá erro!!!! mas não localiza!!!!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR