O Código Dá Errado

[marcos_804]

<%

Set livro = CreateObject("ADODB.connection")

livroVer = "DRIVER={Microsoft Access Driver(*.mdb)};"

livroVer = livroVer &"BDQ"& Server.MapPath("livro_de_visitas.mdb")

livro.Open livroVer

SQLver = "SELECT * FROM livro ORDER BY data DESC"

SET pega = livro.Execute(SQLver)

%>

porque esse negócio dá errado, pelo amor de Deus. Os procedimentos estão certo, ou pelo menos, parece

[Graymalkin]

Acredito que o correto seria:

livroVer = "DRIVER={Microsoft Access Driver (*.mdb)};"
livroVer = livroVer & "BDQ=" & Server.MapPath("livro_de_visitas.mdb")

Ou, se quiser abrir por OLEDB:

livroVer = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("livro_de_visitas.mdb")

Abraços,

Graymalkin

[dark0]

Eu faria assim:

'conecta ao banco

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

'cria o sql

SQLver = "SELECT * FROM livro ORDER BY data DESC"

'executa o SQL

SET pega = conexao.Execute(SQLver)