Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

Alterar dados ¿?

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Aí galerinha estou com um probleminha com este form de alteração, a pagina aparece em branco, veja os codigos q estou usando

 

form_dados.asp

<html>
<head>
<title>Alterações - ::ASPBRASIL::</title>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<%
On error resume Next
Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
' Conectando com o banco de dados ../dados/cadastro.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
Set objRS =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("..dados/cadastro.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM despachante WHERE id = "&id
Set objRS = objConn.Execute(stringSQL)
'Deletando registro da tabela despachante onde esta a id
if err <> 0 Then
%>
<title>ASPBRASIL</title>
</head>

<body>
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!</b><br><a href="java script:history.back(-1)">Volta</a></font></div>

<%else%>
<form method="post" action="altera_dados.asp" name="form">
<table width="721">
  <col width="64" style="width:48pt">
  <tr height="17" style="height:12.75pt">
	<td height="17" width="713" style="height: 12.75pt"><font face="Arial Rounded MT Bold" size="4">Neste
	  mês de </font><input type="text" name="Mes" size="8" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("Mes")%>' "><font face="Arial Rounded MT Bold" size="4">,
	  são licenciados os veiculos com placas final </font><input type="text" name="Placa" size="5" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("Placa")%>' "><font face="Arial Rounded MT Bold" size="4">.</font></td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="17" width="713" style="height: 12.75pt"></td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="17" width="713" style="height: 12.75pt"><font face="Verdana" size="2">A
	  </font><input type="text" name="Anos" size="9" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("Anos")%>' "><font face="Verdana" size="2">
	  anos no mercado.</font></td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="17" style="height: 12.75pt" width="713"><font face="Verdana" size="2">A
	  Organização Colina despachante, esta desde </font><input type="text" name="Data" size="9" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("Data")%>' "><font face="Verdana" size="2">
	  no mercado.<br>
	  Nossa missão é atender nossos clientes de forma rápida primando pela
	  eficiência e buscando sempre os menores prazos para execução e todos
	  serviços, com muito profissionalismo e seriedade.<br>
	  A <font color="#ff0000">Organização Colina</font> Despachante
	  disponibiliza consultas através de nosso site, solicitação de serviços
	  e informações</font>
	  <p align="left"></p>
	</td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="17" style="height: 12.75pt" width="713">
	  <p align="center">  
			  <input type="submit" value="Alterar" name="enviar"><input type="hidden" name="cod" value="<%=objRS("cod")%>">		  
  </tr>
</table>
</form>
<%end if%>
</body>

</html>

Alterar_dados.asp

<%
'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, cod
Dim mes, anos, data, placa, ObjRs

'Atrubuição dos valores as respectivas variáveis
mes = Request.Form("mes")
anos = Request.Form("anos")
data = Request.Form("data")
placa = Request.Form("placa")

if login = "" then
	senha = " "
end if
cod = Request.Form("cod")

'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("../dados/cadasrto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE despachante SET mes = '"&mes&"', anos='"&anos&"', data='"&data&"', placa='"&placa&"' WHERE cod ="&cod

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executaa inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
	'Redireciona o usuário caso não tenha ocorrido erro na transação
	response.redirect "form_altera.asp"
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Remove o comando On error resume Next e posta todo o erro exibido.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Agora esta dando o seguinte erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x7e4 Thread 0x828 DBC 0x1211b024 Jet'.

 

cadastro/form_altera.asp, line 11

 

 

Remove o comando On error resume Next e posta todo o erro exibido.

Agora esta dando o seguinte erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x7e4 Thread 0x828 DBC 0x1211b024 Jet'.

 

/organizacaocolina/cadastro/form_altera.asp, line 11

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você possui um arquivo cadastro.mdb dentro da pasta dados?

 

Essa pasta está um nível abaixo da pasta onde está o arquivo form_dados.asp?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao seria

 

../dados/cadastro.mdb

 

ao envez de

 

..dados/cadastro.mdb

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

nao seria

 

../dados/cadastro.mdb

 

ao envez de

 

..dados/cadastro.mdb

É um olho de lince. :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

aguardar para ver se isso resolve

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