ASP executando Stored Procedures
© 2000 João Carlos Lauriano

Exemplos 3 - Alteração

Parte 1 - Default.asp - Formulário que recebe o código do Fornecedor.

<HTML>
<HEAD>
<TITLE>Pesquisa na tabela Suppliers</TITLE>
</HEAD>

<BODY>

<script language="JavaScript">

<!--

// Verifica se os campos do formulario foram preenchidos corretamente
function submit_page(form)
{

var wvalor = form.idempresa.value;
var wtam = wvalor.length;

if (CampoBranco(form.idempresa) == true)
{
alert("Informe o código do fornecedor.");
form.idempresa.focus();
return false;
}

if (wvalor == 0)
{
alert("Código do fornecedor tem que ser maior que zero.");
form.idempresa.select();
form.idempresa.focus();
return false;
}

for (var i = 0; i < wtam; i++)
{
var sCarac = wvalor.substring(i,i+1);

if (sCarac < "0" || sCarac > "9")
{
alert("Código do Fornecedor tem que ser número");
form.idempresa.focus();
form.idempresa.select();
return false;
}
}

return true;

} // fim da função submit_page()

// Verifica se campo preenchido
function CampoBranco(campo)
{
if(campo.value == "")
return true;
else
return false;
}

// -->

</script>

<form action="edita.asp" method="POST" name="frmPesquisa" onsubmit="return submit_page(this);">
<div align="center"><center><table border="0" cellpadding="0"
cellspacing="1" width="600">
<tr>
<td align="right" width="100">Fornecedor&nbsp</td>
<td width="500"><input type="text" size="10" maxlength="5"
name="idempresa" value="">&nbsp
<input type="submit" name="cmdIncluir" value="Pesquisar">&nbsp
<input type="reset" name="cmdReset" value="Limpar"></td>
</tr>

<tr>
<td align="right" width="100">&nbsp</td>
<td width="500"><b><font color="#FF0000" face="Arial" size="2"></font></b></td>
</tr>

<tr>
<td align="right" width="100">Mensagem&nbsp</td>
<td width="500"><b><font color="#FF0000" face="Arial" size="2"><%=Session("mensagem")%></font></b></td>
</tr>

</table>
</center></div>

</form>

<script language="JavaScript">
<!--
document.frmPesquisa.idempresa.focus();
// -->
</script>

</BODY>
</HTML>

 

Parte 2 - edita.asp - Localiza o Fornecedor, e carrega o formulário para edição.

<% @LANGUAGE = VBScript %>

<%
Option Explicit
Response.Expires = 0
%>

<!-- #include file="adovbs.inc" -->

<%
Dim objConn, objRS
Dim strConnection
Dim objCmd, objParam

Session("idempresa") = Request.Form("idempresa")

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=Northwind;Database=Northwind;"
strConnection = strConnection & "UID=sa;PWD=;"
objConn.Open strConnection

Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText = "s_suppliers_000"
objCmd.CommandType = adCmdStoredProc
Set objCmd.ActiveConnection = objConn

Set objParam = objCmd.CreateParameter("@SupplierID",adInteger, adParamInput, 4, CInt(Session("idempresa")))
objCmd.Parameters.Append objParam

Set objRS = objCmd.Execute( )

if objRS.EOF then
Session("mensagem") = "Fornecedor não encontrado"
objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
Set objParam = Nothing
Set objCmd = Nothing
Response.Redirect "default.asp"
else
Session("empresa") = objRS("CompanyName")
Session("contato") = objRS("ContactName")
Session("cargo") = objRS("ContactTitle")
Session("endereco") = objRS("Address")
Session("cidade") = objRS("City")
Session("regiao") = objRS("Region")
Session("cep") = objRS("PostalCode")
Session("pais") = objRS("Country")
Session("telefone") = objRS("Phone")
Session("fax") = objRS("Fax")
Session("homepage") = objRS("HomePage")
end if
%>

<script language="JavaScript">
<!--

// Verifica se os campos do formulario foram preenchidos corretamente
function submit_page(form)
{

if (CampoBranco(form.empresa) == true)
{
alert("Você esqueceu de preencher o nome da empresa.");
form.empresa.focus();
return false;
}

if (CampoBranco(form.contato) == true)
{
alert("Você esqueceu de preencher o nome do contato.");
form.contato.focus();
return false;
}

if (CampoBranco(form.cargo) == true)
{
alert("Você esqueceu de preencher o cargo do contato.");
form.cargo.focus();
return false;
}

if (CampoBranco(form.endereco) == true)
{
alert("Você esqueceu de preencher o endereco.");
form.endereco.focus();
return false;
}

if (CampoBranco(form.cidade) == true)
{
alert("Você esqueceu de preencher a cidade.");
form.cidade.focus();
return false;
}

if (CampoBranco(form.regiao) == true)
{
alert("Você esqueceu de preencher a regiao.");
form.regiao.focus();
return false;
}

if (CampoBranco(form.postal) == true)
{
alert("Você esqueceu de preencher o código postal.");
form.postal.focus();
return false;
}

if (CampoBranco(form.pais) == true)
{
alert("Você esqueceu de preencher o país.");
form.pais.focus();
return false;
}

if (CampoBranco(form.telefone) == true)
{
alert("Você esqueceu de preencher o telefone.");
form.telefone.focus();
return false;
}

} // fim da função submit_page()

// Verifica se campo preenchido
function CampoBranco(campo)
{
if(campo.value == "")
return true;
else
return false;
}

-->
</script>

<form action="altera.asp" method="POST" name="frmedita" onsubmit="return submit_page(this);">
<div align="center"><center><table border="0" cellpadding="0"
cellspacing="1" width="600">
<tr>
<td align="right" width="100">Empresa&nbsp</td>
<td width="500"><input type="text" size="55"
name="empresa" value="<%=Session("empresa")%>"></td>
</tr>
<tr>
<td align="right" width="100">Contato&nbsp</td>
<td width="500"><input type="text" size="55"
name="contato" value="<%=Session("contato")%>"></td>
</tr>
<tr>
<td align="right" width="100">Cargo&nbsp</td>
<td width="500"><input type="text" size="55"
name="cargo" value="<%=Session("cargo")%>"></td>
</tr>
<tr>
<td align="right" width="100">Endereço&nbsp</td>
<td width="500"><input type="text" size="55"
name="endereco" value="<%=Session("endereco")%>"></td>
</tr>
<tr>
<td align="right" width="100">Cidade&nbsp</td>
<td width="500"><input type="text" size="30"
name="cidade" value="<%=Session("cidade")%>"></td>
</tr>
<tr>
<td align="right" width="100">Região&nbsp</td>
<td width="500"><input type="text" size="30"
name="regiao" value="<%=Session("regiao")%>"></td>
</tr>
<tr>
<td align="right" width="100">Código Postal&nbsp</td>
<td width="500"><input type="text" size="20"
name="cep" value="<%=Session("cep")%>"></td>
</tr>
<tr>
<td align="right" width="100">País&nbsp</td>
<td width="500"><input type="text" size="30"
name="pais" value="<%=Session("pais")%>"></td>
</tr>
<tr>
<td align="right" width="100">Telefone&nbsp</td>
<td width="500"><input type="text" size="20"
name="telefone" value="<%=Session("telefone")%>"></td>
</tr>
<tr>
<td align="right" width="100">Fax&nbsp</td>
<td width="500"><input type="text" size="20"
name="fax" value="<%=Session("fax")%>"></td>
</tr>
<tr>
<td align="right" width="100">Home Page&nbsp</td>
<td width="500"><input type="text" size="55"
name="homepage" value="<%=Session("homepage")%>"></td>
</tr>

</table>
</center></div>

<p><center>
<input type="submit" name="cmdAlterar" value="Gravar">
<input type="reset" name="cmdReset" value="Limpar">
</center></p>

</form>

<script language="JavaScript">
<!--
document.frmedita.empresa.focus();
// -->
</script>

</BODY>
</HTML>

<%

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
Set objParam = Nothing
Set objCmd = Nothing

%>

Parte 3 - altera.asp - Grava os dados do formulário na tabela Suppliers.

<% @LANGUAGE = VBScript %>

<%
Option Explicit
Response.Expires = 0

Dim objConn, objRS
Dim strConnection
Dim objCmd, objParam

Session("empresa") = Request.Form("empresa")
Session("contato") = Request.Form("contato")
Session("cargo") = Request.Form("cargo")
Session("endereco") = Request.Form("endereco")
Session("cidade") = Request.Form("cidade")
Session("regiao") = Request.Form("regiao")
Session("cep") = Request.Form("cep")
Session("pais") = Request.Form("pais")
Session("telefone") = Request.Form("telefone")
Session("fax") = Request.Form("fax")
Session("homepage") = Request.Form("homepage")

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=Northwind;Database=Northwind;"
strConnection = strConnection & "UID=sa;PWD=;"
objConn.Open strConnection

Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText = "u_suppliers_000"
objCmd.CommandType = adCmdStoredProc
Set objCmd.ActiveConnection = objConn

Set objParam = objCmd.CreateParameter("@SupplierID",adInteger, adParamInput, 4, CInt(Session("idempresa")))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@CompanyName",adVarChar, adParamInput, 80, Left(Session("empresa"),80))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@ContactName",adVarChar, adParamInput, 60, Left(Session("contato"),60))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@ContactTitle",adVarChar, adParamInput, 60, Left(Session("cargo"),60))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Address",adVarChar, adParamInput, 120, Left(Session("endereco"),120))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@City",adVarChar, adParamInput, 30, Left(Session("cidade"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Region",adVarChar, adParamInput, 30, Left(Session("regiao"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@PostalCode",adVarChar, adParamInput, 20, Left(Session("cep"),20))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Country",adVarChar, adParamInput, 30, Left(Session("pais"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Phone",adVarChar, adParamInput, 48, Left(Session("telefone"),48))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Fax",adVarChar, adParamInput, 48, Left(Session("fax"),48))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@HomePage",adChar, adParamInput, 25, Left(Session("homepage"),25))
objCmd.Parameters.Append objParam

Set objRS = objCmd.Execute( )

objConn.close
Set objRS = Nothing
Set objConn = Nothing
Set objParam = Nothing
Set objCmd = Nothing

Session("mensagem") = "Fornecedor alterado"

Response.Redirect "default.asp"

%>

<!-- #Include file="ADOVBS.INC" -->


[Volta]   [Início]

Página desenvolvida por João Carlos Lauriano.
Atualizada em: 04/06/2000