Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

como verificar um numero de codigo ja existente....

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera boa noite, olha eu de novo ai ....!

 

Estou a procura de um codigo, q qnd eu for add meu produtos o sistema acusa o numero .

Tipo seu ja tenho o codigo 10 e tento colocar o mesmo numero ele acusa OBS. ESTE CODIGO JA EXISTE!!! APENAS ESTE CODIGO DISPONIVEL ( 11 )

 

 

Tipo qnd você se cadastra em sites e seu email ja existe no banco de dados .....

 

TEM COMO FAZER ISSO;.......

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Qual a dificuldade você está tendo, uma vez que você já sabe que é da mesma forma que verifica o e-mail?

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola boa noite Hargon !

 

A minha dificuldade é q naun tenho o codigo ....

 

você tem um exemplo ai ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Boa noite. Não seria...

Set rs = conexao.Execute("SELECT codigo FROM tabela WHERE codigo=" & vCodigo)
If Not rs.Eof
	Response.Write "Código existe"
Else
	Response.Write "Código não existe"
End If
rs.Close
Set rs = Nothing
?

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

estou usando este codigo aonde eu coloco o seu ?

 

<!-- #include file = "funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
isbn = UploadRequest.Item("isbn").Item("Value")
genero = UploadRequest.Item("genero").Item("Value")
espirito = UploadRequest.Item("espirito").Item("Value")
codigo = UploadRequest.Item("codigo").Item("Value")
nome = UploadRequest.Item("nome").Item("Value")
sinopse = UploadRequest.Item("sinopse").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/" + nome_foto

'---Fim---

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../../dados/dados.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into livro (isbn,genero,espirito,codigo,nome,sinopse,foto) values ('"& isbn &"', '"& genero &"', '"& espirito &"', '"& codigo &"', '"& nome &"', '"& sinopse &"','"& cfoto &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><h2><b>Dados cadastrados com sucesso!</b></h2></center></font>"

' Redireciona após 5 segundos
response.write "<meta http-equiv='refresh' content='3; url=form_exclui.asp'/>"
%>
<head>
<title></title>
</head>

<body>
<p align="center">
<img src="../../imagens/carregando.gif">

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Acredito que o INSERT deve entrar na parte do IF onde não existe o código.

 

Mas lembrando que você tem que adaptar a consulta que poste de acordo com a sua necessidade. Postei um exemplo apenas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode seguir esta lógica...

<!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito