Ir para conteúdo
Fórum Script Brasil

AlbertoRT

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    116

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que AlbertoRT postou

  1. AlbertoRT
    Muito bom! Mas estou cometendo algum erro ainda. Fui lendo passo a passo a sua Função e depois para evitar erros copiei toda a sua função. Testando, não digitei o "CodLivro", fui validado (O campo ISBN não pode ficar em brando.) mas ao clicar em "OK" a página fechou e abrir a página de erro: Tipo de erro: Microsoft JET Database Engine (0x80004005) O campo 'Livros.CodLivro' não pode ser uma seqüência de caracteres de comprimento nulo. /serieweb/Nasp/Laboratorios/ResLab10_1.asp, line 42 Depois que postei continuei a pesquisar e tentei com a função abaixo com apenas um campo para validar: &lt;script> function valida(formLivro) { if (formLivro.txtTitulo.value=="") { alert("Preencha o nome corretamente."); formLivro.txtTitulo.focus(); return false; } } </script> Funcionou! Criticou por não ter digitação o Titulo e clicando em "OK" o formulário ficou na tela e o focu foi para o campo Titulo. Contudo esse código que ainda estou errando é uma questão de honra. Vou informar tudo como está: O Banco de dados com o nome "dbEditora.mdb" tem uma tabela com nome de "Livros" com os campos: CÓD - Tipo - Numeração Automática CodLivro - Tipo - Texto categoria - Tipo - Texto Titulo - Tipo - Texto Autor - Tipo - Texto NPaginas - Tipo - Número preço - Tipo - Unidade Monetária resenha - Tipo - Memorando Lancamento - Tipo - Texto dataPub - Tipo - Data/Hora A Página de entrada de dados ( Lab10_1.asp) e validação dos dados está assim (coloquei comentários nas funções que estava tentando): <%@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> <!-- Ainda tem erro na critica dos campos &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.txtCategoria.value.length <1) {alert ("O campo Código da Categoria não pode ficar em branco."); formLivro.txtCategoria.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.txtCapa.value.length <1) {alert ("O campo Capa não pode ficar em branco."); formLivro.txtCapa.focus(); return false; } return true; } </script> --> <!-- Esse código funciona <!-- Funcionaou --> <!-- Indicada pelo Jonathan Queiroz ---> &lt;script> function valida(formLivro) { if (formLivro.txtTitulo.value=="") { alert("Preencha o nome corretamente."); formLivro.txtTitulo.focus(); return false; } } </script> --> &lt;script language="javascript"> function validaForm(formulario) { if (formulario.txtCodigo.value.length <1) {alert ("O campo ISBN não pode ficar em brando. "); formulario.txtCodigo.focus(); return false; } if (formulario.txtCategoria.value.length <1) {alert ("O campo Código da Categoria não pode ficar em branco."); formulario.txtCodCategoria.focus(); return false; } if (formulario.txtTitulo.value.length <1) {alert ("O campo Título não pode ficar em branco."); formulario.txtTitulo.focus(); return false; } if (formulario.txtAutor.value.length <1) {alert ("O campo Título não pode ficar em branco."); formulario.txtAutor.focus(); return false; } if (formulario.txtPreco.value.length <1) {alert ("O campo Preço não pode ficar em branco."); formulario.txtPreco.focus(); return false; } if (formulario.txtCapa.value.length <1) {alert ("O campo Capa não pode ficar em branco."); formulario.txtCapa.focus(); return false; } return true; } </script> </head> <body> <form name="formLivro" method="post" action="ResLab10_1.asp" onsubmit="return valida(formulario);"> 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 name="txtCodigo" type="text" /> *</td> </tr> <tr> <td width="20%">Código da Categoria:</td> <td width="80%"> <input type="text" name="txtCategoria" /> *</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> <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> A página com a INSERT INTO. (ResLab10_1.asp) que indica o erro na linha 42, ou seja: Set rsLivros = conexaoDataBase.Execute(strINS) Todo o codigo da ResLab10_1.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% Dim conexaoDataBase Dim strIns, rsLivros Dim varCodigo, varCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub VarCodigo = TRIM(Request.Form("txtCodigo")) VarCategoria = Request.Form("txtCategoria") VarTitulo = TRIM(Request.Form("txtTitulo")) varAutor = TRIM(Request.Form("txtAutor")) VarNPaginas = Request.Form("txtNPaginas") VarFormato = TRIM(Request.Form("txtFormato")) VarPreco = Request.Form("txtPreco") VarResenha = Request.Form("txtResenha") VarLancamento = TRIM(Request.Form("txtLancamento")) VarDataPub = TRIM(Request.Form("txtDataPub")) varTitulo = REPLACE(varTitulo, "'", " ") varAutor = REPLACE(varAutor, "'", " ") VarFormato = REPLACE(VarFormato, "'", " ") VarResenha = REPLACE(VarResenha, "'", " ") VarPreco = REPLACE(VarPreco, ",", ".") strINS = "INSERT into Livros " strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub)" strINS = strINS + "VALUES ('" + varCodigo + "', " strINS = strINS + "'" + varCategoria + "', " strINS = strINS + "'" + varTitulo + "', " strINS = strINS + "'" + varAutor + "', " strINS = strINS + varNPaginas + "," strINS = strINS + "'" + varFormato + "', " strINS = strINS + varPreco + ", " strINS = strINS + "'" + varResenha + "', " strINS = strINS + "'" + varLancamento + "', " strINS = strINS + "'" + varDataPub + "')" Call abreConexao '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 %> Muito obrigado e desculpe alguma coisa. Se eu não ficar aguardando não é por falta de interesse. Sou diabético e tenho que controlar minhas horas de alimentação. Mas estarei aqui ainda hoje. Caso tenha algo ótimo caso contrário aguardo. Abraço Jonathan e a todos do forum. Sucesso!!
  2. AlbertoRT
    Não entendi a sua pergunta. A function validaForm já verifica cada campo se é menor que (<1) caracter. Se por exemplo eu não digitar o preço abre a mensagem "O campo preço não pode ficar em branco". Até ai tudo bem está funcionando. So que clicando em "OK" dessa mensagem o curso deveria voltar o foco para esse campo (preço) e isso não está acontecendo. Abre uma mansagem de erro informando: 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 é essa: Set rsLivros = conexaoDataBase.Execute(strINS) Como está dando erro em INSERT INTO creio que postei no lugar errado. Obrigado. Se tiver que remanejar essa postagem para a área ASP como devo fazer? Analisando a function você vêm algum erro?
  3. AlbertoRT
    Tenho a página Lab10_1.asp que está gravando perfeitamento os registros no banco de dados mas os campos com * se não forem preenchidos aparece a mansagem do "alert" "O campo xxxx não pode ficar em branco" e clicando em "OK" informa o seguinte erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução INSERT INTO. /serieweb/Nasp/Laboratorios/ResLab10_1.asp, line 42 ----- Deseculpe não informei ateriormente que a linha 42 é essa: Set rsLivros = conexaoDataBase.Execute(strINS) O código da página Lab10_1.asp é esse: <%@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.txtCategoria.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.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 name="txtCodigo" type="text" /> *</td> </tr> <tr> <td width="20%">Código da Categoria:</td> <td width="80%"> <input type="text" name="txtCategoria" /> *</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> <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> O código da página que informa erro ResLab10_1.asp é esse: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% Dim conexaoDataBase Dim strIns, rsLivros Dim varCodigo, varCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub VarCodigo = TRIM(Request.Form("txtCodigo")) VarCategoria = Request.Form("txtCategoria") VarTitulo = TRIM(Request.Form("txtTitulo")) varAutor = TRIM(Request.Form("txtAutor")) VarNPaginas = Request.Form("txtNPaginas") VarFormato = TRIM(Request.Form("txtFormato")) VarPreco = Request.Form("txtPreco") VarResenha = Request.Form("txtResenha") VarLancamento = TRIM(Request.Form("txtLancamento")) VarDataPub = TRIM(Request.Form("txtDataPub")) varTitulo = REPLACE(varTitulo, "'", " ") varAutor = REPLACE(varAutor, "'", " ") VarFormato = REPLACE(VarFormato, "'", " ") VarResenha = REPLACE(VarResenha, "'", " ") VarPreco = REPLACE(VarPreco, ",", ".") strINS = "INSERT into Livros " strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preço, resenha, lancamento, dataPub)" strINS = strINS + "VALUES ('" + varCodigo + "'," strINS = strINS + "'" + varCategoria + "'," strINS = strINS + "'" + varTitulo + "'," strINS = strINS + "'" + varAutor + "'," strINS = strINS + varNPaginas + "," strINS = strINS + "'" + varFormato + "'," strINS = strINS + varPreco + "," strINS = strINS + "'" + varResenha + "'," strINS = strINS + "'" + varLancamento + "'," strINS = strINS + "'" + varDataPub + "')" Call abreConexao '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 %> Essa validação é muito importante.
  4. AlbertoRT
    Alea, Funcionou corretamente. Muito obrigado. Muito sucesso para você. Fique com Deus.
  5. AlbertoRT
    Não estou conseguindo centralizar o texto. Tenho em uma página ASP um form, na Table tem: <tr> <td> <input name="txtResp_alternativa_a_perg_1_p1TL" type="text" size="1" maxlength="1" /> a) segurança do trabalho está associado a:; </td> </tr> Só será digitado um X neste campo e será gravado no banco de dados. Para o que eu desejo seria o ideal usar os rádios para marca apenas uma questão. Não deu certo e desejo fazer usando para cada alternativa uma caixa de texto para maraca um X. Ocorre que ao abrir a página ao digitar o X ele fica no lado direito. Muito feio. Já usei: text-align:center Dentro do input e nada resolve.
  6. AlbertoRT

    Filtrar um registro

    uma questão postou AlbertoRT ASP

    Gente, tenho um formulario com o nome de "Contato". Através desse será pedido uma senha. Antes de enviar a senha pedida vou cadastrar no Banco de Dados essa senha. Depois disso vou informar a pessoa: "A digite a senha enviada e será aberto as perguntas para resposta". Nessa página teria compo texto para digitar a senha e um Botão para Abrir a outra página. Será que tem um exemplo com um código LIKE SQL.
  7. AlbertoRT
    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.
  8. AlbertoRT
    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ã.
  9. AlbertoRT
    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
  10. AlbertoRT
    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
  11. AlbertoRT
    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.
  12. AlbertoRT
    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
  13. AlbertoRT
    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
  14. AlbertoRT
    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.
  15. AlbertoRT
    Bem, isso quer dizer que não poderei abrir o arquivo. Perdi?
  16. AlbertoRT
    Sinto muito mas continua dando a mesma mensagem, ou seja, "Unexpected file format". E nãa abre.
  17. AlbertoRT
    Não abriu. Salvei em uma pasta e dei dois clique aparece a mensagem "Unexpected file format". Uso o Flash Profissional 8.
  18. AlbertoRT
    Tão logo chegue em casa vou verificar. Aqui na empresa é bloqueado para fazer o Download. Muito obrigado e eu que me desculpo pelo transtorno. Essa sua ajuda, aos iniciantes, desestimula a não desistir do uso da ferramenta e estudar mais. Não levaremos nada desse mundo a não ser o bem que fizermos uns aos outros. Muito obrigado
  19. AlbertoRT
    OK. Muito obrigado. Desculpe alguma coisa.
  20. AlbertoRT
    Rapnhael, Primeiro muito obrigado pela atenção e pela forma como orienta. No Actions coloquei: _global.pontos = 0 _global.soma = 1 prox.clickHandler = function() { nextFrame(); } ante.clickHandler = function() { prevFrame(); } Estou clicando na biblioteca ---> Learning Interactions e RadioButton. Depois arrasto 5 bottons para o logo abaixo da pergunta. Clico no primeiro Botton e dou um F9 e digito: on (click) { status.text = "Correto!" pontos = Number (pontos) + Number(soma); } no Segunto Botton que é uma quetão errada dou F9 e digito on (click) { status.text = "Errado!" } Nada acontece. Estou errando onde? Obrigado
  21. AlbertoRT
    Muito obrigado pela atenção mas estou muito fraco (desculpe o passo-a-passo e a linguagem primária mas...) 1 -Criei uma camada dei o nome QIncorreta; 2 - depois Novo Simbolo - Botão - Nome: botao2_QIncorreta; 3 - criei um retangulo e dei um F6 em em todos os estágios do botão; 4 - Criei outra camada com o nome QCorreta; 5 - depois Novo Simbolo - Botão - Nome: botao1_QCorreta; 6 - criei um retangulo e dei um F6 em todos os estágios do botão; 7 - linha de tempo 1 da camada botao1_QCorreta - dei uma F9 e copiei o seu código: function fBotoes() { _root.botao1_QCorreta.onRelease = function() { this._parent.totalCorreto++; } } 8 - Crei um Movie Clip nome mg_Correta - camada mgCorreta Texto "Correta" 9 - Crei outro Movie Clip nome mg_Incorreta - camada mgIncorreta Texto "Incorreta" Voltei à Cena arrastei os 2 Botões (retângulo) e coloquei do lado de um Botão mgCorreta e do outro mgIncorreta simulando 2 questões mas é lógico que clindo no Botões nada aconteceu. Não deu para enteder (você está claro) mas tentei fazer mas não consegui fazer as function do Botão e do Text. Repito não é falta de clareza nas orientações o problema é meu. Mas estou caminhando.
  22. AlbertoRT
    Tenho consciencia que não exemplifico legal as coisas e fica dificil. Tenho um exemplo, mas não é bem assim que queria a ação do botão. O código abaixo ao clicar ele vai mudando de pergunta em pergunta após você clicar no Botão que fica do lado das questões e no final ele informa o total de perguntas Corretas. // determinar as variaveis na linha de tempo var b_pergunta1; var b_pergunta2; var b_pergunta3; var b_pergunta4; var totalCorreto = 0; // determinar que a animaçao pare na pergunta 1 stop(); // determinar açao quando o botao1 é clicado botao1.onRelease = function () { this._parent.b_pergunta1 = 1; this._parent.gotoAndStop("pergunta2"); }; // determinar açao quando o botao2 é clicado botao2.onRelease = function () { this._parent.b_pergunta1 = 2; this._parent.gotoAndStop("pergunta2"); }; // determinar açao quando o botao3 é clicado botao3.onRelease = function () { this._parent.b_pergunta1= 3; this._parent.gotoAndStop("pergunta2"); }; // determinar açao quando o botao4 é clicado botao4.onRelease = function () { this._parent.b_pergunta1= 4; this._parent.gotoAndStop("pergunta2"); }; Eu não vejo necessidade de fazer botão1, 2, 3, ....O que eu gostaria é: ter um Botão, que seria um retangulo, chamado "botao1_QCorreta", ou seja, "Questão Correta" e outro chamado "botao2_QIncorreta", ou seja, "Questão Incorreta". Teria 2 (duas) caixas de Text, uma "Pergunta Correta" e outro "Pergunta Incorreta". O Botão "botao1_QCorreta" faz abrir o Text "Pergunta Correta". O Botão "botao2_QIncorreta" faz abrir o Text "Pergunta Incorreta" Se esses os 2 (dois) Botões e as 2 (duas) caixa de Text estam na minha biblioteca não posso arrasta-lós para onde quiser? Então clicando no botão correspondete abriria a caixa de Text correspondente, ou seja, "Pergunta Correta" ou "Pergunta Incorreta" no respectivo local. Exemplo: Perguntas 01 - Qual foi a seleção que ganhou a Copa de Mundo de 2002? (aqui o Botão "botao1_QCorreta") a) Brasil (aqui a caixa de texto "Pergunta Correta") (aqui o Botão "botao2_QIncorreta") B) França (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao2_QIncorreta") c) Koreia (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao2_QIncorreta") d) Alemanha (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao2_QIncorreta") e) Kapão (aqui a caixa de texto "Pergunta Icorreta") 02 - Qual a maior cidade do Brasil? (aqui o Botão "botao2_QIncorreta") a) Rio de Janeiro (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao1_QCorreta") B) São Paulo (aqui a caixa de texto "Pergunta Correta") (aqui o Botão "botao2_QIncorreta") c) Belo Horizonte (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao2_QIncorreta") d) Porto Alegre (aqui a caixa de texto "Pergunta Icorreta") (aqui o Botão "botao2_QIncorreta") e) Minas Gerais (aqui a caixa de texto "Pergunta Icorreta") Teria um contador para o "botao1_QCorreta" no final informaria "Você teve XYZ Perguntas Corretas" Não é possível? Não tem lógica?
  23. AlbertoRT
    Não consegui. Por favor um exemplo.
  24. AlbertoRT
    Por favor...não vale a pena o que estou tentando fazer? É impossível? Ajuda-me. Muito obrigado.
  25. AlbertoRT
    Por favor...não tem solução? Não é viável? Ajuda por favor. Obrigado e desculte.
×
×
  • Criar Novo...