acesso a dados asp access

Outubro 5, 2009

Olá bom dia,

Sou iniciante, aqui, iniciante em asp e em banco de dados tb...rs

preciso de ajuda para incluir informações numa tabela em access ja feita,.. tem uma aplicação que salva as informações num banco access com nome de noticias, nela contem varios campos, tais como: fontes, titulo, corpo da noticia,link, mas o que eu queria , era criar uma pagina para editar informações numa tabela so do meu banco, exemplo: incluir e alterar fontes de noticias... e não adicinar uma fonte de noticia, queria que as fontes (os nomes de jornais ) fossem incluidos independente de inclusão de uma noticia inteira, pra depois ser jogado numa combo, ( que ja esta criada e funcionando)

a pagina ja foi criada, mas nao sei como incluir somente uma fonte, e nao toda noticia... vou postar o codigo que inclui todas as informações juntas, e peço a ajuda de vcs para saber como incluir uma so informação nessa tabela de noticias...

<!--#include file="Connections/Cn.asp" -->
<%
Dim Cn , StrInsert , Rs, titulo, Corpo

titulo = Request.Form("titulo")
Corpo = Request.Form("html")
data = Request.Form("data")
publicacao = Request.Form("publicacao")  
dataarrumada = mid(data,4,2)&"/"&mid(data,1,2)&"/"&mid(data,7,4)
publicacaoarrumada = mid(publicacao,4,2)&"/"&mid(publicacao,1,2)&"/"&mid(publicacao,7,4)
nomejornal = request.Form("nomejornal")
fonte = request.form("nomefonte")

Set Cn =  Server.CreateObject("ADODB.Connection")
Cn.Open (MM_Cn_STRING)

Corpo = Replace(Corpo,chr(39),chr(34))
titulo = Replace(titulo,chr(39),chr(34))

StrInsert = "INSERT INTO noticias (Not_titulo,not_Corpo,not_data,Not_Nome_Jornal,Not_Fonte,Data_Inc,not_publicacao) VALUES ('"&titulo&"','"&Corpo&"',#"&dataarrumada&"#,'"&nomejornal&"','"&fonte&"',#"& Date() &"#, #"&publicacaoarrumada&"# )"

On error Resume Next
Set Rs = Cn.Execute(strInsert)
	
Cn.close
	
Set Rs = Nothing
Set Cn = Nothing

if err = 0 Then
	response.redirect "abrirAdmin.asp"
else
response.Write (Err.description)
Response.Write("<br><br>" & Corpo)
Response.End()
end if
%>

----

pessoal, conseguir adicionar apenas uma informação na tabela, porém gostaria de que a data não fosse incluida junto, como faria?

e mais uma duvida, como faço para editar ( subistituir ) uma informação apenas na tabela, ao invés de incluir, como ficaria minha pagina?

Obrigado

Gutoffline · Outubro 5, 2009

Boa tarde,

Cara, veja se eu intendi: você pode criar uma nova tabela no seu banco de dados, uma tabela chamada fontes, onde ela só teria 2 campos a principio, o campo CÓDIGO e o campo FONTE, assim você pode cadastrar todas as suas fontes e depois listá-las numa combo. Ja na tabela de noticias, ao invés de você gravar o nome da fonte, você pode simplesmente gravar o código dela.

Abraços

Outubro 5, 2009

Boa tarde,

Cara, veja se eu intendi: você pode criar uma nova tabela no seu banco de dados, uma tabela chamada fontes, onde ela só teria 2 campos a principio, o campo CÓDIGO e o campo FONTE, assim você pode cadastrar todas as suas fontes e depois listá-las numa combo. Ja na tabela de noticias, ao invés de você gravar o nome da fonte, você pode simplesmente gravar o código dela.

Abraços

Boa tarde Guto..

Perfeito, expliquei nas coxas, mas você entendeu cara... Obrigado,

Aproveitando pra encher um pouco então...sabe onde acho exemplos disso? e como ficaria minha sintaxe?

por exemplo como ficaria essa linha aibaxo:

StrInsert = "INSERT INTO noticias(Not_titulo,not_Corpo,not_data,Not_Nome_Jornal,Not_Fonte,Data_Inc,not_publicacao) VALUES ('"&titulo&"','"&Corpo&"',#"&dataarrumada&"#,'"&nomejornal&"','"&fonte&"',#"& Date() &"#, #"&publicacaoarrumada&"# )"
On error Resume Next
Set Rs = Cn.Execute(strInsert)        
Cn.close        
Set Rs = Nothing
Set Cn = Nothing
if err = 0 Then        
response.redirect "abrirAdmin.asp"
else
response.Write (Err.description)
Response.Write("<br><br>" & Corpo)
Response.End()
end if%>

e se uma noticia tiver a mesma fonte vai da pau?

________

cara, sou muito prego em access, ( alias nao so nisso rs)... mas então no meu banco tem 3 consultas, que acabei de encontrar, a primeira contem a data e o titulo, a segunda as fontes, e a terceita a data... dai será que eu consiga no meu codigo dizer pra ele mudar somente a essa consulta?(consulta 2)...

_______

Abraços e muito obrigado

xanburzum · Outubro 5, 2009

Olá seja bem-vindo...

Dá uma procurada no foum e em artigos que existe um exemplo de sistema para selecionar,incluir,alterar,excluir e pesquisa,você pode adicionar um campo, chamado nome da fonte e inserir nele apenas a fonte da noticia

Vai te ajudar

Mário Monteiro · Outubro 6, 2009

para não incluir a data basta tirar do INSERT

qual o problema atual pois o tópico já esta meio confuso

xanburzum · Outubro 7, 2009

poste a linha e numero do erro, facilita...

Outubro 7, 2009

bom dia,

Estou tentando fazer uma pagina de administração de fontes de noticia, pois ja tenho uma pagina onde eu edito essas noticias, inclusive, edito também as fontes delas, mas o problema, é que, cada fonte esta relacionada a uma noticia, então toda vez que alguem escreve(adiciona) uma fonte com erros de português ou algo assim, agente tem que entrar na nocitia e editar essa fonte.

o amigo Gutoffline, deu uma solução interessante, onde eu criaria outra tabela, dentro do meu banco de noticias,com o nome de fontes, e gravaria no campo fontes que fica dentro da tabela de noticias, somente o codigo dela, então eu poderia editar uma fonte independente da edição de uma noticia.. porém não sem como faze-lo rs...

to pesquisando como ficaria minha sintaxe, e como ficaria meu banco.. vou postando os erros que vão aparecendo e desde já agradeço vcs pela ajuda

Outubro 7, 2009

Meu objetivo era fazer uma caixa select, onde aparecia todas as minhas fontes, então quando a pessoa clicasse numa fonte ela ficaria em modo de edição, ou então clicando em algum dado dessa select ela apareceria numa caixa de texto abaixo, e a pessoa editaria, teria um botão para excluir, outro pra adicionar e mais um pra atualizar, esse acho que é o problema... meu codigo ta assim por enquanto...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Cn, Rs, nomejornal, StrSql

Set Cn = Server.CreateObject("ADODB.Connection")
StrCon ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Site\datasafe\Web\Dados\noticias.mdb;"
Cn.Open(StrCon)

Set Rs = Server.CreateObject("ADODB.RecordSet")

nomejornal = Trim(Request.QueryString("fontes where fonte"))

StrSql = "Select fonte, from fontes where fonte = "&nomejornal&" " 

%>

<html>
<head>
<title>Alterar Noticias</title>
</head>

            <td height="25" colspan="4">Jornais adicionados:                
  <select name="njornal" size="20" multiple>
                <option value=""> </option>
                <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
rs.Source = "SELECT DISTINCT fonte as Nome FROM fontes Order By fonte ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
if not rs.Eof then
	do while not rs.eof
%>
                <option name="tt" id="tt" value="<% =Rs("Nome") %>"> <%=Rs("Nome")%></option>
                <%
	rs.movenext
	loop
end if
Rs.Close()
Set Rs = Nothing
%>
              </select>
<br><br><br><br>
              
             
              
              
              Nome do Jornal: <input name="nomejornal" type="text" id="nomejornal" size="70" maxlength="100"></td>
              
              
<%
function ArrumaData(Strdata) 
	dia = day(Strdata)
	mes = month(Strdata)
	ano = year(Strdata)
	if len(dia)=1 then
	dia = "0"&dia
	end if
	if len(mes)=1 then
	mes = "0"&mes
	end if
	ArrumaData = dia&"/"&mes&"/"&ano
end function
%>

Abraço!

Outubro 8, 2009

Bom dia!

pessoal, tenho evoluido pouco, mas evoluido... vou pedindo ajuda passo a passo então,..

então preciso de uma ajuda para, excluir um dado de uma tabela, selecionado numa compo ... segue meu codigo:

pagina de edição..

<select name="njornal" size="20" multiple>
                <option value="valor" id="vl"> </option>
                <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
rs.Source = "SELECT DISTINCT fonte as Nome FROM fontes Order By fonte ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
if not rs.Eof then
	do while not rs.eof
%>
                <option name="tt" id="tt" value="<% =Rs("Nome") %>"> <%=Rs("Nome")%></option>
                <%
	rs.movenext
	loop
end if
Rs.Close()
Set Rs = Nothing
%>
</select>

<input type="submit" name="excluirfont" onClick="deletarfontes.asp" value="Excluir">

e a minha pagina deletarfontes esta assim:

<%
Dim Cn , StrDelete , Rs, ids

njornal = request.Form("njornal")
nomejornal = request.Form("nomejornal")

Set Cn =  Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Site\datasafe\Web\Dados\noticias.mdb;"

StrDelete = "delete from fontes where fonte in ( " & Request.Form("deletar") &")"

On error Resume Next
Set Rs = Cn.Execute(strDelete)
	
Cn.close
	
Set Rs = Nothing
Set Cn = Nothing

if err = 0 Then
	response.redirect "fonteEditar.asp"
else
response.Write (Err.description)
Response.End()
end if
%>

Obrigado!

Mário Monteiro · Outubro 8, 2009

deu algum erro? a ideia é essa mesmo mas se deu algum erro fica mais fácil de ataca-lo

Outubro 8, 2009

Opa!

nao da erro nao cara... mas ele nao deleta nada da minha tabela... so gera um campo em branco..

xanburzum · Outubro 8, 2009

olha um exemplo, pode te ajudar

form

<%	'excluir_form.asp recebe o codigo pela url, dou um request.querystring
  	'e atribuo a varcodigo para poder fazer a SQL,monto um form com um input
	' type hidden para passar o codigo para excluir_action.asp ( action do form)
	
	option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	if session("login") <> "admin" then
		response.redirect("administracao.asp?msgeof=11")
	else
		'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="SELECT * FROM login WHERE codigo="&varcodigo&""
		rs.open SQL,conexao,1,3%>

<html>
<head>
<title>Excluir Usuário</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="79%" border="0" bgcolor="#336699" cellpadding="0" cellspacing="0"> 
<tr> <td width="2%"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%"> 
<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">Excluir 
Usuário</font></b></div></td></tr> <tr> <td colspan="2"> <div align="center"></div><div align="center"></div><div align="center"></div><div align="center"></div></td></tr> 
</table><table width="79%" border="0" cellpadding="0" cellspacing="0" bgcolor="#336699"> 
<tr> <td bgcolor="#336699" height="112">
 <form name="form1" method="post" action="excluir_action_treina.asp"> 
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> <table width="100%" border="1" bordercolor="#e6e6e6"> 
<tr> <td width="19%"> <div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Código</font></b></font></div></td><td width="24%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Login</font></b></font></div></td><td width="22%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Senha</font></b></font></div></td><td width="35%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email</font></b></font></div></td></tr> 
<tr> <td width="19%"> <div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("codigo")%></font></font></font></b></font></div></td><td width="24%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("login")%></font></font></font></b></font></div></td><td width="22%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("senha")%></font></font></font></b></font></div></td><td width="35%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("email")%></font></font></font></b></font></div></td></tr> 
<%'fecha o rs
  set rs=nothing
  'fecha a conexao
  call fechaconexao
  end if%> </table><p align="center"> 
          <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr> </table>
<p> </p><p> </p><p> </p>
</body>
</html>

action

<%		Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, rsdel, SQLdel, varcodigo
	'recupero a var
	varcodigo=Trim(request.form("codigo"))
	'crio a conexao %>
	<!--#include file="conn/conexao1.asp"-->
	<% 'abro a conexao
	call abreconexao
	'crio o rs
	set rs=server.createobject("ADODB.Recordset")
	'crio o SQL
	SQL="SELECT login FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	  'verifico atravez do select se o login é do admin
	if rs("login")= "admin" then
		response.redirect("administracao.asp?msgeof=12")
		set rs=nothing  'fecho o rs do select
	else
	  'crio o rsdel para excluir o registro
	    set rsdel=server.createobject("ADODB.Recordset")
		SQLdel="DELETE FROM login WHERE codigo="&varcodigo&""
		rsdel.open SQLdel,conexao,1,3
		response.redirect("administracao_treina.asp?msg=3")
		set rsdel=nothing
	end if
	'fecha a conexao
	call fechaconexao %>

Mário Monteiro · Outubro 8, 2009

tira o On error Resume Next de seu codigo que deve mostrar o erro

Outubro 9, 2009

Bom dia pessoal,

Mario,

não tem essa instrução no meu código.., mas se tivesse um erro na hora de excluir,teria que me mostrar a descrição, pelo que diz o código abaixo, ( eu acho )

....
Set Rs = NothingSet 
Cn = Nothingif err = 0 Then
 response.redirect "fonteEditar.asp"
else 
response.Write (Err.description)
 Response.End()end if
%>

xanburzum,

Obrigado, vo continuar na luta, achei um pouco complidado seu código cara, mas vamo que vamo.. tem algum bom curso online de asp, e baratinho por ai??rsrs

Abraços!

Retificando... retirei o

On error Resume Next

mas nao aparece nenhum erro, e o meu navegador esta configurado...

hargon · Outubro 9, 2009

Se não da erro na hora de excluir, e ainda inclui em branco, a URL para a página de exclusão pode estar errada.

Outubro 9, 2009

cara chato esse que vos escreve neh.. rs

hargon,

me ajuda ai cara, o erro deve ta aqui né

nomejornal = Trim(Request.QueryString("fontes where fonte"))
StrSql = "Select fonte, from fontes where fonte = "&nomejornal&" "

onde, nomejornal, é o mesmo valor da minha caixa de texto abaixo da combo....,(mas tb poderia ser qualquer nome neh?)

e mais uma ajudinha ai galera..

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
rs.Source = "SELECT DISTINCT fonte as Nome FROM fontes Order By fonte ASC"
rs.CursorType = 0        --------> quais valores posso usar e que efeito tenho se eu mudo 
rs.CursorLocation = 2    --------> quais valores posso usar e que efeito tenho se eu mudo
rs.LockType = 1          --------> quais valores posso usar e que efeito tenho se eu mudo
rs.Open()
rs_numRows = 0           --------> quais valores posso usar e que efeito tenho se eu mudo
if not rs.Eof then
	do while not rs.eof

hargon · Outubro 9, 2009

Request.QueryString("fontes where fonte")

?

Isso provavelmente está errado.

Poste o resultado de Response.Write StrSql

Outubro 9, 2009

achei que era assim...

Request.QueryString("minha tabela where meu campo")

Pq eu tenho duas tabelas no mesmo banco... entende?

como ficaria essa sintaxe então?

Mário Monteiro · Outubro 9, 2009

Request.QueryString é para recuperar variáveis passadas na url

precisa explicar melhor o que quer e como tentou fazer

não apareceu nenhum erro mas não faz o esperado?

xanburzum · Outubro 9, 2009

tenta assim

"Select fonte from fontes where fonte = '"&nomejornal&"' ORDER BY fonte ASC "

Arquivado

acesso a dados asp access

Recommended Posts

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gutoffline 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169