Pesquisa string - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Pesquisa string

Irenko

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 31/05/2007 18:45 hs

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?

kerplunk

SÃO PAULO
SP - BRASIL

Postada em 01/06/2007 10:30 hs

Vc quer dizer a parte INTEIRA do número digitado em TxtMat1, certo? Porque "os 4 primeiros digitos" abre margem para muito erro. Bom para pegar a parte inteira do número, ignorando decimais:

SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & cint(TxtMat1.Text) & "'"

Tenha em mente que isso usará REGRAS DE ARREDONDAMENTO, podendo alterar o último dígito para cima. É possível tb pegar os números inteiros sem arredondar:

Dim num
num = split(txtmat1.text,".")
SqlTexto = "SELECT Numero,Nome FROM Dados WHERE Numero = '" & num(0) & "'"

Qualquer outra dúvida post!

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site