Não Consigo Conectar Ao Bd

[Teske]

aew. bom.. ta foda.. já tentei de tudo mas ta dando esse erro

Objeto Server, ASP 0177 (0x8007007F)

8007007f

/novoteske/default.asp, line 5

o codigo é esse

<%
Dim rs_data
Set rs_data = Server.CreateObject("ADODB.Recordset")
rs_data.ActiveConnection =  Server.MapPath("data.mdb")
rs_data.Source = "SELECT * FROM conteudo"
rs_data.CursorType = 0
rs_data.CursorLocation = 2
rs_data.LockType = 1
rs_data.Open()

%>

tem souber ..ajuda..

valleu

[Graymalkin]

Você precisa de um objeto Connection antes de abrir um Recordset. Uma forma mais prática de fazer isso é:

Dim rs_data, cn_data
Set cn_data = Server.CreateObject("ADODB.Connection")
Set rs_data = Server.CreateObject("ADODB.Recordset")
cn_data.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb"))
rs_data.Open("SELECT * FROM conteudo", cn_data, 2, 3)

Abraços,

Graymalkin

[Principe]

Tenta assim ó Teske, quer dizer...aqui e na net funciona esse......eu uso e aprovo...rss !!

<%
Conecta = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bancodedados.mdb")

Set rs = Server.CreateObject("ADODB.Recordset") 
strSQL = "SELECT * FROM Tabela"
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
rs.Open strSQL, Conecta

beleza.. ?..qualquer coisa da uma toque ai...!

[Teske]

beleza.. em casa vou tentar e depois post aqui pra dizer se foi ou não

valleu?