Conexão

[Fábio freitas]

Estou tentando me conectar com um banco de dados, porém estou começando com esse negócio, gostaria que alguém me ajudasse, abaixo algumas informações:

nome do banco de dados = noticias.mdb

nome da tabela = news

sem DSN

Dentro da tabela tem dois campos: numero e noticia

Gostaria de apresentar na página estas informações.

Bom espero que eu tenha sido claro.

Desde já agradeço

Fábio Freitas

<%

Option Explicit

Dim objConect, objRst

Set objConect = Server.CreateObject("ADODB.Connection")

objConect.Provider="Microsoft.Jet.Oledb.4.0"

objConect.ConnectionString=Server.MapPath("noticias.mdb")

objConect.Open

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

objRst.Open "SELECT news FROM SysObjects WHERE XType='S'", objConect, 1, 3

With Response

.Write "<p>"

.Write "<font face=verdana size=2><b>"

.Write "Tabelas Criadas pelo Usuário"

.Write "</b></font><p>"

End With

Do While Not objRst.EOF

With Response

.Write "<font face=verdana size=1>"

.Write "<li>" & objRst("news") & "</li>"

.Write "</font>"

End With

objRst.MoveNext

Loop

Set objRst = Nothing

Set objConect = Nothing

%>

[ursolouco]

Brother!!

conecta_noticias.asp

cBanco = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & cBanco
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
 Response.Write(Err.Description)
Else
 Response.Write("Conexão está OK")
End If

Abraços!!

[bareta]

conectando...

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\banco.mdb"
%>

buscando dados

sql="select * from nome_tabela"
set rs=conexao.execute(sql)
Do While Not rs.EOF
response.write rs("campo_tabela") & "<br>"
loop

[Fábio freitas]

Agradeço a todos os amigos que estao me ajudando, com ela consegui me conectar ao banco de dados, porém quando fui fazer a página de inclusão, a de consulta ~passou a não funcionar, ficarei grato por uma nova ajuda.

Abaixo o código e o erro:

<-- CONSULTAR DADOS -->

<%
Caminho = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
Response.Write(Err.Description)
Else
Response.Write("Conexão está OK")
End If
%>

<--ERRO -->

Microsoft JET Database Engine error '80004005'

Unspecified error

/fabiofreitas/conecta.asp, line 33

<-- LINHA 33 = Conn.Open(strConn)-->

<-- INCLUIR DADOS -->

<%

if request.form("enviado")="sim" then

set db = server.CreateObject("ADODB.connection")

dim caminho

caminho = server.MapPath("noticias.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

chamada = request.form("chamada")

noticia = request.form("noticia")

link = request.Form("link")

sql = "INSERT INTO news (chamada, noticia, link)"

sql = sql & "VALUES"

sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')"

set rs = db.execute(sql)

response.redirect "conecta_noticias.asp"

rs.close

db.close

set rs = nothing

set db = nothing

response.write "inserido na tabela"

end if

%>

<form action="conecta_noticias.asp" method="post" name="dados" id="dados" >

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">

<tr >

      <td colspan="2"><div align="center"><strong><font color="#000066" size="3" face="Verdana, Arial, Helvetica, sans-serif">Inserir

          Noticias:</font></strong></div></td>

</tr>

<tr >

<td colspan="2"><div align="center"></div></td>

</tr>

<tr>

      <td width="6%" height="31" ><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Chamada:</font></td>

<td width="88%" ><font size="2" face="Arial, Helvetica, sans-serif">

        <input name="chamada" type="text" class="input2" id="chamada" size="70">

<input name="enviado" type="hidden" value="sim">

</font></td>

</tr>

<tr>

      <td height="185" valign="top" ><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Noticia:</font></td>

<td ><p>

<textarea name="noticia" cols="70" rows="10" id="textarea" class="input2" ></textarea>

<font size="-1" face="Arial, Helvetica, sans-serif"> </font></p></td>

</tr>

<tr>

<td > <div align="right"></div>

        <div align="left"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Link:</font></div></td>

<td ><input name="link" type="text" class="input2" id="resumo2" size="70"></td>

</tr>

<tr align="left" valign="top" >

      <td colspan="2">&nbsp;</td>

</tr>

<tr>

<td colspan="2" > <div align="center"></div>

<div align="center">

<input type="submit" name="Submit" value="Enviar">

<input type="reset" name="Submit2" value="Limpar">

        </div>

</td>

</tr>

</table>

</form>

PODE ESTA HAVENDO ALGUM CONFLITO

DESDE JÁ AGRADEÇO

Editado: Utilize as Tags Disponíveis para formatar seus textos.

Editado Outubro 28, 2004 por dark0

[dark0]

Ali diz ter erro na linha 33.

O codigo que você mostrou tem no maximo 10 linhas ... cade as restantes?

[Fábio freitas]

ESTÃO TODOS AI

A LINHA 33 É

Conn.Open(strConn)

[dark0]

Consultar DADOS

<%
Caminho = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
Response.Write(Err.Description)
Else
Response.Write("Conexão está OK")
End If
%>

tem 33 linhas aí?

[Fábio freitas]

Segue abaixo código completo, abrigado pela ajuda

Um abraço

Fábio Freitas

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Conectar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.estilo {
	text-decoration: blink;
	font-family: Verdana;
	font-size: 9cm;
	font-style: normal;
	color: #000099;
}
.estilo a:link {
	font-weight: normal;
	color: #000099;
	text-decoration: blink;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 9px;
	font-style: normal;
}
.estilo a:visited { font-weight: normal; color: #000099; text-decoration: none}
.estilo a:hover { font-weight: normal; color: #0099FF; text-decoration: none}
.estilo a:active { font-weight: normal; color: #000099; text-decoration: none}
-->
 </style>
<body>
<%
Caminho = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
Response.Write(Err.Description)
Else
Response.Write("Conexão está OK")
End If
%>
</body>
</html>

EDITADO: Utilize as Tags CODE ou QUOTE quando for postar códigos

Editado Outubro 28, 2004 por cyberalexxx

[bareta]

so o arquivo inclui.asp não funciona???? nele tem uma conexão....

não entendi nada de seu codigo...

[dark0]

Bem.

Em que momento da execução dos codigos este erro acontece?

A principio, se a conexao estava funcionando antes, pode não funcionar mais por causa de problemas com o banco de dados.

Ele pode estar corrompido.. em diretorio errado.. sei lá..

Ou então, como é erro não especificado, pode ser porque a conexao esta aberta mais de uma vez ...