Ir para conteúdo

POWERED BY:

Arquivado

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

wendel

[Resolvido] Como editar o banco de dados em Access (VirtuaStore)?

Por , em ASP Clássico

Recommended Posts

wendel    0

wendel
Postado

Bom dia, amigos

Estou montando uma loja e quando comprar (teste) algum produto e escolho o frete com encomenda normal, o valor fica absurdo.

Algo de R$ 300,00, 200,00 de frete....rsrsrs

Gostaria alterar esses valores para a tabela dos correios, mas não sei onde faço isso.

Será que com o próprio Access (já que o banco é access) eu posso acrescentar os valores?

 

Abraços,

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode altera-lo direto no bd, ou um script baseado nessa lógica.

formulário

<%  'aplicaçaun para atua;izar os dados do usuário na base de dados do access
	'onde através do request.querystring do código ,faremos uma SELECT (SQL)
	'e jogaremos no value do form ,sendo postado através do post pra
	'atualizar_action.asp k fará o UPDATE
	
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	
	'crio a conexao 
	' pasta conn dentro de wwwroot
	%>
<!--#include file="conn/conexao1.asp"-->
	<%call abreconexao
	'crio o recordset
	set rs=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	'crio o form para jogar os rs'z no value %>	
<html>
<head>
<title>Atualização de Usuários</title>

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center"> 
<tr> <td width="2%" bgcolor="#666666"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%" bgcolor="#336699"> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">:: 
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Atualizar 
Dados do Usuário</font></b></div></td></tr> <tr bgcolor="#336699"> <td colspan="2" height="19"> </td></tr> 
<tr bgcolor="#336699"> <td height="72" colspan="2">
 <form name="form1" method="post" action="atualizar_action_treina.asp"> 
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b>
  <input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>">
  <input type="hidden" name="codigo" value="<%=rs("codigo")%>"> </p>
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>"> 
</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>"> 
</font></b></p><p align="center"> 
		  <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr>
 <% 'FECHO O RS
	set rs=nothing
	'fecha a conexao
	call fechaconexao%> </table>
</body>
</html>

action

<%	'aplicacaun para fazer o update dos dados do form atualizar_form.asp
	  'onde recupero todos os dados dos campos do form,dou um replace nos ' por ""
	'e crio a SQL para efetuar o update depois redireciono p/ administracao.asp
	' com passagem de parametro na URL msg=2
	
	option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail
	'recupero as var
	varcodigo=trim(request.form("codigo"))
	varlogin=trim(request.form("login"))
	varsenha=trim(request.form("senha"))
	varemail=trim(request.form("email"))
	' retiro qqer erro de digitaçao do user ,no caso ( aspas simples ')
	varlogin=replace (varlogin,"'","")
	varsenha=replace  (varsenha,"'","")
	varemail=replace(varemail,"'","")
	'crio a conexao%>
	<!--#include file="conn/conexao1.asp"-->
	<% 'abro a conexao
	call abreconexao
	'crio o rs
	set rs=Server.createobject("ADODB.Recordset")
	'crio a SQL
	SQL="UPDATE login SET login='"&varlogin&"',senha='"&varsenha&"',email='"&varemail&"' WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
		if session("login") = "admin" then
			response.redirect("administracao_treina.asp?msg=2")
		else
			response.redirect("administracao1.asp?msg=2")
		end if
	'fecho o rs
	set rs=nothing
	'fecho a conexao
	call fechaconexao%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

de uma forma mais gerenciavel e rápida, você pode usar o mesmo código que postei, você pode ter até uma pagina de administração, sendo possivel atualizar,excluir,inserir,selecionar e procurar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wendel    0

wendel
Postado

Olá,

Valeu a força.

Fiquei com uma dúvida.

 

Qual nome que darei a esses arquivos? ele seria .asp (formulario.asp e action.asp) ou pode .html?

É que estou começando a mexer agora com asp...

Abração

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

Olá,

Valeu a força.

Fiquei com uma dúvida.

 

Qual nome que darei a esses arquivos? ele seria .asp (formulario.asp e action.asp) ou pode .html?

É que estou começando a mexer agora com asp...

Abração

Deve se salvo em asp com seus respectivos nomes (formulario.asp e action.asp) e não em html....

Compartilhar este post

Link para o post
Compartilhar em outros sites

wendel    0

wendel
Postado

Oi,

Enviei pro servidor, mas não aconteceu nada....

 

www.mengomania.com.br/shopping/formulario.asp

 

O endereço do site (loja) é o www.mengomania.com.br/shopping. Ainda estou fazendo alguns acertos nele e só devo disponibilizar em janeiro ou fevereiro.

Faça um teste, compre a camisa que tem lá e veja o frete, é um absurdo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

Oi,

Enviei pro servidor, mas não aconteceu nada....

 

www.mengomania.com.br/shopping/formulario.asp

 

O endereço do site (loja) é o www.mengomania.com.br/shopping. Ainda estou fazendo alguns acertos nele e só devo disponibilizar em janeiro ou fevereiro.

Faça um teste, compre a camisa que tem lá e veja o frete, é um absurdo.

 

<!--#include file="conn/conexao1.asp"-->

você alterou o caminho do bd ?????? Este include é a conexao com o bd....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

coloquei esse caminho e nada aconteceu -

 

<!--#include file="xxxxxxxxx/xxxxxxxx/virtuastore.mdb"

 

Não é dessa forma que tem ser feita, include é apenas arquivos em asp (.asp, .asa, .inc,...) você tem que criar um outra pagina asp como conexao1.asp. Vou dar um exemplo.

 

O codigo abaixo é conexao1.asp

 

<!--#include file="config.asp"-->
<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)};
ConexaoAberta = FALSE
Sub AbreConexao()
	if not ConexaoAberta then
	Conexao.Open ConStr
	ConexaoAberta = True
	end if
end sub
Sub FechaConexao()
	if ConexaoAberta then
	Conexao.close
	ConexaoAberta = False
	end if
end sub %>

Este arquivos você deve especificar o caminho do bd, config.asp

 

<% 
db = "db/virtuastore" 'caminho pro db sem .mdb, NÀO MUDE
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olá amigo, sempre que for postar alguma duvida, por favor insira apenas uma vez,geralmente seguimos uma nomenclatura padrão para variáveis,formulários,action etc, e você não pode colocar um arquivo mdb no include.

Exemplo:

 

<!--#include file="conn/conexao.asp"-->

<!--#include file="calendar/adovbs.asp" -->

<!--#include file="calendar/db.asp" -->

 

E você pode criar uma arquivo, chamado conexão.asp e nele contendo o código, ele esta dentro da pasta conn, onde encontra o arquivo conexão.asp:

<%
Dim conn
Sub AbreConn()
	

	caminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))
' Crio o objeto de conexao ADO
	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"db\ dados.mdb"
'ou			   
	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("dados.mdb") 

' Abro a conexão
	conexao.open

End Sub

Sub FechaConn()
conn.Close()
Set conn = Nothing

End Sub
%>

Só precisa mudar o nome da pasta e arquivo mdb

Se quiser posso me mande um email, que te envio um sistema para fins didáticos, onde você poderá ter a parte administrativa, selecionar,excluir,inserir,atualizar e pesquisar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wendel    0

wendel
Postado

Oi,

Saiu mais de uma mensagem em função ter atualizado a página (ficou demorando de enviar).

Pegue o laptop (lá tem Acces no meu pc eu não coloquei) e fiz as alterações.

 

valeu pela força

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