14 replies to this topic

[tHiAgO_sJc]

falae galera, blz??

estou fazendo um site e preciso di uma forçinha, eh o seguinte:

Eu tenho uma pagina de cadastro, ai qdo uma empresa se cadastra os dados precisam ir para um banco de dados no access. Depois disso vou presicar di uma pagina para login, para a empresa mudar os dados se precisar. Mas ai vem a parte q eu acho um pouco dificil: esses dados q forem alterados, depois de cadastrada a empresa, precisa ser alterada na pagina de anuncio sem q eu precise mudar manualmente. Tem algum script q faça issu?? Se eu naum muito claro me deem um toke para explicar melhor ...

eh q eu so meio inexperiente com asp, mas como preciso usa-lo fazer o q?
vlws...

[Generation]

Eu tenho uma pagina de cadastro, ai qdo uma empresa se cadastra os dados precisam ir para um banco de dados no access. Depois disso vou presicar di uma pagina para login, para a empresa mudar os dados se precisar.

Um Tutorial de Area Restrita :
http://forum.wmonlin...howtopic=116103
Exibição de dados de um Banco :
http://forum.wmonlin...howtopic=116061
Inserir Dados No Banco de dados
http://forum.wmonlin...showtopic=60122

Mas ai vem a parte q eu acho um pouco dificil: esses dados q forem alterados, depois de cadastrada a empresa, precisa ser alterada na pagina de anuncio sem q eu precise mudar manualmente. Tem algum script q faça issu?? Se eu naum muito claro me deem um toke para explicar melhor ...

Após cadastrados os dados no banco é so voce utilizar a area restrita para que a empresa possa acessar e alterar os dados e depois assim que forem atualizados essas informações passam a ser utilizadas na sua area de anuncios.

Caso precise de mais dicas sugiro que de uma olhada na seção de tutoriais que tem alguns topicos bons para que voce possa estudar e aprender + sobre a linguagem .


[]'s

[Maracuja]

Agora vai fazendo, e se tiver dúvidas poste aki, para que possamos ajuda-lo.

[tHiAgO_sJc]

vlw pela força galera ... vou começar a fazer este trabalho e qualquer duvida eu volto a postar...
flws

___________________________________________________________________


olha soh ... vou reformular minha pergunta prolongando um poko mais ...

A empresa se cadastra na pagina onde ha um campo de texto onde ela ira colokar o ramo de atividade (ex: academia) ... logo apos essa empresa enviar o formulario os dados da msm ira automaticamente ser colokado na pagina denominada "academia" dinamicamente. Eh possivel fazer isto??

vlws


Evite posts Seguidos ! Use o Botao Editar e Leia as Regras para Evitar Problemas Futuros

Edição feita por: Generation, 04/10/2005, 22:29.

[Generation]

Sim se voce gravou o ramo de atividade ou uma ID que identifique voce usa um select e resolve o problema :

Select * From Tabela Where categoria = academia

e assim sucessivamente....


[]'s

[tHiAgO_sJc]

kra eu to realmente precisandu me aprofundar em asp ... eu so muito novato vc pode explicar melhor?? eu tenho q colocar uma id na tabela q irei usar... tipo um rotulo??

[Generation]

Pressupondo que voce ja sabe gravar os dados no banco através de um form, e foi gravado um campo chamado, RamoDeAtividade, bem esse pode ser um campo que identifique tipos de de serviço certo ?

Pergunte a si mesmo...

Ixxi agora quero que uma pagina so mostre os que sao academia ?

Pressupondo que voce gravou no campo RamoDeAtividade o algum valor chamado academia, sua SQL ficaria assim:

SQL = "select * From NomeDaTabela where RamoDeAtividade = '"& "Academia" &"'"

Mas generation, e se eu nao tiver nada gravado com essa informação ?

Humm, se não tiver pense assim, se nao tem trate isso e mostre alguma mensagem, ao usuario.

SELECIONE TUDO DO NomeDaTabela ONDE RamoDeAtividade = Academia

SE NAO Existir ENTAO
     ESCREVA "Não Existem Ramos desse Tipo !"
SENAO
     ENQUANTO NAO FOR O FIM
         ESCREVA OS DADOS
     FIM ENQUANTO
FIMSE

Sugiro que continue os estudos, e vá avançando niveis brincando com a linguagem e se perguntando como fazer tal coisa... e Procurando como fazer... Use a Busca do Forum nessa seção que vai encontrar algumas souçoes e na seçao de tutoriais + alguns que vao ajudar a aprender .


[]'s

[object Object]

[Maracuja]

Da uma estudada em bandos de dados relacioais se possível, p/ que vc entenda os conceitos ao menos... o que é uma chave primária e etc!!!

use o

http://www.google.com.br

[tHiAgO_sJc]

eu consegui un script na net do jeito q to querendo mas esta dando um erro ... olha soh

default.asp

<% Option Explicit %>
<%
Dim oConn, sSql, rsPessoas

oConn.Open = "Driver = {Microsoft Access Driver (*.mdb)}"
DBQ = "& server.MapPath"("pessoas.mdb")
sSql = "SELECT * FROM Pessoas"

Set rsPessoas = oConn.Execute(sSql)
%>

<html>
<head>
<title>Registo de pessoas</title>
</head>
<body>

<table width="70%" border="1">
<tr>
<td align="center">
<strong>ID</strong>
</td>
<td align="center">
<strong>Nome</strong>
</td>
<td align="center">
<strong>Apelido</strong>
</td>
<td align="center">
<strong>Idade</strong>
</td>
<td align="center">
<strong>Editar</strong>
</td>
<td align="center">
<strong>Apagar</strong>
</td>
</tr>
<%
Do While Not rsPessoas.Eof
Loop
%>
<tr>
<td align="center">
<%= rsPessoas("ID") %>
</td>
<td align="center">
<%= rsPessoas("Nome") %>
</td>
<td align="center">
<%= rsPessoas("Apelido") %>
</td>
<td align="center">
<%= rsPessoas("Idade") %>
</td>
<td align="center">
<a href="apagar.asp?id=<%= rsPessoas("ID") %>" >apagar</a>
</td>
<td align="center">
<a href="editar.asp?id=<%= rsPessoas("ID") %>">editar</a>
</td>
</tr>
v%
 rsPessoas.Movenext
 Loop
%>
</table>
<br><br>
<form name="fInserir" method="post" action="inserir.asp">
<table width="30%" cellspacing="3">
<tr>
<td width="15%">Nome</td>
<td>
<input name="tNome" type="textbox">
</td>
</tr>
<tr>
<td>Apelido</td>
<td>
<input name="tApelido" type="textbox">
</td>
</tr>
<tr>
<td>Idade</td>
<td>
<input name="tIdade" type="textbox">
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="bSubmit" value="Inserir">
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
oConn.Close
Set oConn = Nothing
Set rsPessoas = Nothing
%>

insert.asp

<% Option Explicit %>
<%
'Declarar variáveis
Dim oConn, sSql, rsInserir, sNome, sApelido, sIdade

'Ligação à base de dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pessoas.mdb")

'Vamos buscar os dados do formulário
sNome = Request.Form("tNome")
sApelido = Request.Form("tApelido")
sIdade = Request.Form("tIdade")

'String SQL para inserir os dados
sSql = "INSERT INTO Pessoas(Nome,Apelido,Idade) VALUES('"& sNome &"','"& sApelido &"',"& sIdade &")"

'Executamos a query
Set rsInserir = oConn.Execute(sSql)

'Limpar os objectos
oConn.Close
Set oConn = Nothing
Set rsInserir = Nothing

'E voltamos à página principal
Response.Redirect("default.asp")
%>

editar.asp

<% Option Explicit %>
<%
'Declarar variáveis
Dim oConn, sSql, sId, rsEditar, sNome, sApelido, sIdade

'Ligação à base de dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pessoas.mdb")

'O ID que veio pela Querystring
sId = Request.Querystring("id")

'Vamos buscar os dados do formulário
sNome = Request.Form("tNome")
sApelido = Request.Form("tApelido")
sIdade = Request.Form("tIdade")

'String SQL para apagar o registo com esse ID
sSql = "UPDATE Pessoas SET Nome='"& sNome &"',Apelido='"& sApelido &"',Idade="& sIdade &" WHERE ID="& sId &""

'Vamos executar a query
Set rsEditar = oConn.Execute(sSql)

'Limpar os objectos
oConn.Close
Set oConn = Nothing
Set rsEditar = Nothing

'E voltamos à página principal
Response.Redirect("default.asp")
%>

apagar.asp

<% Option Explicit %>
<%
'Declarar variáveis
Dim oConn, sSql, sId, rsRemover

'Ligação à base de dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pessoas.mdb")

'O ID que veio pela Querystring
sId = Request.Querystring("id")

'String SQL para apagar o registo com esse ID
sSql = "DELETE * FROM Pessoas WHERE ID="& sId &""

'Vamos executar a query
Set rsRemover = oConn.Execute(sSql)

'Limpar os objectos
oConn.Close
Set oConn = Nothing
Set rsRemover = Nothing

'E voltamos à página principal
Response.Redirect("default.asp")
%>
#<% Option Explicit %>
<%
'Declarar variáveis
Dim oConn, sSql, sId, rsEditar, sNome, sApelido, sIdade

'Ligação à base de dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pessoas.mdb")

'Vamos buscar o ID à querystring
sId = Request.Querystring("id")

'Vamos buscar as informações deste registo
sSql = "SELECT * FROM Pessoas WHERE ID="& sId &""
Set rsEditar = oConn.Execute(sSql)

sNome = rsEditar("Nome")
sApelido = rsEditar("Apelido")
sIdade = rsEditar("Idade")

'Limpar os objectos
oConn.Close
Set oConn = Nothing
Set rsEditar = Nothing
%>

<html>
<head>
<title>Editar registo<%= sId %></title>
</head>
<body>

<form name="fEditar" method="post" action="editarExe.asp?id=<%= sId %>">
<table width="30%" cellspacing="3">
<tr>
<td width="15%">Nome</td>
<td><input name="tNome" type="textbox" value="<%= sNome %>" ></td>
</tr>
<tr> 
<td>Apelido</td>
<td><input name="tApelido" type="textbox" value="<%= sApelido %>" ></td>
</tr>
<tr>
<td>Idade</td>
<td><input name="tIdade" type="textbox" value="<%= sIdade %>" ></td>
</tr>
<tr>
<td>  </td>
<td><input type="submit" name="bSubmit" value="Confirmar"></td>
</tr>
</table>
</form>
</body>
</html>

pessoas.mdb

nome da tabela = pessoas
nome do campo = Id (auto-numeração)
nome do campo = Nome (texto)
nome do campo = Apelido (texto)
nome do campo = Idade (números)

alguem sabe pq ta dando errado??


--
Dúvidas sobre scripts prontos, devem ser postados aqui:
http://forum.wmonlin...p?showforum=114

Edição feita por: tHiAgO_sJc, 06/10/2005, 13:18.

[Generation]

Tiago, facilite pra gente te ajudar...Qual o erro e a linha que apareceu o erro ao visualizar no browser ?

[]'s

[tHiAgO_sJc]

Tiago, facilite pra gente te ajudar...Qual o erro e a linha que apareceu o erro ao visualizar no browser ?

[]'s

Aparece o seguinte erro na pagina default.asp

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03FB)
'Loop' esperado
asp/4/default.asp, line 102

[Generation]

depure seu codigo va ate a linha e veja se tem algo errado, nao sei qual é a linha 102, mas na default.asp tem uma linha errada :

<%
Do While Not rsPessoas.Eof
Loop
%>

de uma olhadinha em alguns codigo caso nao ache mas veja a linha acima que te passei.


[]'s

[tHiAgO_sJc]

deu certo mas agora ta dando outro erro ... a pagina default.asp agora esta assim:

<% Option Explicit %>
<%
Dim oConn, sSql, rsPessoas


oConn.ConnectionString = "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("pessoas.mdb")
sSql = "SELECT * FROM Pessoas"
oConn.Open

Set rsPessoas = oConn.Execute(sSql)
%>

<html>
<head>
<title>Registo de pessoas</title>
</head>
<body>

<table width="70%" border="1">
<tr>
<td align="center">
<strong>ID</strong>
</td>
<td align="center">
<strong>Nome</strong>
</td>
<td align="center">
<strong>Apelido</strong>
</td>
<td align="center">
<strong>Idade</strong>
</td>
<td align="center">
<strong>Editar</strong>
</td>
<td align="center">
<strong>Apagar</strong>
</td>
</tr>
<%
Do While Not rsPessoas.Eof
%>
<tr>
<td align="center">
<%= rsPessoas("ID") %>
</td>
<td align="center">
<%= rsPessoas("Nome") %>
</td>
<td align="center">
<%= rsPessoas("Apelido") %>
</td>
<td align="center">
<%= rsPessoas("Idade") %>
</td>
<td align="center">
<a href="apagar.asp?id=<%= rsPessoas("ID") %>" >apagar</a>
</td>
<td align="center">
<a href="editar.asp?id=<%= rsPessoas("ID") %>">editar</a>
</td>
</tr>
v%
 rsPessoas.Movenext
 Loop
%>
</table>
<br><br>
<form name="fInserir" method="post" action="inserir.asp">
<table width="30%" cellspacing="3">
<tr>
<td width="15%">Nome</td>
<td>
<input name="tNome" type="textbox">
</td>
</tr>
<tr>
<td>Apelido</td>
<td>
<input name="tApelido" type="textbox">
</td>
</tr>
<tr>
<td>Idade</td>
<td>
<input name="tIdade" type="textbox">
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="bSubmit" value="Inserir">
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
oConn.Close
Set oConn = Nothing
Set rsPessoas = Nothing
Loop
%>

e o erro q aparece eh este:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
asp/4/default.asp, line 6

flws...

[Generation]

Porque voce torcou e jeito de se conectar ao banco de dados ?


use assim :

<% Option Explicit %>
<%
Dim oConn, sSql, rsPessoas

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pessoas.mdb")

set rsPessoas  =Server.CreateObject("ADODB.Recordset")
sSql = "SELECT * FROM Pessoas"
Set rsPessoas = oConn.Execute(sSql)
%>

[]'s

[Caio Oliveira]

Eaew Galera! tudo blz??
eu fiz ai o arquivo para inserir dados no BD só que ele dah um erro na linha 4
nesse código ai!!

DB.open constr

me ajudem por favor!!

Eae galera!! eu descobri o problema agora estou com outro!!
ele naum insere nada no BD oq eu faço??

flw galera um abrax