11 replies to this topic

[pchardnet]

Moçada é o seguinte,

Tenho que criar uma consulta a uma base de dados e tenho que dar duas opções: CPF e NOME.

Quero trabalhar somente com uma caixa de texto, onde o usuário poderá entrar com qualquer um dos dados.

Estes dados serão armazenados em uma variável.

Aqui vem a dúvida.

Existe alguma função que me retorne qual tipo de dado está armazenado na variável ou uma que leia ao menos um tipo de dado retornando V ou F???

Valeu!

[Info_Tec]

Para CPF, poderia ser usado o IsNumeric, caso fosse digitado só numeros.

Como alternativa um RadioButon para o usuário dizer o que está entrando, e usar regras de digitação e verificação.

[vrsbueno]

tipo, faz se for soh numero eh CPF, se for soh letrar eh nome!
eh soh verificar por aki:

SET numeros = new RegExp
numeros.Pattern = "^[0-9.\-]+$"

IF numeros.Test(VARIAVEL) THEN
FAZ VERIFICAO DE CPF
ELSE
FAZ VERIFICAO DE NOME
END IF

tenta ae...

[pchardnet]

Agarrei aqui na verificação do RS

Preciso saber se o nome não foi encontrado para dar uma resposta ao usuário.

If not RS.EOF ????

Ajuda aÊ

vrsbueno
legal a paradinha que me passou..;... mas tá com um probleminha....

SET numeros = new RegExp
numeros.Pattern = "^[0-9.\-]+$"

IF numeros.Test(vbusca) THEN
incluir = "Select * from tbsocios where cpf = "&vbusca&" "
Set RS = conObj.Execute(incluir)
ELSE
Response.Write("NOME")
END IF

Olha o erro aqui

Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
/vazante/alt_incluir.asp, line 24

Edição feita por: pchardnet, 16/07/2004, 15:50.

[Info_Tec]

A linha 24 é a da execução do SQL? Se for, o campo CPF no BD é Numero ou texto?

[pchardnet]

A linha 24 é a da execução do SQL? Se for, o campo CPF no BD é Numero ou texto?

sou um burrinho.... tava concatenando como numero e o campo é texto....


E a comparação se existe ou não o valor no BD, como eu faço??

Edição feita por: pchardnet, 16/07/2004, 15:55.

[Info_Tec]

Use o

If Not RS.EOF Then

' Exibe o que vc quer do banco

Else

' Não tem nada

End If

[pchardnet]

E aí que eu agarrei... sei que tenho que usar isso, mas não tô sabendo onde....

V c dá pra vc ajudar....

SET numeros = new RegExp
    numeros.Pattern = "^[0-9.\-]+$"


	IF numeros.Test(vbusca) THEN   'para cpf
	incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"
	Set RS = conObj.Execute(incluir)
	ELSE   'para nome
	incluir = "Select * from tbsocios where nome = '"&vnome&"'"
	Set RS = conObj.Execute(incluir)
	END IF

---------------------------------

Cheguei a colocar assim.....

SET numeros = new RegExp
numeros.Pattern = "^[0-9.\-]+$"


	IF numeros.Test(vbusca) THEN
	incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"
	Set RS = conObj.Execute(incluir)
  If Not RS.EOF Then
 	 response.write(vbusca)' Exibe o que vc quer do banco
  Else
 	 response.Write("inexistente")' Não tem nada
  End If

	ELSE
	incluir = "Select * from tbsocios where nome = '"&vnome&"'"
	Set RS = conObj.Execute(incluir)
	END IF

Tá dando este erro.;..;

Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Edição feita por: pchardnet, 16/07/2004, 16:15.

[Info_Tec]

Algo +/- assim que de ser:

SET numeros = new RegExp

   numeros.Pattern = "^[0-9.\-]+$"





IF numeros.Test(vbusca) THEN   'para cpf

incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"

Set RS = conObj.Execute(incluir)

ELSE   'para nome

incluir = "Select * from tbsocios where nome = '"&vnome&"'"

Set RS = conObj.Execute(incluir)

END IF



 If Not RS.EOF Then

  response.write(vbusca)' Exibe o que vc quer do banco

 Else

  response.Write("inexistente")' Não tem nada

 End If

[pchardnet]

Kra não funcionou.... vou postar o código completo

Estou usando só um campo de entrada de dados...

vbusca = request.Form("txtbusca") 'recupera variável

if vbusca="" then ' compara variável vazia

%>    
<script> 
alert("Preencha o campo corretamente. Não use\".\" , \"/\" , \",\".");
parent.meio.history.go(-1)
</script>
<%

else 'senão entra no código

SET numeros = new RegExp   'informa de é numérica ou alfanumérica a variável
numeros.Pattern = "^[0-9.\-]+$"


	IF numeros.Test(vbusca) THEN 'para CPF (numérica)

	incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"
	Set RS = conObj.Execute(incluir)
 
	ELSE 'para NOME (alfanumérica)

	incluir = "Select * from tbsocios where nome = '"&vbusca&"'"
	Set RS = conObj.Execute(incluir)

	END IF


    If Not RS.EOF Then
    response.write(vbusca)' Exibe o que vc quer do banco
    Else
    response.Write("inexistente")' Não tem nada
    End If
%>

[vrsbueno]

vrsbueno
legal a paradinha que me passou..;... mas tá com um probleminha....

SET numeros = new RegExp
numeros.Pattern = "^[0-9.\-]+$"

IF numeros.Test(vbusca) THEN
incluir = "Select * from tbsocios where cpf = "&vbusca&" "
Set RS = conObj.Execute(incluir)
ELSE
Response.Write("NOME")
END IF

Olha o erro aqui

Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
/vazante/alt_incluir.asp, line 24

mto dahora isso..

quem me passou foi o Troyan.

[pchardnet]

Pois é ainda não consegui fazer funcionar.

O teste se o registro existe ou não tá dando erro.

vbusca = request.Form("txtbusca") 'recupera variável

if vbusca="" then ' compara variável vazia

%>   
<script>
alert("Preencha o campo corretamente. Não use\".\" , \"/\" , \",\".");
parent.meio.history.go(-1)
</script>
<%

else 'senão entra no código

SET numeros = new RegExp  'informa de é numérica ou alfanumérica a variável
numeros.Pattern = "^[0-9.\-]+$"


IF numeros.Test(vbusca) THEN 'para CPF (numérica)

incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"
Set RS = conObj.Execute(incluir)

ELSE 'para NOME (alfanumérica)

incluir = "Select * from tbsocios where nome = '"&vbusca&"'"
Set RS = conObj.Execute(incluir)

END IF


  If Not RS.EOF Then
  response.write(vbusca)' Exibe o que vc quer do banco
  Else
  response.Write("inexistente")' Não tem nada
  End If
%>