Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia caros, estou com dificuldades em fazer um jeito de excluir dados de uma tabela SQL Server via ASP.
Tenho uma página principal Veiculos.asp e a Remover.asp.
Sei que deve ter algumas mtas coisas erradas e queria ajuda de vcs pra resolver!
//veiculo.asp
//este tem um campo onde me mostra a lista de carros que possuo no banco e do lado coloquei o botão deletar que manda pra Remover.asp
<!-- <p style="MARGIN-BOTTOM: 5%; MARGIN-TOP: 5%"> </p>-->
<form name="ATU_VEI" action="Remover.asp" method="post">
<table width="70%" aling="center">
<tr>
<td align="center"><font size="2" face="verdana" color="#000080"><b>ATUALIZAÇÃO DE STATUS</b></font></td>
<img title="Status" src="\Imagens\delete.png" align="right">
</tr>
<tr>
<td width="40%">Veículo:</td>
</tr>
<tr>
<td width="60%" align="center">
<select name="Veiculo">
<option>
<%
sql = "SELECT Veiculo FROM Solic_asv_Veiculo WHERE Status <> ' ' "
sql = sql & " ORDER BY veiculo"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Session("Gestao_conn"), 3, 3
On Error Resume Next
rs.MoveFirst
do while Not rs.eof <OPTION value="<%=rs.Fields("Res_asv")%>"><%=rs.Fields("veiculo")%><%=" "%><%=Desativado%>
<%
rs.MoveNext
loop </select>
</td>
<td align="center">
<input class="botao" type="submit" name="Delete" value="Deletar">
</td>
</tr>
</table>
</form>//Remover.asp
<%@ Language=VBScript%>
<html>
<head>
<title>
<%=Session("Titulo")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>------------------------------------------------------------------------------------- -->
<link href="Conteudo.css" rel="stylesheet" type="text/css">
<table class="cabecalho">
<tr>
<td class="Colunacab">Exclusão do Veiculo
</td>
</tr>
</table>
<p style="MARGIN-BOTTOM: 5%; MARGIN-TOP: 5%"> </p><%
'________________________________________________________________________________________________
'Instanciamos e abrimos nosso objeto conexão
'________________________________________________________________________________________________
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("Gestao_conn")
'________________________________________________________________________________________________
'Recolhemos os valores do formulário
'________________________________________________________________________________________________
DelVei = Request.Form("Veiculo")
'________________________________________________________________________________________________
'Agora criamos a sentença SQL
'________________________________________________________________________________________________
InsSql = "DELETE FROM Solic_asv_Veiculo WHERE Veiculo = '" & VeiculoD & "'"
set Ins = Conn.Execute(InsSql)
Conn.Close
%>
</BODY>
</HTML>Carregando comentários...