Erro na instrução "insert into"
Por favor, me ajudem!
Tenho esses dois códigos aqui, de cadastro de um livro no banco de dados Access:
Arquivo Lab10_1.asp
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Inserindo dados na tabela de livros</title>
<script language="javascript">
function validaForm (){
if (document.formLivro.txtCodigo.value.length <1)
{alert("O campo ISBN não pode ficar em branco.");
formLivro.txtCodigo.focus();
return false;
}
if (document.formLivro.txtCodCategoria.value.length <1)
{alert ("O campo Código da Categoria não pode ficar em branco.");
formLivro.txtCodCategoria.focus();
return false;
}
if (document.formLivro.txtTitulo.value.length <1)
{alert("O campo Título não pode ficar em branco.");
formLivro.txtTitulo.focus();
return false;
}
if (document.formLivro.txtAutor.value.length <1)
{alert("O campo Autor não pode ficar em branco.");
formLivro.txtAutor.focus();
return false;
}
if (document.formLivro.txtPreco.value.length <1)
{alert("O campo Preço não pode ficar em branco.");
formLivro.txtPreco.focus();
return false;
}
if (document.formLivro.txtCapa.value.length <1)
{alert("O campo Imagem da Capa não pode ficar em branco.");
formLivro.txtCapa.focus();
return false;
}
</script>
</head>
<body>
<form name="formLivro" method="post" action="ResLab10_1.asp" onSubmit="return validaForm(this);">
Inclusão de Livros<br /><br /><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>ISBN</td>
<td><input type="text" name="txtCodigo"> *</td>
</tr>
<tr>
<td>Código da Categoria:</td>
<td><input type="text" name="txtCodCategoria"> *</td>
</tr>
<tr>
<td>Título:</td>
<td><input type="text" name="txtTitulo"> *</td>
</tr>
<tr>
<td>Autor:</td>
<td><input type="text" name="txtAutor"></td>
</tr>
<tr>
<td>Número de páginas:</td>
<td><input type="text" name="txtNPaginas"> *</td>
</tr>
<tr>
<td>Formato:</td>
<td><input type="text" name="txtFormato"> *</td>
</tr>
<tr>
<td>Preço:</td>
<td><input type="text" name="txtPreco" > *</td>
</tr>
<tr>
<td>Resenha:</td>
<td><textarea name="txtResenha" rows="5" cols="40"></textarea></td>
</tr>
<tr>
<td>Lançamento (S/N):</td>
<td><input type="text" name="txtLancamento"></td>
</tr>
<tr>
<td>Data de publicação:</td>
<td><input type="text" name="txtDataPub"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="inserir" name="btInsere"><input type="reset" value="Limpar campos" name="btLimpa">
</td>
</tr>
</table>
</form>
</body>
</html>Arquivo ResLab10_1
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit
%>
<!--#include file="../dbconexao.inc"-->
<%
Dim conexaoDatabase
Dim strins, rslivros
Dim varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub
varCodigo = TRIM(Request.Form("txtCodigo"))
varCodCategoria = Request.Form("txtcodCategoria")
varTitulo = TRIM(Request.Form("txtTitulo"))
varAutor = TRIM(Request.Form("txtAutor"))
VarNPaginas = Request.Form("txtNPaginas")
varFormato = TRIM(Request.Form("txtFormato"))
varPreco = Request.Form("txtPreco")
varResenha = Request.Form("txtResenha")
varLancamento = TRIM(Request.Form("txtLancamento"))
varDataPub = TRIM(Request.Form("txtDataPub"))
varTitulo = REPLACE(varTitulo,"'"," ")
varAutor = REPLACE(varAutor,"'"," ")
varFormato = REPLACE(varFormato,"'"," ")
varResenha = REPLACE(varResenha,"'"," ")
varPreco = REPLACE(varPreco,"'"," ")
strins = "insert into Livros"
strins = strins + "(codLivro, Categoria, titulo, autor, npaginas, formato, preco, resenha, lancamento, dataPub)"
strins = strins + "values('"+varCodigo+ "', "
strins = strins + "'" +varCodCategoria+ "',"
strins = strins + "'" +varTitulo+ "',"
strins = strins + "'" +varAutor+ "',"
strins = strins + varNPaginas+ ","
strins = strins + "'" +varFormato+ "',"
strins = strins + varPreco + ","
strins = strins + "'" +varResenha+ "',"
strins = strins + "'" + varLancamento + "',"
strins = strins + "'" + varDataPub + "')"
call abreConexao
set rslivros = conexaoDatabase.Execute(strins)
%>
<html>
<head>
<title> Inserindo dados em uma tabela </title>
</head>
<body>
O Livro "<strong><% = varTitulo %> </strong>" foi cadastrado com sucesso
</body>
</html><% call fechaConexao
set rsLivros = Nothing
%>
tá dando o seguinte erro:
Informações técnicas (para a equipe de suporte)
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.
/nasp/Laboratorios/ResLab10_1.asp, line 44
Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; FDM)
o que pode estar acontecendo??? =/
Discussão (23)
Carregando comentários...