Meu dados não são gravados

AlbertoRT · Julho 25, 2011

Tenho uma página com o código abaixo para entrada de registros em um Banco de Dados.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Inserido livros na tabela livros </title>

&lt;script language="javascript">

function validaForm() {
if (document.formLivro.txtCodigo.value.length <1)
{alert ("O campo ISBN não pode ficar em brando. ");
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 Título 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.opcao1.value.length <1)
{alert ("O campo indicação não pode ficar em branco.");
formLivro.opcao1.focus();
return false;
}

if (document.formLivro.txtCapa.value.length <1)
{alert ("O campo Capa não pode ficar em branco.");
formLivro.txtCapa.focus();
return false;
}
return true;
}
</script>

</head>

<body>
<form name="formLivro" method="post" action="ResLab10_1.asp" onsubmit="return validaForm(this);">
Inclusão de Livros<br /><br />
Informe os dados do livro a ser inserido. Os campos com (*) são de digitação obrigatória.<br />

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="20%">ISBN: </td>
<td width="80%"> <input type="text" name="txtCodigo" /> *</td>
</tr>

<tr>
<td width="20%">Código da Categoria:</td>
<td width="80%"> <input type="text" name="txtCodCategoria" /> *</td>
</tr>

<tr>
<td width="20%">Título:</td>
<td width="80%"> <input type="text" name="txtTitulo" /> *</td>
</tr>

<tr>
<td width="20%">Autor:</td>
<td width="80%"> <input type="text" name="txtAutor" /> *</td>
</tr>

<tr>
<td width="20%">Número de páginas:</td>
<td width="80%"> <input type="text" name="txtNPaginas" /></td>
</tr>

<tr>
<td width="20%">Formato:</td>
<td width="80%"> <input type="text" name="txtFormato" /></td>
</tr>

<tr>
<td width="20%">Preço:</td>
<td width="80%"> <input type="text" name="txtPreco" /> *</td>
</tr>

<tr>
<td width="20%">Resenha:</td>
<td width="80%"> <textarea name="txtResenha" rows="5" cols="40"></textarea></td>
</tr>

<tr>
<td width="20%">Lançamento (S/N): </td>
<td width="80%"> <input type="text" name="txtLancamento" /></td>
</tr>

<tr>
<td width="20%">Data Publicação: </td>
<td width="80%"> <input type="text" name="txtDataPub" /></td>
</tr>

<tr>
<td width="20%">Confirma Publicação:</td>
<td width="10%"><input type="radio" value="1" name="Opcao1" /></td>
</tr>


<td width="20%"></td>
<td width="80%">
<input type="submit" value="Inserir" name="btInsere" />
<input type="reset" value="Limpa campos" name="btLimpa" />
</td>
</tr>
</table>
</form>

</body>
</html>

Ocorre que tive que incluir mais um campo no banco de dados que tem o nome opcao1 tipo "radio". Os registram trabalham com:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit 
%>
<!--#Include file="../dbConexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsLivros
Dim varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub, [color="#FF0000"]varOpcao1[/color]
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, ",", ".")
[color="#FF0000"]VarCodigo = TRIM(Request.Form("varOpcao1"))[/color]

strINS = "INSERT into Livros "
strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)"
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 + "')"
[color="#FF0000"]strINS = strINS + "'" + varOpcao1 + "',"
[/color]
Call abreConexao
Set rsLivros = conexaoDataBase.Execute(strINS)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<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
%>

Se eu retirar o campo opcao1 ele funciona normalmente. Resumindo não estou sabendo incluir na consulta e no restante do código o

<input type="radio" value="1" name="opcao1">

Rodando aparece o tipo de erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Número de valores da consulta e campos de destino não coincidem.

/serieweb/nasp/laboratorios/ResLab10_1.asp, line 42

Necessito de ajuda.

Editado Julho 25, 2011 por AlbertoRT

Tardem · Julho 25, 2011

Da uma olhada nessa parte do seu código, acho que você fechou antes do ultimo dado.

strINS = strINS + "'" + varDataPub + "')"

strINS = strINS + "'" + varOpcao1 + "',"

Creio que o correto seria,

strINS = strINS + "'" + varDataPub + "',"

strINS = strINS + "'" + varOpcao1 + "')"

Abraço

AlbertoRT · Julho 25, 2011

Muito obrigado pela atenção.

Pode acreditar estou há dias tantado.

Corrigi conforme as suas orientações e continua dando o mesmo erro, ou seja:

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe na instrução INSERT INTO.

/serieweb/nasp/laboratorios/ResLab10_1.asp, line 42

A linha 42 é:

Set rsLivros = conexaoDataBase.Execute(strINS)

Como erro de sintaxe na instrução INSERT INTO?

So pode ser no ultimo campo que coloquei pois como já informei se eu retirar do INSERT INTO o campo opcao1 roda normalmente.

Não sei se ajuda mas no banco de dados o tipo do campo opcao1 é número. Tem algum problema? Acho que não daria essa mensagem de erro.

Mas um vez muito obrigado

kuroi · Julho 25, 2011

só pra testar, troque a linha Set rsLivros = conexaoDataBase.Execute(strINS) por:

Response.Write(strINS)

ele vai mostrar qual o codigo exato da querye q esta tentando executar. ai se não conseguir identificar o problema, poste a query ai pra gente ver.

AlbertoRT · Julho 25, 2011

Abora abri uma página informado:

INSERT into Livros (codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)VALUES ('','','','',,'',,'','',','') O Livro: "" foi cadastrado com sucesso

Coloquei uma (') e ficou:

<%
Option Explicit 
%>
<!--#Include file="../dbConexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsLivros
Dim varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub, [color="#FF0000"]varOpcao1[/color]
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, ",", ".")
[color="#FF0000"]VarCodigo = TRIM(Request.Form("varOpcao1"))[/color]

strINS = "INSERT into Livros "
strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)"
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 + ","
[color="#FF0000"]strINS = strINS + "'" + varOpcao1 + "')"[/color]

Call abreConexao

[color="#FF0000"]Response.Write(strINS)[/color]

'Set rsLivros = conexaoDataBase.Execute(strINS)
%>

O que essa informação está querendo me informar VALUES ('','','','',,'',,'','',','')? Se deletar tudo sobre o campo "Opcao1" os registos todos são gravado no bando. Depois que tive que colocar:

<input type="radio" value="1" name="opcao1">

Não gravou mais nada.

Tenho muita necessidade desse "radio" senão retirava.

Muito obrigado

Editado Julho 25, 2011 por AlbertoRT

kuroi · Julho 25, 2011

na linha do datapub, faltou uma aspa, tem q ser assim:

strINS = strINS + "'" + varDataPub + "',"

e depois, parece q o formulario não esta sendo postado, ou q você não digitou nd nele, pois todos os dados do Request.Form() estavam em branco.

você postou mesmo o formulario??

veja tb q os campos preço e paginas, são numericos, então você não pode passar valor em branco. se não tiver valor, troque por 0.

a linha do Response.Write() q coloquei não vai gravar nd mesmo, ela só serve pra gente ver como esta a query.

pra tentar gravar, depois das correcoes, volte o codigo do .Execute() q eu disse para tirar e veja se não grava direito.

se não gravar, então poste a mensagem de erro, e o codigo q o Response.Write() vai escrever pra gente ver como ficou a query.

Editado Julho 25, 2011 por kuroi

AlbertoRT · Julho 26, 2011

Procedi conforme orientação mas ainda não consegui.

Depois de digitar os dados abriu a seguinte página de erro:

Tipo de erro:
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe na instrução INSERT INTO.
/serieweb/nasp/laboratorios/ResLab10_1.asp, line 43

A linha 43 é: Set rsLivros = conexaoDataBase.Execute(strINS) Estou com medo de tomar uma bronca porque estou postando muita coisa. A pagina Lab10_1.asp é a onde eu entro com os dados.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Inserido livros na tabela livros </title>

<script language="javascript">

function validaForm() {
if (document.formLivro.txtCodigo.value.length <1)
{alert ("O campo ISBN não pode ficar em brando. ");
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 Título 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.opcao1.value.length <1)
{alert ("O campo indicação não pode ficar em branco.");
formLivro.opcao1.focus();
return false;
}

if (document.formLivro.txtCapa.value.length <1)
{alert ("O campo Capa não pode ficar em branco.");
formLivro.txtCapa.focus();
return false;
}
return true;
}
</script>

</head>

<body>
<form name="formLivro" method="post" action="ResLab10_1.asp" onsubmit="return validaForm(this);">
Inclusão de Livros<br /><br />
Informe os dados do livro a ser inserido. Os campos com (*) são de digitação obrigatória.<br />

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="20%">ISBN: </td>
<td width="80%"> <input type="text" name="txtCodigo" /> *</td>
</tr>

<tr>
<td width="20%">Código da Categoria:</td>
<td width="80%"> <input type="text" name="txtCodCategoria" /> *</td>
</tr>

<tr>
<td width="20%">Título:</td>
<td width="80%"> <input type="text" name="txtTitulo" /> *</td>
</tr>

<tr>
<td width="20%">Autor:</td>
<td width="80%"> <input type="text" name="txtAutor" /> *</td>
</tr>

<tr>
<td width="20%">Número de páginas:</td>
<td width="80%"> <input type="text" name="txtNPaginas" /></td>
</tr>

<tr>
<td width="20%">Formato:</td>
<td width="80%"> <input type="text" name="txtFormato" /></td>
</tr>

<tr>
<td width="20%">Preço:</td>
<td width="80%"> <input type="text" name="txtPreco" /> *</td>
</tr>

<tr>
<td width="20%">Resenha:</td>
<td width="80%"> <textarea name="txtResenha" rows="5" cols="40"></textarea></td>
</tr>

<tr>
<td width="20%">Lançamento (S/N): </td>
<td width="80%"> <input type="text" name="txtLancamento" /></td>
</tr>

<tr>
<td width="20%">Data Publicação: </td>
<td width="80%"> <input type="text" name="txtDataPub" /></td>
</tr>

<tr>
<td width="20%">Confirma Publicação:</td>
<td width="10%"><input type="radio" value="1" name="Opcao1" /></td>
</tr>

<td width="20%"></td>
<td width="80%">
<input type="submit" value="Inserir" name="btInsere" />
<input type="reset" value="Limpa campos" name="btLimpa" />
</td>
</tr>
</table>
</form>

</body>
</html>

Clicando no botão "Inserir" abre a "ResLab10_1.asp" que tem esse código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit 
%>
<!--#Include file="../dbConexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsLivros
Dim varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub, varOpcao1
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, ",", ".")
VarCodigo = TRIM(Request.Form("Opcao1"))

strINS = "INSERT into Livros "
strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)"
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 + "',"
strINS = strINS + "'" + varOpcao1 + "')"

Call abreConexao
'Response.Write(strINS)
Set rsLivros = conexaoDataBase.Execute(strINS)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<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
%>

Já inserir diversos registros de teste no Banco de Dados. Depois tive a necessidade de incluir mais um campo na tabela Livros e inclui o campço "opcao1". Fui na página Lab10_1.asp e digitei o campos "radio", indiquei value-1 e nome="Opcao1" que é o nome que colquei na tabela:

<tr>
<td width="20%">Confirma Publicação:</td>
<td width="10%"><input type="radio" value="1" name="Opcao1" /></td>
</tr>

No #include inclui varOpcao1

<%
Dim conexaoDataBase
Dim strIns, rsLivros
Dim varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub, varOpcao1

Depois lista de variáveis inclui Opcao1 que é nome do campo novo:

VarCodigo = TRIM(Request.Form("Opcao1"))

E por ultimo inclui na linha strINS = strINS & "(.....opcao1)" e no final de tudo strINS = strINS + "'" + varOpcao1 + "')"

strINS = "INSERT into Livros "
strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)"
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 + "',"
strINS = strINS + "'" + varOpcao1 + "')"

Call abreConexao
'Response.Write(strINS)
Set rsLivros = conexaoDataBase.Execute(strINS)
%>

Desculpe ser repetitivo mas retirando tudo do campo opcao1 tudo é gravado sem problema. Diversos testes já foram efetuados e problema está em alguma coisa ligado a Opcao1.

Obrigado e desculpe mas meu objetivo e explicar corretamente.

kuroi · Julho 26, 2011

Depois lista de variáveis inclui Opcao1 que é nome do campo novo:
VarCodigo = TRIM(Request.Form("Opcao1"))

aqui na devia ser VarOpcao1 em vez de VarCodigo??

se o erro continua, então volte o codigo do Response.Write() e poste aqui o texto q ele mostrar.

AlbertoRT · Julho 26, 2011

Continua com o erro.

O testo que ele mostra é:

INSERT into Livros (codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)VALUES ('','','','',,'',,'','','',') O Livro: "" foi cadastrado com sucesso

kuroi · Julho 26, 2011

veja q ta faltando fechar uma aspa no ultimo campo.

você alterou alguma coisa no codigo?? isso aqui estaria certo:

strINS = strINS + "'" + varOpcao1 + "')"

aparentemente, você alterou essa linha o q esta causando aquela aspa faltante. essa linha como esta acima deve estar certa.

AlbertoRT · Julho 26, 2011

OK, não sei o que pensei mas acho que estava testando e retirei ainda bem que você observou.

Como esse é um campo numérico achei que não deveria colocar essa aspa simples mas não é o caso. Correto? E mesmo a sim teria que retira a primera e a ultima.

Mas já coloquei como estava, ou seja, com a aspa simples mas deu ainda aquele erro:

INSERT into Livros (codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)VALUES ('','','','',,'',,'','','','') O Livro: "" foi cadastrado com sucesso

Meu Deus o que deve ser isso? Colocar um Botão causa tudo isso?

<input type="radio" value="1" name="opcao1">

Observe por favor, que deletando tudo relativo a opcao1 funciona corretamente, ou seja, poderia ser gravado tudo no banco de dados. Não estou sabendo é colocar um Botão radio mesmo:

INSERT into Livros (codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub)VALUES ('9321','ADM','Criando Site','Desconhecido',350,'12 x 13',389.00,'Teste sem Botão radio','N','27/07/2011', O Livro: "Criando Site" foi cadastrado com sucesso

Editado Julho 26, 2011 por AlbertoRT

kuroi · Julho 26, 2011

agora, a construcao da query esta correta. o problema é q não ta vindo nenhum valor. você digitou alguma coisa no formulario antes de postar?? porque ele não esta trazendo nd.

ai acontece aquilo q eu falei. nos campos numericos você não pode guardar valor em branco. se tiver em branco tem q ser 0. você tem dois campos numericos, e como eles estao vindo sem valor, esta ficando duas virgulas vazias, assim ele vai dar erro de sintaxe mesmo.

quanto ao campo opcao1, se for numerico, você deveria tirar as aspas mesmo, mas no caso você tinha tirado uma só, tem q ser as duas. e ai é o mesmo caso dos outros campos numericos, você não pode gravar valores em branco.

AlbertoRT · Julho 26, 2011

Não estou esquecendo de digitar nenhum campo.

Voltei com o campo opcao1 e continua o erro:

Tipo de erro:
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe na instrução INSERT INTO.
/serieweb/nasp/laboratorios/ResLab10_1.asp, line 44

Com Response.Write(strINS)

INSERT into Livros (codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub. opcao1)VALUES ('','','','',,'',,'','','',) O Livro: "" foi cadastrado com sucesso

Tem algo errado na inclusão do campo opcao1. Mas o que. Ele é numérico mas você sabe que ele á apenas marcado e eu marco sempre para testar e apresenta esse erro.

Gente sou diabético e estou dormindo em por cima do teclado. Não estou enxergando mais nada. Não é por falta de interesse que vou sair do ar.

Abraços e até amanhã.

Editado Julho 26, 2011 por AlbertoRT

Tardem · Julho 26, 2011

Brother, da uma olhada nisso.

Você chama a opcao1

VarCodigo = TRIM(Request.Form("Opcao1"))

Porém você coloca no INSERT essa variavel

strINS = strINS + "'" + varOpcao1 + "')"

O correto seria, creio eu.

strINS = strINS + "'" + VarCodigo + "')"

Espero que ajude, abraço

Editado Julho 26, 2011 por Tardem

AlbertoRT · Julho 26, 2011

Tudo resolvido.

Fui seguindo com os testes com o 'Response.Write(strINS).

Retirei as aspa simples daqui devido o campo ser numérico:

strINS = strINS + "" + varOpcao1 + ")"

Observei somente hoje que havia um ponto e não uma virgula depois do campo dataPub., ou seja, nessa linha:

strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub, opcao1)"

Pronto funcionou.

Agora tenho que saber como colar uma rotina para que a pessoa solicite uma senha para abrir esse banco de dados.

Entrar

Meu dados não são gravados

Pergunta

Link para o comentário

Compartilhar em outros sites

14 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns