Jump to content
Fórum Script Brasil
  • 0

Meu dados não são gravados

AlbertoRT

Asked by AlbertoRT,

 Share

Question

AlbertoRT

AlbertoRT

Posted
Posted (edited)

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.

Edited by AlbertoRT
Link to comment
Share on other sites

14 answers to this question

Recommended Posts

  • 0
Tardem

Tardem

Posted
Posted

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

Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted

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

Link to comment
Share on other sites
  • 0
kuroi

kuroi

Posted
Posted

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.

Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted (edited)

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

Edited by AlbertoRT
Link to comment
Share on other sites
  • 0
kuroi

kuroi

Posted
Posted (edited)

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.

Edited by kuroi
Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
  • 0
kuroi

kuroi

Posted
Posted
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.

Link to comment
Share on other sites
  • 0
kuroi

kuroi

Posted
Posted

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.

Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted (edited)

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

Edited by AlbertoRT
Link to comment
Share on other sites
  • 0
kuroi

kuroi

Posted
Posted

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.

Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted (edited)

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ã.

Edited by AlbertoRT
Link to comment
Share on other sites
  • 0
Tardem

Tardem

Posted
Posted (edited)

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

Edited by Tardem
Link to comment
Share on other sites
  • 0
AlbertoRT

AlbertoRT

Posted
  • Author
Posted

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...