Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Caian

Tutorial

Por , em ASP Clássico

Recommended Posts

Caian    0

Caian
Postado

Bem eu estou fazendo um tutorial de um livro e em um dos codigos ocorre um erro... ja refiz o código re li e nada sempre o mesmo erro, acho que talvez seja erro do autor mesmo... bem.. vou postar o código se alguem puder corrigi-lo para mim agradeço muito. :D

 

Arquivo conexao.asp :

<%
sub abreConexao
const cntCaminho = "C:\inetpub\wwwroot\ecommerce\database\editora.mdb"
Set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(cntCaminho)
End sub
sub fechaConexao
conexaodb.Close
Set conexaodb = Nothing
End sub
%>
Arquivo Cap5Lab21.asp:

<%
Option Explicit
%>
<!--#Include file = "conexao.asp"-->
<%
DIM conexaodb, recLivros, strSQL
strSQL = "SELECT codLivros, titulo, autor, preco FROM Livros"
Call abreConexao
Set recLivros = conexaodb.execute(strSQL)
%>
<html>
<head>
<title>Acessando dados de um banco de dados Access</title>
</head>
<body bgcolor = "#FFFFFF">
<font face = "Arial" size = "3" color = "red"><b>Livros da Editora ON-Line</b></font><br>
<table border = "1" cellpadding = "3" cellspacing = "0" width = "700">
<%
Do While Not recLivros.Eof
%>
<tr>
	<td><% = recLivros.Fields("codLivro") %></td>
	<td><% = recLivros.Fields("titulo") %></td>
	<td><% = recLivros.Fields("autor") %></td>
	<td><% = FormatNumber(recLivros.Fields("preco"),2) %></td>
</tr>
<%
recLivros.MoveNext
Loop
recLivros.Close
Call fechaConexao
Set recLivros = Nothing
%>
</body>
</html>

 

Erro:

 

Script error detected at line 19.

Source line: Set recLivros = conexaodb.execute(strSQL)

Description: [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

 

 

Desculpe o tamanho do post... Agradeço muito se alguem ajudar... vlw...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

verifique se tem algum campo digitado errado em relação aos nomes que estão no db

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Eu acho que o erro está aqui:

 

const cntCaminho = "C:\inetpub\wwwroot\ecommerce\database\editora.mdb"Set conexaodb = Server.CreateObject("ADODB.Connection")conexaodb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(cntCaminho)

 

Se não me engano, ele vai ler assim: C:\inetpub\wwwroot\ecommerce\database\editora.mdbC:\inetpub\wwwroot\ecommerce\database\editora.mdb

ou algo parecido

 

tenta assim:

conexaodb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho

 

Estou longe do micro de trabalho, mas acho que é assim, qualquer coisa depois confirmo o modo correto.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito