somete letras


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: somete letras

arm.g

SÃO PAULO
SP - BRASIL

Postada em 22/06/2005 08:16 hs

como faço para uma textbox, aceitar somente letras.... pois se o usuario digita aspas " da erro... na instrução SQL.... oq ue devo fazer...

agradeço desde jah

um abraço a todos...

Maxcim

GUARULHOS
SP - BRASIL

Postada em 22/06/2005 09:36 hs

é muito simples, se for buscar em um campo string faça o tratamento da aspa como segue:

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
  Plic = Replace(Plic, "*", "%")
End Function

criterio = plic(txt_nome) ' pega o conteudo do txt
SQL = "SELECT * FROM Tbl_Cadastro WHERE Nome LIKE " & criterio

arm.g

SÃO PAULO
SP - BRASIL

Postada em 22/06/2005 09:50 hs

Private Sub Text12_Change()
criterio = Plic(Text12.Text)

Set rst = New ADODB.Recordset
axsql = "SELECT clientes.CodCli, clientes.fantasia, clientes.contrato, clientes.fone1, clientes.contato FROM clientes WHERE fantasia LIKE('" & criterio & "%') order by fantasia" '""

rst.Open axsql, conexao, adOpenKeyset, adLockPessimistic
MSHFlexGrid1.ColWidth(0) = 50
MSHFlexGrid1.ColWidth(1) = 900
MSHFlexGrid1.ColWidth(2) = 2000
MSHFlexGrid1.ColWidth(3) = 900
MSHFlexGrid1.ColWidth(4) = 1200
MSHFlexGrid1.ColWidth(5) = 2000
Set MSHFlexGrid1.DataSource = rst
rst.Close

End Sub

da o seguinte erro (operador faltando na expressão de consulta ' fantasia liki("a'%')'.)

Página(s): 1/1