Alterar e Excluir

[Marcello-Master 0]

Galera, estou começando com o ASP e estou com duvida de como se faz para ALTERAR e EXCLUIR informação de um banco de dados que no meu caso é o Acces.

 

Será que vcs poderiam me ajudar....

 

Meu problema é so pra alterar e excluir pois inserir eu já consegui fazer o mesmo:

 

Meu BD esta da Seguinte forma:

Tabela: Imoveis

Campos: descricao

Campos: edereco

Campos: corretor

 

 

Codigo de Inclusão (Formulario)

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">	<table width="597" border="0" cellspacing="0" cellpadding="0">		<tr>		  <td width="597" valign="top">			  <table width="100%" border="0" cellspacing="0" cellpadding="0">				<tr>				  <td> </td>				  <td> </td>				  <td><div align="right"><a href="javascript:history.go(-1)" class="texto8bold">« Voltar</a></div></td>				</tr>			  </table>			  <table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">				<tr>				  <td width="28%"><span class="legenda">Tipo de Imovel </span></td>				  <td width="72%"><% strQ = "SELECT * FROM tipo_imovel ORDER BY tp_imovel ASC"Set objRS = cn.Execute(strQ)Response.Write "<SELECT class='legenda' NAME='tp_imovel'>"Response.Write "<OPTION VALUE='' SELECTED></OPTION>" If Not objRS.EOF Then  While Not objRS.EOF	Response.Write "<OPTION class='legenda' VALUE='" & objRS("tp_imovel") & "'"	If Request("id_tp_imovel") = objRS("tp_imovel") Then Response.Write " selected"	Response.Write ">" & objRS("tp_imovel") & "</OPTION>"	objRS.MoveNext  WendEnd If Response.Write "</SELECT>" set objRS = Nothing%>					  <font class="legenda style1"> <a href="inserir_tp_imovel.asp" target="_blank" class="legenda style2" onClick="NewWindow(this.href,'name','450','500','yes');return false">Novo</a></font></td>				</tr>			  </table>			  <br>			  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">				<tr>				  <td width="50%"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">					<tr>					  <td width="36%" class="texto8">Lançamento ? </td>					  <td width="64%"><font class="legenda style1">						<% lanc = "SELECT * FROM lancamento"Set RS_lanc = cn.Execute(lanc)Response.Write "<SELECT class='legenda' NAME='desc_lancamento'>"Response.Write "<OPTION VALUE='' SELECTED></OPTION>" If Not RS_lanc.EOF Then  While Not RS_lanc.EOF	Response.Write "<OPTION class='legenda' VALUE='" & RS_lanc("desc_lancamento") & "'"	If Request("id_lancamento") = RS_lanc("desc_lancamento") Then Response.Write " selected"	Response.Write ">" & RS_lanc("desc_lancamento") & "</OPTION>"	RS_lanc.MoveNext  WendEnd If Response.Write "</SELECT>" Set RS_lanc = Nothing%></font></td>					</tr>				  </table></td>				  <td width="50%"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">					<tr>					  <td width="33%"><span class="legenda">Aluguel / Venda </span></td>					  <td width="67%"><% alu_vend = "SELECT * FROM aluguel_venda ORDER BY desc_aluguel ASC"Set RS_alu_vend = cn.Execute(alu_vend)Response.Write "<SELECT class='legenda' NAME='desc_aluguel'>"Response.Write "<OPTION VALUE='' SELECTED></OPTION>" If Not RS_alu_vend.EOF Then  While Not RS_alu_vend.EOF	Response.Write "<OPTION class='legenda' VALUE='" & RS_alu_vend("desc_aluguel") & "'"	If Request("id_aluguel") = RS_alu_vend("desc_aluguel") Then Response.Write " selected"	Response.Write ">" & RS_alu_vend("desc_aluguel") & "</OPTION>"	RS_alu_vend.MoveNext  WendEnd If Response.Write "</SELECT>" set RS_alu_vend = Nothing%></td>					</tr>				  </table></td>				</tr>				<tr>				  <td height="5" colspan="2"></td>				</tr>				<tr>				  <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">					<tr>					  <td width="36%" class="texto8">Prioridade ? </td>					  <td width="64%"><font class="legenda style1">						<% priorid = "SELECT * FROM prioridade ORDER BY nivel_prioridade ASC"Set RS_priorid = cn.Execute(priorid)Response.Write "<SELECT class='legenda' NAME='nivel_prioridade'>"Response.Write "<OPTION VALUE='' SELECTED></OPTION>" If Not RS_priorid.EOF Then  While Not RS_priorid.EOF	Response.Write "<OPTION class='legenda' VALUE='" & RS_priorid("nivel_prioridade") & "'"	If Request("id_prioridade") = RS_priorid("nivel_prioridade") Then Response.Write " selected"	Response.Write ">" & RS_priorid("nivel_prioridade") & "</OPTION>"	RS_priorid.MoveNext  WendEnd If Response.Write "</SELECT>"Set RS_priorid = Nothing%>					  </font></td>					</tr>				  </table></td>				  <td class="texto8"><label>Ativo? 					  <select name="ativo" id="ativo">						<option value="1">Sim </option>						<option value="0">Não</option>					</select>				  </label></td>				</tr>			  </table>			  <br>		<tr>		  <td valign="top" height="185"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">				<tr>				  <td height="195"><table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">					<tr>					  <td><img src="../imagens/borda-esquerda_g.gif" width="30" height="195"></td>					  <td background="../imagens/fundo_g.gif"><table width="500" border="0" cellpadding="5" cellspacing="0" align="left">						<tr>						  <td width="33%"><div align="left"><span class="texto8">Foto do Imovel							</span>							  <input type="file" name="imagem02" size="14" class="texto8">							  <br>							  <br />						  </div>							<div align="center"></div></td>						  <td width="67%" class="texto8"><span class="legenda">Descrição Simples do Imovel </span><br />							  <textarea name="desc_simples" class="texto8" cols="40" rows="4" wrap="virtual" id="desc_simples"></textarea>							  <br />							  <span class="legenda">Valor <br />							  <input name="valor" type="text" class="texto8boldred" id="valor" size="40" />							  <br />								Referencia<br />							  </span>							  <input name="referencia" type="text" class="texto8bold" id="referencia" size="40" />							  <br />							  <span class="legenda">Negrito Azul<br />							  <input name="desc_negrito01" type="text" class="texto8bold" id="desc_negrito01" value="" size="40" />							</span> </td>						</tr>					  </table></td>					  <td><img src="../imagens/borda-direita_g.gif" width="30" height="195"></td>					</tr>				  </table></td>				</tr>			  </table>			<br>			<br>			<br>			<br>			<br>			<br>			<br>			<br>			<br>			<br>			<br>			<br>		<tr>			<td valign="top" height="100"><table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">			  <tr>				<td width="5%"><img src="../imagens/borda-esquerda_gg.gif" width="30" height="313"></td>				<td width="94%" background="../imagens/fundo_gg.gif"><table width="500" border="0" align="center" cellpadding="3" cellspacing="0" class="legenda">				  <tr>					<td width="95" class="legenda">Titulo Negrito </td>					<td width="417"><input name="desc_negrito02" class="texto8bold" type="text" id="desc_negrito02" value="" size="50" /></td>				  </tr>				  <tr>					<td colspan="2" class="legenda"><div align="center">Descrição do Imovel<br />							<textarea name="desc_imovel" class="texto8" cols="70" rows="10" wrap="virtual" id="desc_imovel"></textarea>					</div></td>				  </tr>				  <tr>					<td height="5" colspan="2" class="legenda"></td>				  </tr>				  <tr>					<td class="legenda">Endereço</td>					<td><input name="endereco" type="text" class="texto8" id="endereco" value="" size="60" /></td>				  </tr>				  <tr>					<td class="legenda">Bairro </td>					<td><input name="bairro" type="text" class="texto8" id="bairro" size="60" /></td>				  </tr>				  <tr>					<td class="legenda">Corretor</td>					<td><input name="corretor" type="text" class="texto8bold" id="corretor" size="60" /></td>				  </tr>				  <tr>					<td colspan="2" class="legenda"><label> </label></td>				  </tr>				  <tr>					<td colspan="2"><div align="center">						<input type="submit" name="submit" value="Enviar" />					   					  <input name="Submit2" type="reset" class="mao" value="Limpar" style="CURSOR: hand" />					</div></td>				  </tr>				</table></td>				<td width="1%"><img src="../imagens/borda-direita_gg.gif" width="30" height="313"></td>			  </tr>			</table>		</table></form>

 

 

Codigo de postagem do Formulario

<%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------tp_imovel 		= UploadRequest.Item("tp_imovel").Item("Value")desc_lancamento = UploadRequest.Item("desc_lancamento").Item("Value")nivel_prioridade= UploadRequest.Item("nivel_prioridade").Item("Value")desc_aluguel	= UploadRequest.Item("desc_aluguel").Item("Value")ativo			= UploadRequest.Item("ativo").Item("Value")desc_simples	= UploadRequest.Item("desc_simples").Item("Value")valor			= UploadRequest.Item("valor").Item("Value")referencia		= UploadRequest.Item("referencia").Item("Value")desc_negrito01	= UploadRequest.Item("desc_negrito01").Item("Value")desc_negrito02	= UploadRequest.Item("desc_negrito02").Item("Value")desc_imovel		= UploadRequest.Item("desc_imovel").Item("Value")endereco		= UploadRequest.Item("endereco").Item("Value")bairro			= UploadRequest.Item("bairro").Item("Value")corretor		= UploadRequest.Item("corretor").Item("Value")sData = Datehora = Time' Tipo de arquivo que esta sendo enviadotipo_imagem02 = UploadRequest.Item("imagem02").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_imagem02 = UploadRequest.Item("imagem02").Item("FileName")' Nome dos arquivos enviadosnome_imagem02 = Right(caminho_imagem02,Len(caminho_imagem02)-InstrRev(caminho_imagem02,"\"))' Conteudo binario dos arquivos enviadosimagem02 = UploadRequest.Item("imagem02").Item("Value")' pasta onde as fotos serao guardadaspasta = Server.MapPath("..\fotos\")nome_imagem02 = "\"&nome_imagem02' pasta + nome dos arquivoscimagem02 = "..\fotos" + nome_imagem02	   	' Fazendo o Upload do arquivo selecionadoif cimagem02="..\fotos\" then   cimagem02="..\fotos\sem-foto.jpg"end ifif imagem02 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem02)For i = 1 to LenB(imagem02)MyFile.Write chr(AscB(MidB(imagem02,i,1)))NextMyFile.Closeend if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("..\bd\bd.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao %><%			if ativo="Não" then		ativo="0"	end if	if ativo="Sim" then		ativo="1"	end if%><%' cadastra os dados no banco de dadossql = "Insert into imovel(tp_imovel,desc_lancamento,desc_aluguel,nivel_prioridade,ativo,imagem02,desc_simples,valor,referencia,desc_negrito01,desc_negrito02,desc_imovel,endereco,bairro,corretor,data,hora) values('"&tp_imovel&"','"&desc_lancamento&"','"&desc_aluguel&"','"&nivel_prioridade&"','"&ativo&"','"&cimagem02&"','"&desc_simples&"','"&valor&"','"&referencia&"','"&desc_negrito01&"','"&desc_negrito02&"','"&desc_imovel&"','"&endereco&"','"&bairro&"','"&corretor&"','"&sData&"','"&hora&"')"Conexao.Execute(sql)%><style type="text/css"><!--.style1 {	color: #FF0000;	font-weight: bold;}.style2 {color: #FF0000}.texto8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}--></style><body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0"><table width="774" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><img src="../imagens/topo.gif" alt="z" width="774" height="150" border="0" usemap="#MapMap" />		<map name="MapMap" id="MapMap">		  <area shape="rect" coords="530,111,624,131" href="seg_pag_asp/encomenda/index.html" target="2" />		  <area shape="rect" coords="160,111,241,130" href="seg_pag_asp/home.html" target="2" />		  <area shape="rect" coords="671,113,769,135" href="seg_pag_asp/mail/index.html" target="2" />		  <area shape="rect" coords="407,110,482,130" href="seg_pag_asp/cadastro_imovel/index.html" target="2" />		  <area shape="rect" coords="290,112,359,130" href="seg_pag_asp/empresa/index.html" target="2" />		</map>	</td>  </tr></table><table width="774" border="0" cellspacing="0" cellpadding="0">  <tr class="texto8">	<td> 		<script language="JavaScript" type="text/javascript" class="texto8">		hoje = new Date()		dia = hoje.getDate()		dias = hoje.getDay()		mes = hoje.getMonth()		ano = hoje.getYear()		if (dia < 10)				dia = "0" + dia		if (ano < 2000)				ano = "19" + ano		function CriaArray (n) {		this.length = n }		NomeDia = new CriaArray(7)			NomeDia[0] = "Domingo"			NomeDia[1] = "Segunda"			NomeDia[2] = "Terça"			NomeDia[3] = "Quarta"			NomeDia[4] = "Quinta"			NomeDia[5] = "Sexta"			NomeDia[6] = "Sábado"		 NomeMes = new CriaArray(12)			NomeMes[0] = "Janeiro"			NomeMes[1] = "Fevereiro"			NomeMes[2] = "Março"			NomeMes[3] = "Abril"			NomeMes[4] = "Maio"			NomeMes[5] = "Junho"			NomeMes[6] = "Julho"			NomeMes[7] = "Agosto"			NomeMes[8] = "Setembro"			NomeMes[9] = "Outubro"			NomeMes[10] = "Novembro"			NomeMes[11] = "Dezembro"function escreveData(){ if (ano == '19100') ano = '2000'; document.write (NomeDia[dias] + ", " + dia + " de " + NomeMes[mes] + " de " + ano)}  </script>		<script language="JavaScript" type="text/javascript">escreveData()  </script>	  – Moradia Imobiliária – Tel.: (11) 6546.2299 – Fax: (11) 6943.2121	  <hr size="1" /></td>  </tr></table><table width="774" border="0" cellspacing="0" cellpadding="0" height="451">  <tr>	<td width="177" valign="top" height="451"><img src="../imagens/menu(1).gif" alt="a" width="177" height="451" border="0" usemap="#Map" />		<map name="Map" id="Map">		  <area shape="rect" coords="5,51,167,89" href="casas/index.asp" />		  <area shape="rect" coords="7,92,170,131" href="sobrados/index.asp" />		  <area shape="rect" coords="6,268,169,307" href="empresa/index.html" />		  <area shape="rect" coords="6,226,170,263" href="aluguel/index.html" />		  <area shape="rect" coords="7,179,170,219" href="terreno/index.asp" />		  <area shape="rect" coords="5,312,169,350" href="cadastro_imovel/index.html" />		  <area shape="rect" coords="5,7,173,44" href="lancamento/index.html" />		  <area shape="rect" coords="8,135,168,178" href="apartamentos/index.asp" />		  <area shape="rect" coords="4,356,171,400" href="encomenda/index.html" />		  <area shape="rect" coords="5,402,171,440" href="mail/index.html" />		</map>	</td>	<td width="597" height="451" align="left" valign="top"><table width="597" border="0" cellspacing="0" cellpadding="0">	  <tr>		<td width="597"> </td>	  </tr>	  <tr>		<td valign="top" height="19"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">		  <tr>			<td>			<%' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=inserir_imovel.asp'/>"%>			</td>		  </tr>		</table>		  <br /></td>	  </tr>	  <tr>		<td valign="top" height="10"> </td>	  </tr>	</table></td>  </tr> </table><table width="774" border="0" cellspacing="0" cellpadding="0">  <tr class="texto8">	<td><hr size="1" />	</td>  </tr>  <tr class="texto8">	<td><div align="center">MORADIA 	  IMOBILIÁRIA â€â€œ <a href="mailto:contato@moradia.imb.br" class="texto8">contato@moradia.imb.br</a> â€â€œ Tel.: (11) 6546.2299 – Fax: (11) 6943-2121</div></td>  </tr></table></body>

Agora não tenho nem ideia como faço pra Alteração e Exclusão se Alguem puder me ajudar eu agradeço....

Como disse eu estou começando a mexer com ASP

 

Valew

[dataset 0]

Grande amigo, te recomendo antes de comçar a mecher com a programação propriamente dita, dar uma olhadinha nas sintaxes SQL:InsertUpdateDeleteSe você tiver um tempo veja INNER JOIN, LEFT JOIN, pois relacionar tabelas adequadamente, vai trazer benefícios no consumo do servidor, daí os outros que usam irão agradecer.A sintaxe é simples. Veja numa apostila no www.apostilando.comMas a ideia é simples, você monta um string, concatena os valores enviados pelo form, e executa a Query.Também aprendi ASP sozinho, com um livro no colo e um pc na frente. Mas acho que fiz uma coisa que vale a pena fazer. Estudei banco de dados, e programação. Depois escolhi uma linguagem pra aplicar os conhecimentos.Estudando Banco de Dados, você vai ter 40% do seu trabalho concluído. Os outros 60% vai da linguagem, ferramenta e seus conhecimentos.Se precisar, é só teclar.Valeu.