PESQUISA STRING

IRENKO 31/05/2007 16:33:41
#219168
Atualmente faço a consulta do campo numero conformr abaixo:

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & TxtMat1.Text & "'"
Set TB = BDLista.Execute(SqlTexto)

No campo numero é gravado como string da seguinte forma: 1615.2, que é digitado no TxtMat1.Text para pesquisa. Como faço essa pesquisa buscando na tabela somente os quatro primeiros digitos digitados no TxtMat1.Text, ignorando o(.)e o digito posterior?
USUARIO.EXCLUIDOS 31/05/2007 16:38:25
#219169
tenta isso

a = left(TxtMat1.Text,4)

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & a & "'"
Set TB = BDLista.Execute(SqlTexto)
USUARIO.EXCLUIDOS 31/05/2007 16:38:26
#219170 Resposta escolhida
SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(TxtMat1.Text,4) & "'"
Set TB = BDLista.Execute(SqlTexto)
USUARIO.EXCLUIDOS 31/05/2007 16:38:49
#219171
Veja se é isso que você precisa.

  
SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(TxtMat1.Text,4) & "'"
Set TB = BDLista.Execute(SqlTexto)



Espero ter ajudado.
USUARIO.EXCLUIDOS 31/05/2007 16:39:29
#219172
Galera, foi mal. Já tinham respondido.. hehehe
IRENKO 31/05/2007 16:44:16
#219178
Nenhuma deu certo, não carrega registro algum.
USUARIO.EXCLUIDOS 31/05/2007 16:45:46
#219179
SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Mid(Trim(TxtMat1.Text), 1, 4) & "'"
Set TB = BDLista.Execute(SqlTexto)

ou

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(Trim(TxtMat1.Text)) & "'"
Set TB = BDLista.Execute(SqlTexto)

obs.: estou removendo possíveis espaço em branco!
IRENKO 31/05/2007 16:54:13
#219183
Piolho, deu erro apontando no Left de sua segunda instrução:

(Numero de argumentos incorretos ou atribuição de propriedade invalida)

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(Trim(TxtMat1.Text)) & "'"
Set TB = BDLista.Execute(SqlTexto)

a outra nõa carregou registro.
USUARIO.EXCLUIDOS 31/05/2007 17:00:25
#219185
tenta isso


SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(Trim(TxtMat1.Text),4) & "'"
Set TB = BDLista.Execute(SqlTexto)
IRENKO 31/05/2007 17:05:53
#219188
Tambem não carregou!

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & Left(Trim(TxtMat1.Text), 4) & "'"
Set TB = BDLista.Execute(SqlTexto)


If Not TB.EOF Then

'preenche os campos c/ valor da tabela
Matricula = TB!Numero
DNome1 = TB!NOME
End If
End If
End If

Matricula e DNome1 são variaveis string as quais uso posteriormente.

USUARIO.EXCLUIDOS 31/05/2007 17:15:21
#219192
so uma pergunta do banco de dados tem esse numero é o msm q vc esta buscado tipo assim:

no bando esta assim(1615), ve se no TxtMat1.Text tbm esta esse valor.
Página 1 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar