A consulta tah funcionando mas....


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: A consulta tah funcionando mas....

[k]-du

SANTOS
SP - BRASIL

Postada em 24/06/2004 14:23 hs

ela tah funcionando mas qdo ela faz a pesquisa no banco de dados com algum nome do tipo: Abrel's do santos.... dah o seguinte erro

Run Time Error 3075

Erro na sintaxe da consulta

eu toh fazendo a pesquisa assim

Set tb = db.OpenRecordset("select * from dados where (nome like '*" & Text1.Text & "*')", dbOpenSnapshot)

Por favor me ajudem, como sempre neh!!!!

abraços

Cadu

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 24/06/2004 14:36 hs

É porque ele esta fechando a consulta na aspas (') do Abrel's Tente colocar entre duas aspas simples assim

Set tb = db.OpenRecordset("select * from dados where (nome like ''*" & Text1.Text & "*'')", dbOpenSnapshot)

[k]-du

SANTOS
SP - BRASIL

Postada em 24/06/2004 14:48 hs

Dah errado mo msm jeito

eh phod.... se ele pesquisar somente por abrel... a busca funciona... mas se ele colocar a apostrofe.... dah errado

msm assim valeu pela dica

Waldirjr

POÇOS DE CALDAS
MG - BRASIL

Postada em 24/06/2004 16:07 hs

Solução para a Aspa Simples (') em Strings de SQL

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

'P/ usar, por exemplo:
Text1.Text = Plic(Text1.Text)

'No caso, se for p/ passar p/ uma string SQL, veja:
Dim MySQL As String
MySQL = "Select * From Clientes Where Nome = " & _
        Plic(Text1.Text)

________________________

Té +

Que NIMB role bons Dados!

Página(s): 1/1

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

VOLTAR