Ir para conteúdo
Fórum Script Brasil
  • 0

Erro de sintaxe na instrução UPDATE

ANDRE_GUSTAVO

Perguntado por ANDRE_GUSTAVO,

 Share

Pergunta

ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
Postado

Fala ai galera, estou com problema na instrução UPDATE, alguém pode me ajudar?

Obrigado

Erro de sintaxe na instrução UPDATE.

/nasp/laboratorios/Lab11_2C.asp, line 35

codigo:

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha ,

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("IdLivro"))

varCodLivro = TRIM ( Request.Form ("txtCodigo"))

varCategoria = TRIM ( Request.Form ("txtCategoria"))

varTitulo = TRIM ( Request.Form ("txtTitulo"))

varAutor = TRIM ( Request.Form ("txtAutor"))

varNPaginas = TRIM ( Request.Form ("txtNPaginas"))

varFormato = TRIM ( Request.Form ("txtFormato"))

varPreco = TRIM ( Request.Form ("txtPreco"))

varResenha = TRIM ( Request.Form ("txtResenha"))

varLancamento = TRIM ( Request.Form ("txtLancamento"))

varDataPub = TRIM ( Request.Form ("txtDataPub"))

varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = " UPDATE Livros SET "

strLivros = strLivros + "CodLivro = '" + varCodLivro + "', "

strLivros = strLivros + "categoria = '" + varCategoria + "', "

strLivros = strLivros + "Titulo = '" + varTitulo + "', "

strLivros = strLivros + "Autor = '" + varAutor + "', "

strLivros = strLivros + "NPaginas = " + varNPaginas + ", "

strLivros = strLivros + "Formato = '" + varFormato + "', "

strLivros = strLivros + "preço = " + varPreco + ", "

strLivros = strLivros + "resenha = '" + varResenha + "', "

strLivros = strLivros + "Lancamento = '" + varLancamento + "', "

strLivros = strLivros + "dataPub = '" + varDataPub + "', "

strLivros = strLivros + "WHERE CodLivro = '" + varIdLivro + "', "

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

%>

<html>

<head>

<title> Alterando registros da tabela livros </title>

</head>

<body>

Alteração executada com sucesso!

</body>

</html>

Link para o comentário
Compartilhar em outros sites

14 respostass a esta questão

Posts Recomendados

  • 0
Marianne

Marianne

Postado
Postado

Andre, tente assim :

strLivros = " UPDATE Livros SET "

strLivros = strLivros & "CodLivro = " & varCodLivro

strLivros = strLivros & ", categoria = " & varCategoria

strLivros = strLivros & ", Titulo = " & varTitulo

strLivros = strLivros & ", Autor = " & varAutor

de continuidade na sua programacao desta forma

Fala ai galera, estou com problema na instrução UPDATE, alguém pode me ajudar?

Obrigado

Erro de sintaxe na instrução UPDATE.

/nasp/laboratorios/Lab11_2C.asp, line 35

codigo:

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha ,

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("IdLivro"))

varCodLivro = TRIM ( Request.Form ("txtCodigo"))

varCategoria = TRIM ( Request.Form ("txtCategoria"))

varTitulo = TRIM ( Request.Form ("txtTitulo"))

varAutor = TRIM ( Request.Form ("txtAutor"))

varNPaginas = TRIM ( Request.Form ("txtNPaginas"))

varFormato = TRIM ( Request.Form ("txtFormato"))

varPreco = TRIM ( Request.Form ("txtPreco"))

varResenha = TRIM ( Request.Form ("txtResenha"))

varLancamento = TRIM ( Request.Form ("txtLancamento"))

varDataPub = TRIM ( Request.Form ("txtDataPub"))

varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = " UPDATE Livros SET "

strLivros = strLivros + "CodLivro = '" + varCodLivro + "', "

strLivros = strLivros + "categoria = '" + varCategoria + "', "

strLivros = strLivros + "Titulo = '" + varTitulo + "', "

strLivros = strLivros + "Autor = '" + varAutor + "', "

strLivros = strLivros + "NPaginas = " + varNPaginas + ", "

strLivros = strLivros + "Formato = '" + varFormato + "', "

strLivros = strLivros + "preço = " + varPreco + ", "

strLivros = strLivros + "resenha = '" + varResenha + "', "

strLivros = strLivros + "Lancamento = '" + varLancamento + "', "

strLivros = strLivros + "dataPub = '" + varDataPub + "', "

strLivros = strLivros + "WHERE CodLivro = '" + varIdLivro + "', "

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

%>

<html>

<head>

<title> Alterando registros da tabela livros </title>

</head>

<body>

Alteração executada com sucesso!

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado

Marianne eu fiz como você me falou, mas ainda continua dando o mesmo erro

de sintaxe na instrução UPDATE.

na linha 35

veja como eu fiz:

strLivros = " UPDATE Livros SET "

strLivros = strLivros & "CodLivro = " & varCodLivro

strLivros = strLivros & ", categoria = " & varCategoria

strLivros = strLivros & ", Titulo = " & varTitulo

strLivros = strLivros & ", Autor = " & varAutor

strLivros = strLivros & ", NPaginas = " & varNPaginas

strLivros = strLivros & ", Formato = " & varFormato

strLivros = strLivros & ", preço = " & varPreco

strLivros = strLivros & ", resenha = " & varResenha

strLivros = strLivros & ", Lancamento = " & varLancamento

strLivros = strLivros & ", dataPub = " & varDataPub

strLivros = strLivros & ", WHERE CodLivro = " & varIdLivro

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

Andre, tente assim :

strLivros = " UPDATE Livros SET "

strLivros = strLivros & "CodLivro = " & varCodLivro

strLivros = strLivros & ", categoria = " & varCategoria

strLivros = strLivros & ", Titulo = " & varTitulo

strLivros = strLivros & ", Autor = " & varAutor

de continuidade na sua programacao desta forma

Fala ai galera, estou com problema na instrução UPDATE, alguém pode me ajudar?

Obrigado

Erro de sintaxe na instrução UPDATE.

/nasp/laboratorios/Lab11_2C.asp, line 35

codigo:

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha ,

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("IdLivro"))

varCodLivro = TRIM ( Request.Form ("txtCodigo"))

varCategoria = TRIM ( Request.Form ("txtCategoria"))

varTitulo = TRIM ( Request.Form ("txtTitulo"))

varAutor = TRIM ( Request.Form ("txtAutor"))

varNPaginas = TRIM ( Request.Form ("txtNPaginas"))

varFormato = TRIM ( Request.Form ("txtFormato"))

varPreco = TRIM ( Request.Form ("txtPreco"))

varResenha = TRIM ( Request.Form ("txtResenha"))

varLancamento = TRIM ( Request.Form ("txtLancamento"))

varDataPub = TRIM ( Request.Form ("txtDataPub"))

varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = " UPDATE Livros SET "

strLivros = strLivros + "CodLivro = '" + varCodLivro + "', "

strLivros = strLivros + "categoria = '" + varCategoria + "', "

strLivros = strLivros + "Titulo = '" + varTitulo + "', "

strLivros = strLivros + "Autor = '" + varAutor + "', "

strLivros = strLivros + "NPaginas = " + varNPaginas + ", "

strLivros = strLivros + "Formato = '" + varFormato + "', "

strLivros = strLivros + "preço = " + varPreco + ", "

strLivros = strLivros + "resenha = '" + varResenha + "', "

strLivros = strLivros + "Lancamento = '" + varLancamento + "', "

strLivros = strLivros + "dataPub = '" + varDataPub + "', "

strLivros = strLivros + "WHERE CodLivro = '" + varIdLivro + "', "

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

%>

<html>

<head>

<title> Alterando registros da tabela livros </title>

</head>

<body>

Alteração executada com sucesso!

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado (editado)

Cara você usa no seu campo preço ou Preço, pois no seu update você usa preço ... Caso não for isso testa assim:

strLivros = "UPDATE livros SET CodLivro = '"&varCodLivro&"', categoria='"&varcategoria&"', Titulo='"&VarTitulo&"', Autor='"&VarAutor&"', NPaginas='"&VarNPaginas&"', Formato='"&VarFormato&"', preço='"&Varpreco&"', resenha='"&VarResenha&"', Lancamento='"&VarLancamento&"', dataPub='"&VardataPub&"' WHERE CodLivro ="&VarIdLivro

set rsLivros = conexaoDataBase.execute(strLivros)

Editado por jow
Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Cara você usa no seu campo preço ou Preço, pois no seu update você usa preço ... Caso não for isso testa assim:

strLivros = "UPDATE livros SET CodLivro = '"&varCodLivro&"', categoria='"&varcategoria&"', Titulo='"&VarTitulo&"', Autor='"&VarAutor&"', NPaginas='"&VarNPaginas&"', Formato='"&VarFormato&"', preço='"&Varpreco&"', resenha='"&VarResenha&"', Lancamento='"&VarLancamento&"', dataPub='"&VardataPub&"' WHERE CodLivro ="&VarIdLivro

set rsLivros = conexaoDataBase.execute(strLivros)

Fala ai Jow alterei o programa como me indicou, mas continua dando erro.

Tipo de dados imcompatível na expressão de critério.

/nasp/laboratorios/Lab11_2C.asp, line 25

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varcategoria &"', Titulo='"& varTitulo &"',

Autor='"& VarAutor &"', NPaginas="& varNPaginas &", Formato='"& varFormato &"', preço="& varPreco &", resenha='"& varResenha &"', Lancamento='"& varLancamento &"', dataPub='"& vardataPub &"' WHERE CodLivro = "& varIdLivro

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

Não sei o por que, quando eu posto a letra "C" >>> preço="& varPreco &" esta sendo substituida pelo "Ç" mas na verdade é sem o "Ç"

Valeu

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

Tendi brother mas você está usando preço né, pois tem q ser como está no banco de dados e os campos do banco como estão ??? e só um detalhe esse campo CodLivro é autoNumérico ou é digitado pelo usuário ???

Verifica isso CodLivro = "& varIdLivro, você está mandando atualizar, quandoCodLivro for igual varIdLivro ...

Posta o seu formulário Html q antecede o seu Update ....

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Tendi brother mas você está usando preço né, pois tem q ser como está no banco de dados e os campos do banco como estão ??? e só um detalhe esse campo CodLivro é autoNumérico ou é digitado pelo usuário ???

Verifica isso CodLivro = "& varIdLivro, você está mandando atualizar, quandoCodLivro for igual varIdLivro ...

Posta o seu formulário Html q antecede o seu Update ....

CodLivro = "& varIdLivro não é autonumerico e sim digitado pelo usuario

segue abaixo o form

<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return ValidaForm(this);">

ALTERANDO REGISTROS de livros<BR><BR>

Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento obrigatorio.<BR>

<table border="0" cellpadding="0" cellspacing="0" width="100%" >

<tr>

<td width="20%"> ISBN: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = rsLivros("CodLivro") %>">*</TD>

</tr>

<tr>

<td width="20%"> Codigo da Categoria </td>

<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = rsLivros("Categoria") %>">*</TD>

</tr>

<tr>

<td width="20%"> Titulo: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = rsLivros("Titulo") %>">*</TD>

</tr>

<tr>

<td width="20%"> Autor: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = rsLivros("Autor") %>">*</TD>

</tr>

<tr>

<td width="20%"> Número de Páginas: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = rsLivros("Formato") %>">*</TD>

</tr>

<tr>

<td width="20%"> Formato: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = rsLivros("NPaginas") %>">*</TD>

</tr>

<tr>

<td width="20%"> Preço: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = FormatCurrency(rsLivros("preço") , 2) %>">*</TD>

</tr>

<tr>

<td width="20%"> Resenha: </TD>

<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = rsLivros("Resenha") %></textarea></TD>

</tr>

<tr>

<td width="20%"> Lançamento S/N: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = rsLivros("Lancamento") %>">*</TD>

</tr>

<tr>

<td width="20%"> Data de Publicação: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = rsLivros("DataPub") %>">*</TD>

</tr>

<tr>

<td width="20%"></TD>

<td width="80%">

<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" >

<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">

<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">

</TD>

</tr>

</table>

</FORM>

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado (editado)

você está passando <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" > e recuperando varIdLivro = TRIM ( Request.Form ("IdLivro")) OK CORRETO ISSO, mas lembre q o usuário digita o codigo do livro certo ?

você está fazendo o Update quando isso ocorrer WHERE CodLivro = "& varIdLivro ... Deveria ser feito assim:

no seu form: <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("IdLivro") %>" >

e comparar no banco WHERE IdLivro = "& varIdLivro

Obs: pois esse campo IdLivro deve ser o seu campo autonumério né ???

Editado por jow
Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
você está passando <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" > e recuperando varIdLivro = TRIM ( Request.Form ("IdLivro")) OK CORRETO ISSO, mas lembre q o usuário digita o codigo do livro certo ?

você está fazendo o Update quando isso ocorrer WHERE CodLivro = "& varIdLivro ... Deveria ser feito assim:

no seu form: <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("IdLivro") %>" >

e comparar no banco WHERE IdLivro = "& varIdLivro

Obs: pois esse campo IdLivro deve ser o seu campo autonumério né ???

Fala ai jow...

esse formulario recebe os valores de uma outra pagina anterior com os registros cadastrado, na qual o usuario escolhe qual

o registro a ser alterado

<% = rsLivros("CodLivro") %> recebe o valor do CodLivro escolhido pelo usuario, esse campo não e autonumerico,

no caso CodLivro é o ISBN dos livros cadastrados. Por tanto CodLivro no banco de dados recebe os valores enviados pelo usuario.

Olha so o que ta dando agora...

Erro de sintaxe (operador faltando) na expressão de consulta '17x24 cm'.

/nasp/laboratorios/Lab11_2C.asp, line 25

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varCategoria &"', Titulo='"& varTitulo &"',

Autor='"& VarAutor &"', Formato= '"& varFormato &"', NPaginas="& varNPaginas &", preço="& varPreco &", Resenha='"& varResenha &"', Lancamento='"& varLancamento &"', DataPub='"& varDataPub &"' WHERE CodLivro = "& varIdLivro

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

você está passando <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" > e recuperando varIdLivro = TRIM ( Request.Form ("IdLivro")) OK CORRETO ISSO, mas lembre q o usuário digita o codigo do livro certo ?

você está fazendo o Update quando isso ocorrer WHERE CodLivro = "& varIdLivro ... Deveria ser feito assim:

no seu form: <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("IdLivro") %>" >

e comparar no banco WHERE IdLivro = "& varIdLivro

Obs: pois esse campo IdLivro deve ser o seu campo autonumério né ???

Fala ai jow...

esse formulario recebe os valores de uma outra pagina anterior com os registros cadastrado, na qual o usuario escolhe qual

o registro a ser alterado

<% = rsLivros("CodLivro") %> recebe o valor do CodLivro escolhido pelo usuario, esse campo não e autonumerico,

no caso CodLivro é o ISBN dos livros cadastrados. Por tanto CodLivro no banco de dados recebe os valores enviados pelo usuario.

Olha so o que ta dando agora...

Tipo de dados imcompatível na expressão de critério.

/nasp/laboratorios/Lab11_2C.asp, line 25

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varCategoria &"', Titulo='"& varTitulo &"',

Autor='"& VarAutor &"', Formato= '"& varFormato &"', NPaginas="& varNPaginas &", preço="& varPreco &", Resenha='"& varResenha &"', Lancamento='"& varLancamento &"', DataPub='"& varDataPub &"' WHERE CodLivro = "& varIdLivro

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

você está kerendo q o usuário escolha o Código do livro para alterar né ??? então cara você deve comparar isso para abrir a página correspondente ao livro possibilitando a alteração, mas no seu UPDATE deve ser feito conforme o campo único que gere uma numeração do seu banco de dados ... Do jeito q está não tem como alterar apenas com o q ele escolheu. Caso você não congiga posta ai o seu form completo e btm a página onde o usuário escolhe pra alterar ...

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
você está kerendo q o usuário escolha o Código do livro para alterar né ??? então cara você deve comparar isso para abrir a página correspondente ao livro possibilitando a alteração, mas no seu UPDATE deve ser feito conforme o campo único que gere uma numeração do seu banco de dados ... Do jeito q está não tem como alterar apenas com o q ele escolheu. Caso você não congiga posta ai o seu form completo e btm a página onde o usuário escolhe pra alterar ...

jow, não to conseguindo fazer funcionar cara... tentei fazer como você me falou, comparando com o campo de autonumeraçao, mas não quer dar certo.

olha so o erro que da:

Tipo de dados imcompatível na expressão de critério.

/nasp/laboratorios/Lab11_2C.asp, line 25

Segue abaixo as páginas:

____________________________________________________________________________________

Página que exibe os registros para a escolha da alteração: Lab11_2A.asp

____________________________________________________________________________________

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros

call abreConexao

strLivros = "SELECT * FROM livros "

strLivros = strLivros & "ORDER BY Titulo "

Set rsLivros = conexaoDataBase.Execute(strLivros)

%>

<html>

<head>

<title>Alterando registros da tabela livros</title>

</head>

<body>

Alteração de livros da editora<BR><BR>

<table border='1' cellpadding='2' cellspacing='0' >

<% DO WHILE NOT rsLivros.EOF %>

<tr>

<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>

<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("CodLivro") %>"><% = rsLivros ("Titulo") %></a></TD>

</TR>

<%

rsLivros.MoveNext

Loop

%>

</table>

</body>

</html>

<%

rsLivros.Close

call fechaConexao

Set rsLivros = Nothing

%>

____________________________________________________________________________________

____________________________________________________________________________________

Formulario que recebe os valores enviados da pagina anterior: Lab11_2B.asp

____________________________________________________________________________________

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao

strLivros = "SELECT * FROM livros "

strLivros = strLivros & "WHERE CodLivro = '"+ request.queryString ("CodLivro1") +"' "

Set rsLivros = conexaoDataBase.Execute(strLivros)

%>

<html>

<head>

<title>Inserindo Livros na tabela de LIvros</title>

&lt;script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");

formLivro.txtCodCategoria.focus();

return false;

}

if (document.formLivro.txtTitulo.value.length <1) {

alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");

formLivro.txtCodigo.focus();

return false;

}

return true;

}

</SCRIPT>

</head>

<body>

<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return

ValidaForm(this);">

ALTERANDO REGISTROS de livros<BR><BR>

Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento

obrigatorio.<BR>

<table border="0" cellpadding="0" cellspacing="0" width="100%" >

<tr>

<td width="20%"> ISBN: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% =

rsLivros("CodLivro") %>">*</TD>

</tr>

<tr>

<td width="20%"> Codigo da Categoria </td>

<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% =

rsLivros("Categoria") %>">*</TD>

</tr>

<tr>

<td width="20%"> Titulo: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% =

rsLivros("Titulo") %>">*</TD>

</tr>

<tr>

<td width="20%"> Autor: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% =

rsLivros("Autor") %>">*</TD>

</tr>

<tr>

<td width="20%"> Número de Páginas: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% =

rsLivros("NPaginas") %>">*</TD>

</tr>

<tr>

<td width="20%"> Formato: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% =

rsLivros("Formato") %>">*</TD>

</tr>

<tr>

<td width="20%"> Preço: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% =

rsLivros("preço") %>">*</TD>

</tr>

<tr>

<td width="20%"> Resenha: </TD>

<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% =

rsLivros("Resenha") %></textarea></TD>

</tr>

<tr>

<td width="20%"> Lançamento S/N: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% =

rsLivros("Lancamento") %>">*</TD>

</tr>

<tr>

<td width="20%"> Data de Publicação: </TD>

<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% =

rsLivros("DataPub") %>">*</TD>

</tr>

<tr>

<td width="20%"></TD>

<td width="80%">

<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >

<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">

<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">

</TD>

</tr>

</table>

</FORM>

</body>

</html>

____________________________________________________________________________________

____________________________________________________________________________________

Página que faz o UPDATE : Lab11_2C.asp

____________________________________________________________________________________

<% @LANGUAGE="VBSCRIPT" %>

<% OPTION EXPLICIT %>

<!-- #Include file="../conexao.inc" -->

<%

DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha ,

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("idLivro"))

varCodLivro = TRIM ( Request.Form ("txtCodigo"))

varCategoria = TRIM ( Request.Form ("txtCategoria"))

varTitulo = TRIM ( Request.Form ("txtTitulo"))

varAutor = TRIM ( Request.Form ("txtAutor"))

varFormato = TRIM ( Request.Form ("txtFormato"))

varNPaginas = TRIM ( Request.Form ("txtNPaginas"))

varPreco = TRIM ( Request.Form ("txtPreco"))

varResenha = TRIM ( Request.Form ("txtResenha"))

varLancamento = TRIM ( Request.Form ("txtLancamento"))

varDataPub = TRIM ( Request.Form ("txtDataPub"))

varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"',

Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"&

varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE CodLivro = "& varIdLivro

Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao

Set rsLivros = Nothing

%>

<html>

<head>

<title> Alterando registros da tabela livros </title>

</head>

<body>

Alteração executada com sucesso!

</body>

</html>

________________________________________________________________________________________________________

Cara essas são as 3 paginas que estou utilizando.

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

Brother eu fiz umas mudanças no seu script, e eu usei o campo IdLivros pois axo q é a chave primária da sua tabela e o seu campo autonumérico, caso não for altere ... OBS importante: a sua SQL tem q estar em uma única linha ... ... Abaixo o código alterado, dá uma verificada ai ...

Lab11_2A.asp

<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros
call abreConexao

strLivros = "SELECT * FROM livros "
strLivros = strLivros & "ORDER BY Titulo "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Alterando registros da tabela livros</title>
</head>
<body>
Alteração de livros da editora<BR><BR>
<table border='1' cellpadding='2' cellspacing='0' >
<% DO WHILE NOT rsLivros.EOF %>
<tr>
<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>
<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("CodLivro") %>"><% = rsLivros ("Titulo") %></a></TD>
</TR>
<% 
rsLivros.MoveNext
Loop
%>
</table>
</body>
</html>
<%
rsLivros.Close
call fechaConexao
Set rsLivros = Nothing
%>
Lab11_2B.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao
strLivros = "SELECT * FROM livros "
strLivros = strLivros & "WHERE CodLivro = '"+ request.queryString ("CodLivro1") +"' "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Inserindo Livros na tabela de LIvros</title>
&lt;script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");
formLivro.txtCodCategoria.focus();
return false;
}

if (document.formLivro.txtTitulo.value.length <1) {
alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");
formLivro.txtCodigo.focus();
return false;
}

return true;
}
</SCRIPT>
</head>
<body>
<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return 

ValidaForm(this);">
ALTERANDO REGISTROS de livros<BR><BR>
Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento 

obrigatorio.<BR>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td width="20%"> ISBN: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = 

rsLivros("CodLivro") %>">*</TD>
</tr>
<tr>
<td width="20%"> Codigo da Categoria </td>
<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = 

rsLivros("Categoria") %>">*</TD>


</tr>
<tr>
<td width="20%"> Titulo: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = 

rsLivros("Titulo") %>">*</TD>
</tr>
<tr>
<td width="20%"> Autor: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = 

rsLivros("Autor") %>">*</TD>
</tr>
<tr>
<td width="20%"> Número de Páginas: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = 

rsLivros("NPaginas") %>">*</TD>
</tr>
<tr>
<td width="20%"> Formato: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = 

rsLivros("Formato") %>">*</TD>
</tr>
<tr>
<td width="20%"> Preço: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = 

rsLivros("preço") %>">*</TD>
</tr>
<tr>
<td width="20%"> Resenha: </TD>
<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = 

rsLivros("Resenha") %></textarea></TD>
</tr>
<tr>
<td width="20%"> Lançamento S/N: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = 

rsLivros("Lancamento") %>">*</TD>
</tr>
<tr>
<td width="20%"> Data de Publicação: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = 

rsLivros("DataPub") %>">*</TD>
</tr>
<tr>
<td width="20%"></TD>
<td width="80%">
<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >
<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">
<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">
</TD>
</tr>

</table>
</FORM>
</body>
</html>
Lab11_2C.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , 

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("idLivro"))
varCodLivro = TRIM ( Request.Form ("txtCodigo"))
varCategoria = TRIM ( Request.Form ("txtCategoria"))
varTitulo = TRIM ( Request.Form ("txtTitulo"))
varAutor = TRIM ( Request.Form ("txtAutor"))
varFormato = TRIM ( Request.Form ("txtFormato"))
varNPaginas = TRIM ( Request.Form ("txtNPaginas"))
varPreco = TRIM ( Request.Form ("txtPreco"))
varResenha = TRIM ( Request.Form ("txtResenha"))
varLancamento = TRIM ( Request.Form ("txtLancamento"))
varDataPub = TRIM ( Request.Form ("txtDataPub"))
varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', 

Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& 

varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE CodLivro = "& varIdLivro


Set rsLivros = conexaoDataBase.Execute(strLivros)
Call fechaConexao
Set rsLivros = Nothing

%>
<html>
<head>
<title> Alterando registros da tabela livros </title>
</head>
<body>
Alteração executada com sucesso!

</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
Brother eu fiz umas mudanças no seu script, e eu usei o campo IdLivros pois axo q é a chave primária da sua tabela e o seu campo autonumérico, caso não for altere ... OBS importante: a sua SQL tem q estar em uma única linha ... ... Abaixo o código alterado, dá uma verificada ai ...

Lab11_2A.asp

<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros
call abreConexao

strLivros = "SELECT * FROM livros "
strLivros = strLivros & "ORDER BY Titulo "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Alterando registros da tabela livros</title>
</head>
<body>
Alteração de livros da editora<BR><BR>
<table border='1' cellpadding='2' cellspacing='0' >
<% DO WHILE NOT rsLivros.EOF %>
<tr>
<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>
<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("CodLivro") %>"><% = rsLivros ("Titulo") %></a></TD>
</TR>
<% 
rsLivros.MoveNext
Loop
%>
</table>
</body>
</html>
<%
rsLivros.Close
call fechaConexao
Set rsLivros = Nothing
%>
Lab11_2B.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao
strLivros = "SELECT * FROM livros "
strLivros = strLivros & "WHERE CodLivro = '"+ request.queryString ("CodLivro1") +"' "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Inserindo Livros na tabela de LIvros</title>
&lt;script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");
formLivro.txtCodCategoria.focus();
return false;
}

if (document.formLivro.txtTitulo.value.length <1) {
alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");
formLivro.txtCodigo.focus();
return false;
}

return true;
}
</SCRIPT>
</head>
<body>
<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return 

ValidaForm(this);">
ALTERANDO REGISTROS de livros<BR><BR>
Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento 

obrigatorio.<BR>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td width="20%"> ISBN: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = 

rsLivros("CodLivro") %>">*</TD>
</tr>
<tr>
<td width="20%"> Codigo da Categoria </td>
<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = 

rsLivros("Categoria") %>">*</TD>


</tr>
<tr>
<td width="20%"> Titulo: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = 

rsLivros("Titulo") %>">*</TD>
</tr>
<tr>
<td width="20%"> Autor: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = 

rsLivros("Autor") %>">*</TD>
</tr>
<tr>
<td width="20%"> Número de Páginas: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = 

rsLivros("NPaginas") %>">*</TD>
</tr>
<tr>
<td width="20%"> Formato: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = 

rsLivros("Formato") %>">*</TD>
</tr>
<tr>
<td width="20%"> Preço: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = 

rsLivros("preço") %>">*</TD>
</tr>
<tr>
<td width="20%"> Resenha: </TD>
<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = 

rsLivros("Resenha") %></textarea></TD>
</tr>
<tr>
<td width="20%"> Lançamento S/N: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = 

rsLivros("Lancamento") %>">*</TD>
</tr>
<tr>
<td width="20%"> Data de Publicação: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = 

rsLivros("DataPub") %>">*</TD>
</tr>
<tr>
<td width="20%"></TD>
<td width="80%">
<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >
<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">
<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">
</TD>
</tr>

</table>
</FORM>
</body>
</html>
Lab11_2C.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , 

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("idLivro"))
varCodLivro = TRIM ( Request.Form ("txtCodigo"))
varCategoria = TRIM ( Request.Form ("txtCategoria"))
varTitulo = TRIM ( Request.Form ("txtTitulo"))
varAutor = TRIM ( Request.Form ("txtAutor"))
varFormato = TRIM ( Request.Form ("txtFormato"))
varNPaginas = TRIM ( Request.Form ("txtNPaginas"))
varPreco = TRIM ( Request.Form ("txtPreco"))
varResenha = TRIM ( Request.Form ("txtResenha"))
varLancamento = TRIM ( Request.Form ("txtLancamento"))
varDataPub = TRIM ( Request.Form ("txtDataPub"))
varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', 

Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& 

varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE CodLivro = "& varIdLivro


Set rsLivros = conexaoDataBase.Execute(strLivros)
Call fechaConexao
Set rsLivros = Nothing

%>
<html>
<head>
<title> Alterando registros da tabela livros </title>
</head>
<body>
Alteração executada com sucesso!

</body>
</html>
jow, não ta dando certo! Qual a alteração que você fez no codigo? Não identifiquei... Ta dando Erro de sintaxe na instrução UPDATE.
Brother eu fiz umas mudanças no seu script, e eu usei o campo IdLivros pois axo q é a chave primária da sua tabela e o seu campo autonumérico, caso não for altere ... OBS importante: a sua SQL tem q estar em uma única linha ... ... Abaixo o código alterado, dá uma verificada ai ... Lab11_2A.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros
call abreConexao

strLivros = "SELECT * FROM livros "
strLivros = strLivros & "ORDER BY Titulo "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Alterando registros da tabela livros</title>
</head>
<body>
Alteração de livros da editora<BR><BR>
<table border='1' cellpadding='2' cellspacing='0' >
<% DO WHILE NOT rsLivros.EOF %>
<tr>
<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>
<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("CodLivro") %>"><% = rsLivros ("Titulo") %></a></TD>
</TR>
<% 
rsLivros.MoveNext
Loop
%>
</table>
</body>
</html>
<%
rsLivros.Close
call fechaConexao
Set rsLivros = Nothing
%>
Lab11_2B.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao
strLivros = "SELECT * FROM livros "
strLivros = strLivros & "WHERE CodLivro = '"+ request.queryString ("CodLivro1") +"' "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Inserindo Livros na tabela de LIvros</title>
&lt;script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");
formLivro.txtCodCategoria.focus();
return false;
}

if (document.formLivro.txtTitulo.value.length <1) {
alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");
formLivro.txtCodigo.focus();
return false;
}

return true;
}
</SCRIPT>
</head>
<body>
<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return 

ValidaForm(this);">
ALTERANDO REGISTROS de livros<BR><BR>
Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento 

obrigatorio.<BR>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td width="20%"> ISBN: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = 

rsLivros("CodLivro") %>">*</TD>
</tr>
<tr>
<td width="20%"> Codigo da Categoria </td>
<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = 

rsLivros("Categoria") %>">*</TD>


</tr>
<tr>
<td width="20%"> Titulo: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = 

rsLivros("Titulo") %>">*</TD>
</tr>
<tr>
<td width="20%"> Autor: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = 

rsLivros("Autor") %>">*</TD>
</tr>
<tr>
<td width="20%"> Número de Páginas: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = 

rsLivros("NPaginas") %>">*</TD>
</tr>
<tr>
<td width="20%"> Formato: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = 

rsLivros("Formato") %>">*</TD>
</tr>
<tr>
<td width="20%"> Preço: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = 

rsLivros("preço") %>">*</TD>
</tr>
<tr>
<td width="20%"> Resenha: </TD>
<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = 

rsLivros("Resenha") %></textarea></TD>
</tr>
<tr>
<td width="20%"> Lançamento S/N: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = 

rsLivros("Lancamento") %>">*</TD>
</tr>
<tr>
<td width="20%"> Data de Publicação: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = 

rsLivros("DataPub") %>">*</TD>
</tr>
<tr>
<td width="20%"></TD>
<td width="80%">
<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >
<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">
<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">
</TD>
</tr>

</table>
</FORM>
</body>
</html>
Lab11_2C.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , 

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = TRIM ( Request.Form ("idLivro"))
varCodLivro = TRIM ( Request.Form ("txtCodigo"))
varCategoria = TRIM ( Request.Form ("txtCategoria"))
varTitulo = TRIM ( Request.Form ("txtTitulo"))
varAutor = TRIM ( Request.Form ("txtAutor"))
varFormato = TRIM ( Request.Form ("txtFormato"))
varNPaginas = TRIM ( Request.Form ("txtNPaginas"))
varPreco = TRIM ( Request.Form ("txtPreco"))
varResenha = TRIM ( Request.Form ("txtResenha"))
varLancamento = TRIM ( Request.Form ("txtLancamento"))
varDataPub = TRIM ( Request.Form ("txtDataPub"))
varPreco = REPLACE ( varPreco , "," , ".")

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', 

Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& 

varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE CodLivro = "& varIdLivro


Set rsLivros = conexaoDataBase.Execute(strLivros)
Call fechaConexao
Set rsLivros = Nothing

%>
<html>
<head>
<title> Alterando registros da tabela livros </title>
</head>
<body>
Alteração executada com sucesso!

</body>
</html>
jow, não ta dando certo! Qual a alteração que você fez no codigo? Não identifiquei... Ta dando Erro de sintaxe na instrução UPDATE.
strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"', WHERE CodLivro = "& varIdLivro

No banco de dados o campo autonumerico se chama COD

Editado por ANDRE_GUSTAVO
Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

ixi brother q estranho eu postei com as modificações feitas mas não foi hauhahuhauh vou postar denovo ...

Lab11_2A.asp

<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros
call abreConexao

strLivros = "SELECT * FROM livros "
strLivros = strLivros & "ORDER BY Titulo "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Alterando registros da tabela livros</title>
</head>
<body>
Alteração de livros da editora<BR><BR>
<table border='1' cellpadding='2' cellspacing='0' >
<% DO WHILE NOT rsLivros.EOF %>
<tr>
<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>
<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("COD") %>"><% = rsLivros ("Titulo") %></a></TD>
</TR>
<% 
rsLivros.MoveNext
Loop
%>
</table>
</body>
</html>
<%
rsLivros.Close
call fechaConexao
Set rsLivros = Nothing
%>
Lab11_2B.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao
id1=request.queryString ("CodLivro1")

strLivros = "SELECT * FROM livros WHERE CodLivro = "&id1
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Inserindo Livros na tabela de LIvros</title>
<script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");
formLivro.txtCodCategoria.focus();
return false;
}

if (document.formLivro.txtTitulo.value.length <1) {
alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");
formLivro.txtCodigo.focus();
return false;
}

return true;
}
</SCRIPT>
</head>
<body>
<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return 

ValidaForm(this);">
ALTERANDO REGISTROS de livros<BR><BR>
Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento 

obrigatorio.<BR>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td width="20%"> ISBN: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = 

rsLivros("CodLivro") %>">*</TD>
</tr>
<tr>
<td width="20%"> Codigo da Categoria </td>
<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = 

rsLivros("Categoria") %>">*</TD>


</tr>
<tr>
<td width="20%"> Titulo: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = 

rsLivros("Titulo") %>">*</TD>
</tr>
<tr>
<td width="20%"> Autor: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = 

rsLivros("Autor") %>">*</TD>
</tr>
<tr>
<td width="20%"> Número de Páginas: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = 

rsLivros("NPaginas") %>">*</TD>
</tr>
<tr>
<td width="20%"> Formato: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = 

rsLivros("Formato") %>">*</TD>
</tr>
<tr>
<td width="20%"> Preço: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = 

rsLivros("preço") %>">*</TD>
</tr>
<tr>
<td width="20%"> Resenha: </TD>
<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = 

rsLivros("Resenha") %></textarea></TD>
</tr>
<tr>
<td width="20%"> Lançamento S/N: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = 

rsLivros("Lancamento") %>">*</TD>
</tr>
<tr>
<td width="20%"> Data de Publicação: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = 

rsLivros("DataPub") %>">*</TD>
</tr>
<tr>
<td width="20%"></TD>
<td width="80%">
<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >
<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">
<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">
</TD>
</tr>

</table>
</FORM>
</body>
</html>
Lab11_2C.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , 

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = (Request.Form ("idLivro"))
varCodLivro = (Request.Form ("txtCodigo"))
varCategoria = (Request.Form ("txtCategoria"))
varTitulo = (Request.Form ("txtTitulo"))
varAutor = (Request.Form ("txtAutor"))
varFormato = (Request.Form ("txtFormato"))
varNPaginas = (Request.Form ("txtNPaginas"))
varPreco = (Request.Form ("txtPreco"))
varResenha = (Request.Form ("txtResenha"))
varLancamento = ( Request.Form ("txtLancamento"))
varDataPub = (Request.Form ("txtDataPub"))
varPreco = (Request.Form ("varPreco"))

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE COD = "& varIdLivro
Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao
Set rsLivros = Nothing

%>
<html>
<head>
<title> Alterando registros da tabela livros </title>
</head>
<body>
Alteração executada com sucesso!

</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
ixi brother q estranho eu postei com as modificações feitas mas não foi hauhahuhauh vou postar denovo ...

Lab11_2A.asp

<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros
call abreConexao

strLivros = "SELECT * FROM livros "
strLivros = strLivros & "ORDER BY Titulo "
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Alterando registros da tabela livros</title>
</head>
<body>
Alteração de livros da editora<BR><BR>
<table border='1' cellpadding='2' cellspacing='0' >
<% DO WHILE NOT rsLivros.EOF %>
<tr>
<td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD>
<TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("COD") %>"><% = rsLivros ("Titulo") %></a></TD>
</TR>
<% 
rsLivros.MoveNext
Loop
%>
</table>
</body>
</html>
<%
rsLivros.Close
call fechaConexao
Set rsLivros = Nothing
%>
Lab11_2B.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros

Call abreConexao
id1=request.queryString ("CodLivro1")

strLivros = "SELECT * FROM livros WHERE CodLivro = "&id1
Set rsLivros = conexaoDataBase.Execute(strLivros)
%>
<html>
<head>
<title>Inserindo Livros na tabela de LIvros</title>
&lt;script LANGUAGE="JAVASCRIPT">

Functio 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 Codigo de Categoria não pode ficar em branco. ");
formLivro.txtCodCategoria.focus();
return false;
}

if (document.formLivro.txtTitulo.value.length <1) {
alert (" O campo TITULO 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 Imagen da Capa não pode ficar em branco. ");
formLivro.txtCodigo.focus();
return false;
}

return true;
}
</SCRIPT>
</head>
<body>
<form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return 

ValidaForm(this);">
ALTERANDO REGISTROS de livros<BR><BR>
Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento 

obrigatorio.<BR>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td width="20%"> ISBN: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = 

rsLivros("CodLivro") %>">*</TD>
</tr>
<tr>
<td width="20%"> Codigo da Categoria </td>
<td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = 

rsLivros("Categoria") %>">*</TD>


</tr>
<tr>
<td width="20%"> Titulo: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = 

rsLivros("Titulo") %>">*</TD>
</tr>
<tr>
<td width="20%"> Autor: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = 

rsLivros("Autor") %>">*</TD>
</tr>
<tr>
<td width="20%"> Número de Páginas: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = 

rsLivros("NPaginas") %>">*</TD>
</tr>
<tr>
<td width="20%"> Formato: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = 

rsLivros("Formato") %>">*</TD>
</tr>
<tr>
<td width="20%"> Preço: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = 

rsLivros("preço") %>">*</TD>
</tr>
<tr>
<td width="20%"> Resenha: </TD>
<td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = 

rsLivros("Resenha") %></textarea></TD>
</tr>
<tr>
<td width="20%"> Lançamento S/N: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = 

rsLivros("Lancamento") %>">*</TD>
</tr>
<tr>
<td width="20%"> Data de Publicação: </TD>
<td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = 

rsLivros("DataPub") %>">*</TD>
</tr>
<tr>
<td width="20%"></TD>
<td width="80%">
<INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" >
<INPUT TYPE="Submit" Value="Alterar" NAME="btInsere">
<INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa">
</TD>
</tr>

</table>
</FORM>
</body>
</html>
Lab11_2C.asp 
<% @LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
<!-- #Include file="../conexao.inc" -->
<%
DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , 

varFormato , varPreco , varLancamento , varDataPub , varIdLivro

varIdLivro = (Request.Form ("idLivro"))
varCodLivro = (Request.Form ("txtCodigo"))
varCategoria = (Request.Form ("txtCategoria"))
varTitulo = (Request.Form ("txtTitulo"))
varAutor = (Request.Form ("txtAutor"))
varFormato = (Request.Form ("txtFormato"))
varNPaginas = (Request.Form ("txtNPaginas"))
varPreco = (Request.Form ("txtPreco"))
varResenha = (Request.Form ("txtResenha"))
varLancamento = ( Request.Form ("txtLancamento"))
varDataPub = (Request.Form ("txtDataPub"))
varPreco = (Request.Form ("varPreco"))

Call abreConexao

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE COD = "& varIdLivro
Set rsLivros = conexaoDataBase.Execute(strLivros)

Call fechaConexao
Set rsLivros = Nothing

%>
<html>
<head>
<title> Alterando registros da tabela livros </title>
</head>
<body>
Alteração executada com sucesso!

</body>
</html>
fala ai jow, beleza..?!?!? cara consegui arrumar esse problema ai... valeu mesmo pela sua ajuda. muito obrigado olha so como eu fiz
strLivros = "UPDATE Livros SET "
strLivros = strLivros + "codLivro = '" + varCodLivro + "', " 
strLivros = strLivros + "categoria = '" + varCategoria + "', " 
strLivros = strLivros + "titulo = '" + varTitulo + "', " 
strLivros = strLivros + "autor = '" + varAutor + "', "
strLivros = strLivros + "nPaginas = " + varNPaginas  + ", "
strLivros = strLivros + "formato = '" + varFormato + "', "
strLivros = strLivros + "resenha = '" + varResenha + "', " 
strLivros = strLivros + "preço = " + varPreco + ", " 
strLivros = strLivros + "lancamento = '" + varLancamento  + "', "
strLivros = strLivros + "dataPub = '" + vardataPub + "' " 
strLivros = strLivros + "WHERE codLivro = '" + varIdLivro + "' "
Set rsLivros = conexaoDataBase.Execute(strLivros)

Editado por ANDRE_GUSTAVO
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...