Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

cadastrar cliente não fica gravado os dados

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza tenho um sistema em asp eu tenho uma pagina pra cadastrar o cliente ai quando eu vou digitar o mesmo cliente ele não grava as informações ai eu tenho que digitar tudo de novo

 

como eu faço pra salvar o cliente pra não ter que cadastrar de novo o cliente

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

como você esta recuperando os dados e fazendo o INSERT

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

está ai o meu codigo tres pagina a primeiro é pra cadastrar o Fornecedor a segunda é pra receber os dados e a terceira é a pagina do banco de dados

 

cadastrar_fornedores.asp

 

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<html>
<head>
<title>Exemplo busca CEP Ajax</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<!-- Faça o include da lib do jQuery -->
<script type="text/javascript" src="scripts/lib/jquery.js"></script>
<script type="text/javascript">
// Função única que fará a transação
function getEndereco() {
		// Se o campo CEP não estiver vazio
		if($.trim($("#cep").val()) != ""){
			/* 
				Para conectar no serviço e executar o json, precisamos usar a função
				getScript do jQuery, o getScript e o dataType:"jsonp" conseguem fazer o cross-domain, os outros
				dataTypes não possibilitam esta interação entre domínios diferentes
				Estou chamando a url do serviço passando o parâmetro "formato=javascript" e o CEP digitado no formulário
http://cep.republicavirtual.com.br/web_cep.php?formato=javascript&cep="+$("#cep").val()
			*/
			$.getScript("http://cep.republicavirtual.com.br/web_cep.php?formato=javascript&cep="+$("#cep").val(), function(){
				// o getScript dá um eval no script, então é só ler!
				//Se o resultado for igual a 1
		  		if(resultadoCEP["resultado"]){
					// troca o valor dos elementos
					$("#rua").val(unescape(resultadoCEP["tipo_logradouro"])+": "+unescape(resultadoCEP["logradouro"]));
					$("#bairro").val(unescape(resultadoCEP["bairro"]));
					$("#cidade").val(unescape(resultadoCEP["cidade"]));
					$("#estado").val(unescape(resultadoCEP["uf"]));
				}else{
					alert("Endereço não encontrado");
				}
			});				
		}			
}
</script>

</head>

<body>


<!-- 
O formulário é simples, a única coisa diferente é o atributo "onBlur" no campo "cep" 
   o onBlur executa um comando javascript assim que o campo perde o fóco, neste caso eu chamo a função javascript "getEndereco()"
-->

 <form name="frm" Method="Post" action="receber_cadastro_fornecedores.asp">
<table align="left" width="40%" border="1">
<tr>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Data</td>
 <td width="423" colspan="8"><input name="Data" id="Data" size="40" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Codigo</td>
 <td width="423" colspan="8"><input name="Codigo" id="Codigo" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Fornecedor</td>
 <td width="423" colspan="8"><input name="Fornecedor" id="Fornecedor" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Representante:</td>
 <td width="423" colspan="8"><input name="Representante" id="Representante" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>

 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">CNPJ:</td>
 <td width="423" colspan="8"><input name="CNPJ" id="CNPJ" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Inscricao:</td>
 <td width="423" colspan="8"><input name="Inscricao" id="Inscricao" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Telefone:</td>
<td width="423" colspan="8"><input name="Telefone" id="Telefone" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Celular:</td>
<td width="423" colspan="8"><input name="Celular" id="Celular" size="20" maxlength="20"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Fax:</td>
<td width="423" colspan="8"><input name="Fax" id="Fax" size="20" maxlength="20"/>
		<tr>
	<td>
	</tr>
	</td>
	<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">CEP:</td>
<td width="423" colspan="8"><input name="Cep" id="cep" size="20" maxlength="20" onBlur="getEndereco()"/></font>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Logradouro:</td>
<td width="423" colspan="8"><input name="rua" id="rua" size="20" maxlength="20" onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Bairro:</td>
<td width="423" colspan="8"><input name="Bairro" id="bairro" size="10" maxlength="8"/  onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Cidade:</td>
<td width="423" colspan="8"><input name="Cidade" id="cidade" size="10" maxlength="8"/  onBlur="getEndereco()"/>
	 <tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Estado:</td>
<td width="423" colspan="8"><input name="Estado" id="estado" size="10" maxlength="8"/  onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Complemento:</font></td>
<td width="423" colspan="8"> <input name="Complemento" id="Complemento" size="10" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Email:</td>
<td width="423" colspan="8"><input name="Email" id="Email" size="40" maxlength="40"/>
		<tr>
	<td>
	</tr>
	</td>
<td align="left"><input type="Submit" name="btn_Cadastrar Vendas" value=" Cadastrar Fornecedor >>">

</form>
</table>
</BODY>
</HTML>

 

 

receber_cadastro_fornecedores.asp

 

 

<% 

'Recebendo Parametros

Data=Request.Form("Data")
Codigo=Request.Form("Codigo")
Fornecedor=Request.Form("Fornecedor")
Representante=Request.Form("Representante")
CNPJ=Request.Form("CNPJ")
Inscricao=Request.Form("Inscricao")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
Fax=Request.Form("Fax")
Cep=Request.Form("Cep")
Logradouro=Request.Form("rua")
Bairro=Request.Form("Bairro")
Cidade=Request.Form("Cidade")
Estado=Request.Form("Estado")
Complemento=Request.Form("Complemento")
Email=Request.Form("Email")

'Mostrar Parametros

%>
<table align="left" width="40%">
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Data</td>
<td bgcolor="#336699"><%Response.Write(Data)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Codigo</td>
<td bgcolor="#336699"><%Response.Write(Codigo)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Fornecedor</td>
<td bgcolor="#336699"><%Response.Write(Fornecedor)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Representante</td>
<td bgcolor="#336699"><%Response.Write(Representante)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">CNPJ</td>
<td bgcolor="#336699"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Inscricao</td>
<td bgcolor="#336699"><%Response.Write(Inscricao)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Telefone</td>
<td bgcolor="#336699"><%Response.Write(Telefone)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Celular</td>
<td bgcolor="#336699"><%Response.Write(Celular)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Fax</td>
<td bgcolor="#336699"><%Response.Write(Fax)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Cep</td>
<td bgcolor="#336699"><%Response.Write(Cep)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Logradouro</td>
<td bgcolor="#336699"><%Response.Write(Logradouro)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Bairro</td>
<td bgcolor="#336699"><%Response.Write(Bairro)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Cidade</td>
<td bgcolor="#336699"><%Response.Write(Cidade)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Estado</td>
<td bgcolor="#336699"><%Response.Write(Estado)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Complemento</td>
<td bgcolor="#336699"><%Response.Write(Complemento)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Email</td>
<td bgcolor="#336699"><%Response.Write(Email)%></td>
</tr>
<tr>
</table>
<form name="frm1" Method="Post" action="confirmar_cadastro_fornecedor.asp">
<input type="Submit" name="btn_receber_cadastro" value="Receber Cadastro Fornecedores">

<input type="hidden" name="Data" value="<%Response.Write(Data)%>">
<input type="hidden" name="Codigo" value="<%Response.Write(Codigo)%>">
<input type="hidden" name="fornecedor" value="<%Response.Write(Fornecedor)%>">
<input type="hidden" name="Representante" value="<%Response.Write(Representante)%>">
<input type="hidden" name="CNPJ" value="<%Response.Write(CNPJ)%>">
<input type="hidden" name="Inscricao" value="<%Response.Write(Inscricao)%>">
<input type="hidden" name="Telefone" value="<%Response.Write(Telefone)%>">
<input type="hidden" name="Celular" value="<%Response.Write(Celular)%>">
<input type="hidden" name="Fax" value="<%Response.Write(Fax)%>">
<input type="hidden" name="Cep" value="<%Response.Write(Cep)%>">
<input type="hidden" name="rua" value="<%Response.Write(Logradouro)%>">
<input type="hidden" name="Bairro" value="<%Response.Write(Bairro)%>">
<input type="hidden" name="Cidade" value="<%Response.Write(Cidade)%>">
<input type="hidden" name="Estado" value="<%Response.Write(Estado)%>">
<input type="hidden" name="Complemento" value="<%Response.Write(Complemento)%>">
<input type="hidden" name="Email" value="<%Response.Write(Email)%>">

</form>

 

 

confirmar_cadastro_fornecedor.asp

 

 

<%

'Recebendo Parametros

Data=Request.Form("Data")
Codigo=Request.Form("Codigo")
Fornecedor=Request.Form("Fornecedor")
Representante=Request.Form("Representante")
CNPJ=Request.Form("CNPJ")
Inscricao=Request.Form("Inscricao")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
Fax=Request.Form("Fax")
Cep=Request.Form("Cep")
Logradouro=Request.Form("rua")
Bairro=Request.Form("Bairro")
Cidade=Request.Form("Cidade")
Estado=Request.Form("Estado")
Complemento=Request.Form("Complemento")
Email=Request.Form("Email")

dim conexao
dim strDriver
dim objconexao
dim objrecordset

Set DbConn = Server.CreateObject("ADODB.Connection")
strConexao = "Provider=SQLOLEDB;Database=Db_Fornecedores;Server=maquina02;Uid=sa;Pwd=123456789"
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha"


'strconexao="DBQ=c:\vendas\cadastrar cliente\db_vendedor.mdb"
'strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("Data")= Request("Data")
objrecordset.Fields("Codigo")= Request("Codigo")
objrecordset.Fields("Fornecedor")= Request("Fornecedor")
objrecordset.Fields("Representante")= Request("Representante")
objrecordset.Fields("CNPJ")= Request("CNPJ")
objrecordset.Fields("Inscricao")= Request("Inscricao")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("Fax")= Request("Fax")
objrecordset.Fields("Cep")= Request("Cep")
objrecordset.Fields("Logradouro")= Request("rua")
objrecordset.Fields("Bairro")= Request("Bairro")
objrecordset.Fields("Cidade")= Request("Cidade")
objrecordset.Fields("Estado")= Request("Estado")
objrecordset.Fields("Complemento")= Request("Complemento")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("Email")= Request("Email")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Codigo

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>


<table align="left" width="40%">
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Data</td>
<td bgcolor="#336699"><%Response.Write(Data)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Codigo</td>
<td bgcolor="#336699"><%Response.Write(Codigo)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Fornecedor</td>
<td bgcolor="#336699"><%Response.Write(Fornecedor)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Representante</td>
<td bgcolor="#336699"><%Response.Write(Representante)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">CNPJ</td>
<td bgcolor="#336699"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Inscricao</td>
<td bgcolor="#336699"><%Response.Write(Inscricao)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Telefone</td>
<td bgcolor="#336699"><%Response.Write(Telefone)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Celular</td>
<td bgcolor="#336699"><%Response.Write(Celular)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Fax</td>
<td bgcolor="#336699"><%Response.Write(Fax)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Cep</td>
<td bgcolor="#336699"><%Response.Write(Cep)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Logradouro</td>
<td bgcolor="#336699"><%Response.Write(Logradouro)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Bairro</td>
<td bgcolor="#336699"><%Response.Write(Bairro)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Cidade</td>
<td bgcolor="#336699"><%Response.Write(Cidade)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Estado</td>
<td bgcolor="#336699"><%Response.Write(Estado)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Complemento</td>
<td bgcolor="#336699"><%Response.Write(Complemento)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="black">Email</td>
<td bgcolor="#336699"><%Response.Write(Email)%></td>
</tr>
<tr>
</table>
<form name="frm1" Method="Post" action="consultar_cadastro_fornecedores.asp">
<input type="Submit" name="btn_receber_cadastro" value="Receber Cadastro Fornecedores">
</form>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

eu Cadastro o Fornecedor ai na pagina de cadastro quando eu digitar o Cadastro do Fornecedor ele salvar os dados cadastrado na tabela pra mim não ter que digitar tudo de novo

 

está ai em cima o meu codigo

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

 

no sql server eu coloco assim

 

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")




vSQL = "Insert Into Consulta (Data, Codigo, Fornecedor, Representante, CNPJ,Incricao,Telefone,Celular,Fax,Cep,Logradouro,Bairro,Cidade,Estado,Complemento,Email) values ('" &  & "', '" &  & "', '" &  & "', '" &  & "', '" & 00 & "')"
Response.Write(vSQL)

em values eu coloco o que foi cadastro no banco de dados é isso

If r.EOF then
If Request.Form("Data") = Request.Form("10/10/10") then
c.Execute(vSQL)
Response.Write "OK"
Else
Response.Write "Fail"
End If
Else
Response.write "Cadastro Incluido"
End If





objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("Data")= Request("Data")
objrecordset.Fields("Codigo")= Request("Codigo")
objrecordset.Fields("Fornecedor")= Request("Fornecedor")
objrecordset.Fields("Representante")= Request("Representante")
objrecordset.Fields("CNPJ")= Request("CNPJ")
objrecordset.Fields("Inscricao")= Request("Inscricao")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("Fax")= Request("Fax")
objrecordset.Fields("Cep")= Request("Cep")
objrecordset.Fields("Logradouro")= Request("rua")
objrecordset.Fields("Bairro")= Request("Bairro")
objrecordset.Fields("Cidade")= Request("Cidade")
objrecordset.Fields("Estado")= Request("Estado")
objrecordset.Fields("Complemento")= Request("Complemento")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("Email")= Request("Email")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Codigo

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

me manda um email que te passo o bd

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

xanburzum@terra.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

M.Torres    1

M.Torres
Postado

caras, utilizo da seguinte forma tanto para adição quanto para edição:

 

rs.Open "SELECT ID, Campo1, Campo2 FROM Tablea WHERE ID = '"ID"'", Conexao, 2, 3
If rs.BOF OR rs.EOF Then
   rs.AddNew
End If
rs("Campo1") = request("campo1")
rs("Campo2") = request("campo2")
rs.Update
rs.Close

 

Levando em consideração que pode-se utilizar as variáveis e tratá-las antes de passar para o recordset.

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

cadastrar_fornecedor.asp

 

está com erro na linha 210 ele não está gravando

 

nessa linha If rs.BOF OR rs.EOF Then

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<html>
<head>

<title>Exemplo busca CEP Ajax</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<!-- Faça o include da lib do jQuery -->
<script type="text/javascript" src="scripts/lib/jquery.js"></script>
<script type="text/javascript">
// Função única que fará a transação
function getEndereco() {
		// Se o campo CEP não estiver vazio
		if($.trim($("#cep").val()) != ""){
			/* 
				Para conectar no serviço e executar o json, precisamos usar a função
				getScript do jQuery, o getScript e o dataType:"jsonp" conseguem fazer o cross-domain, os outros
				dataTypes não possibilitam esta interação entre domínios diferentes
				Estou chamando a url do serviço passando o parâmetro "formato=javascript" e o CEP digitado no formulário
http://cep.republicavirtual.com.br/web_cep.php?formato=javascript&cep="+$("#cep").val()
			*/
			$.getScript("http://cep.republicavirtual.com.br/web_cep.php?formato=javascript&cep="+$("#cep").val(), function(){
				// o getScript dá um eval no script, então é só ler!
				//Se o resultado for igual a 1
		  		if(resultadoCEP["resultado"]){
					// troca o valor dos elementos
					$("#rua").val(unescape(resultadoCEP["tipo_logradouro"])+": "+unescape(resultadoCEP["logradouro"]));
					$("#bairro").val(unescape(resultadoCEP["bairro"]));
					$("#cidade").val(unescape(resultadoCEP["cidade"]));
					$("#estado").val(unescape(resultadoCEP["uf"]));
				}else{
					alert("Endereço não encontrado");
				}
			});				
		}			
}
</script>
<body>


<!-- 
O formulário é simples, a única coisa diferente é o atributo "onBlur" no campo "cep" 
   o onBlur executa um comando javascript assim que o campo perde o fóco, neste caso eu chamo a função javascript "getEndereco()"
-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
 <form name="cadastrar Fornecedor" Method="Post" action="receber_cadastro_fornecedores.asp">
<table align="left" width="40%" border="1">
<tr>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Data</td>
 <td width="423" colspan="8"><input name="Data" id="Data" size="40" maxlength="8"/>

		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Codigo</td>
 <td width="423" colspan="8"><input name="Codigo"  id="Codigo" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Fornecedor</td>
 <td width="423" colspan="8"><input name="Fornecedor" id="Fornecedor" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Representante:</td>
 <td width="423" colspan="8"><input name="Representante"  id="Representante" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>

 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">CNPJ:</td>
 <td width="423" colspan="8"><input name="CNPJ"  id="CNPJ" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
 <td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Inscricao:</td>
 <td width="423" colspan="8"><input name="Inscricao"  id="Inscricao" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Telefone:</td>
<td width="423" colspan="8"><input name="Telefone"  id="Telefone" size="20" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Celular:</td>
<td width="423" colspan="8"><input name="Celular"  id="Celular" size="20" maxlength="20"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Fax:</td>
<td width="423" colspan="8"><input name="Fax"  id="Fax" size="20" maxlength="20"/>
		<tr>
	<td>
	</tr>
	</td>
	<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">CEP:</td>
<td width="423" colspan="8"><input name="Cep" id="cep"  size="20" maxlength="20" onBlur="getEndereco()"/></font>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Logradouro:</td>
<td width="423" colspan="8"><input name="rua" id="rua" size="20" maxlength="20" onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Bairro:</td>
<td width="423" colspan="8"><input name="Bairro" id="bairro" size="10" maxlength="8"/  onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Cidade:</td>
<td width="423" colspan="8"><input name="Cidade" id="cidade" size="10" maxlength="8"/  onBlur="getEndereco()"/>
	 <tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Estado:</td>
<td width="423" colspan="8"><input name="Estado" id="estado" size="10" maxlength="8"/  onBlur="getEndereco()"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Complemento:</font></td>
<td width="423" colspan="8"> <input name="Complemento"  id="Complemento" size="10" maxlength="8"/>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color"#ffffffr">Email:</td>
<td width="423" colspan="8"><input name="Email"  id="Email" size="40" maxlength="40"/>
		<tr>
	<td>
	</tr>
	</td>
<td align="left"><input type="Submit" name="cadastrar" value="Cadastrar Fornecedores"></td>
<td align="left"><input type="button" onclick="Gravar();" value="Gravar"></td>

</form>
</table>
</BODY>
</HTML>



<%


dim StrSQL 


set DBConn =server.CreateObject("ADODB.connection") 
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha" 

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

sql="INSERT INTO Consulta (Data,Codigo,Fornecedor,Representante,CNPJ,Inscricao,Telefone,Celular,Fax,Cep,Logradouro,Bairro,Cidade,Estado,Complemento,Email)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Data") & "',"
sql=sql & "'" & Request.Form("Codigo") & "',"
sql=sql & "'" & Request.Form("Fornecedor") & "',"
sql=sql & "'" & Request.Form("Representante") & "',"
sql=sql & "'" & Request.Form("CNPJ") & "',"
sql=sql & "'" & Request.Form("Inscricao") & "',"
sql=sql & "'" & Request.Form("Telefone") & "')"
sql=sql & "'" & Request.Form("Celular") & "')"
sql=sql & "'" & Request.Form("Fax") & "')"
sql=sql & "'" & Request.Form("Cep") & "')"
sql=sql & "'" & Request.Form("Logradouro") & "')"
sql=sql & "'" & Request.Form("Bairro") & "')"
sql=sql & "'" & Request.Form("Cidade") & "')"
sql=sql & "'" & Request.Form("Estado") & "')"
sql=sql & "'" & Request.Form("Complemento") & "')"
sql=sql & "'" & Request.Form("Email") & "')"


response.write "sql = " & sql

sql="Select * From Consulta"

If rs.BOF OR rs.EOF Then 
   rs.AddNew 
End If 
rs("Data") = request("Data") 
rs("Codigo") = request("Codigo") 
rs("Fornecedor") = request("Fornecedor") 
rs("Representante") = request("Representante") 
rs("CNPJ") = request("CNPJ") 
rs("Inscricao") = request("Inscricao") 
rs("Telefone") = request("Telefone") 
rs("Celular") = request("Celular") 
rs("Fax") = request("Fax") 
rs("Cep") = request("Cep") 
rs("Logradouro") = request("Logradouro") 
rs("Bairro") = request("Bairro") 
rs("Cidade") = request("Cidade") 
rs("Estado") = request("Estado") 
rs("Complemento") = request("Complemento") 
rs("Email") = request("Email") 

rs.Update 
rs.Close

rs=nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

não recebi seu email, envie no xanburzum@terra.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

e ai beleza xanburzum eu te mandei a mensagem e apareceu resposta automática

Voltar para mensagens[Automatic Message] Resposta Automática‏

 

 

acabei de enviar um arquivo .rar

 

bons estudos

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza meu sistema esta dando erro

 

Microsoft OLE DB Provider for SQL Server erro '80040e0c'

 

O comando de texto não foi definido para o objeto de comando.

 

/vendas/grade/cadastrar_grade.asp, linha 15

 

conexao.execute sql

 

e também está dando esse erro

 

HTTP/1.1 404 Não Encontrado

ele não está fazendo o insert into

 

 

<%
set conexao = server.createObject("ADODB.Connection")

Conexao.ConnectionString = "Provider=SQLOLEDB;Database=;Server=;Uid=;Pwd=" 
Conexao.Open()
Tamanho= Request.Form("Tamanho")
Cores= Request.Form("Cores")
Valor_de_Venda= Request.Form("Valor_de_Venda")
Quantidade= Request.Form("Quantidade")
Quantidade_Estoque= Request.Form("Quantidade_Estoque")
Quantidade_Grade= Request.Form("Quantidade_Grade")
Quantidade_para_Cadastro= Request.Form("Quantidade_para_Cadastro")

conexao.execute sql

sql = "insert into Grade (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro) values ('" & Tamanho & "', '" & Cores & "','" & Valor_de_Venda & "','" & Quantidade & "','" & Quantidade_Estoque & "','" & Quantidade_Grade & "','" & Quantidade_para_Cadastro & "')"

response.write "sql = " & sql

response.redirect "cadastrar_grade.asp"

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Cadastrar Grade </title>
<form name="frm1" Method="Post" action="receber_cadastro_grade.asp">
<table align="left" width="40" border="1">
<tr>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Tamanho</font><td>
<td width="423" colspan="8"><input type="text" name="Tamanho" Size="20"></font><td>		
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Cores</font><td>
<td width="423" colspan="8"><input type="text" name="Cores" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Valor_de_Venda</font><td>
<td width="423" colspan="8"><input type="text" name="Valor_de_Venda" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_Estoque</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_Estoque" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_Grade</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_Grade" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_para_Cadastro</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_para_Cadastro" Size="20"></font><td>
	<tr>
<td>
</tr>
</td>
<td align="left"><input type="Submit" name="btn_Cadastrar" value=" Cadastrar Grade"></td>
		<tr>
<td>
</tr>
</td>
<P> </P>
</form>
</table>
</BODY>
</HTML>

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