maktub Postado Maio 8, 2005 Denunciar Share Postado Maio 8, 2005 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DELPHI-Man32 Postado Maio 8, 2005 Denunciar Share Postado Maio 8, 2005 coloca o cod que grava os dados! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 maktub Postado Maio 9, 2005 Autor Denunciar Share Postado Maio 9, 2005 Esse é o código para gravar os dados: <!--#include file="config.inc" --> <p align="center"><img border="0" src="logo_admin.gif" WIDTH="406" HEIGHT="110"></p> <% nome = request("nome") email = request("email") sexo = request("sexo") estadocivil = request("estadocivil") cpf = request("cpf") dia = request("dia") mes = request("mes") ano = request("ano") empregado = request("empregado") dddtelefone = request("dddtelefone") numerotelefone = request("numerotelefone") dddcelular = request("dddcelular") numerocelular = request("numerocelular") paginapessoal = request("paginapessoal") endereco = request("endereco") complemento = request("complemento") bairro = request("bairro") cepnumero = request("cepnumero") cepdigito = request("cepdigito") cidade = request("cidade") objetivo = request("objetivo") areaprofissional = request("areaprofissional") cargo = request("cargo") pretencaosalarial = request("pretencaosalarial") resumodasqualificacoes = request("resumodasqualificacoes") informacoesrelevantes = request("informacoesrelevantes") graudeformacao = request("graudeformacao") curso = request("curso") anoatual = request("anoatual") instituicao = request("instituicao") graudeformacao1 = request("graudeformacao1") curso1 = request("curso1") anoatual1 = request("anoatual1") instituicao1 = request("instituicao1") mesinicio = request("mesinicio") anoinicio = request("anoinicio") messaida = request("messaida") anosaida = request("anosaida") empregoatual = request("empregoatual") nomedaempresa = request("nomedaempresa") ultimocargo = request("ultimocargo") atribuicoesdocargo = request("atribuicoesdocargo") mesinicio1 = request("mesinicio1") anoinicio1 = request("anoinicio1") messaida1 = request("messaida1") anosaida1 = request("anosaida1") empregoatual1 = request("empregoatual1") nomedaempresa1 = request("nomedaempresa1") ultimocargo1 = request("ultimocargo1") atribuicoesdocargo1 = request("atribuicoesdocargo1") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "INSERT INTO perguntas(nome, email, sexo, estadocivil, cpf, dia, mes, ano, empregado, dddtelefone, numerotelefone, dddcelular, numerocelular, paginapessoal, endereco, complemento, bairro, cepnumero, cepdigito, cidade, objetivo, areaprofissional, cargo, pretencaosalarial, resumodasqualificacoes, informacoesrelevantes, graudeformacao, curso, anoatual, instituicao, graudeformacao1, curso1, anoatual1, instituicao1, mesinicio, anoinicio, messaida, anosaida, empregoatual, nomedaempresa, ultimocargo, atribuicoesdocargo, mesinicio1, anoinicio1, messaida1, anosaida1, empregoatual1, nomedaempresa1, ultimocargo1, atribuicoesdocargo1) VALUES('" & nome & "', '" & email & "', '" & sexo & "', '" & estadocivil & "', '" & cpf & "', '" & dia & "', '" & mes & "', '" & ano & "', '" & empregado & "', '" & dddtelefone & "', '" & numerotelefone & "', '" & dddcelular & "', '" & numerocelular & "', '" & paginapessoal & "', '" & endereco & "', '" & complemento & "', '" & bairro & "', '" & cepnumero & "', '" & cepdigito & "', '" & cidade & "', '" & objetivo & "', '" & areaprofissional & "', '" & cargo & "', '" & pretencaosalarial & "', '" & resumodasqualificacoes & "', '" & informacoesrelevantes & "', '" & graudeformacao & "', '" & curso & "', '" & anoatual & "', '" & instituicao & "', '" & graudeformacao1 & "', '" & curso1 & "', '" & anoatual1 & "', '" & instituicao1 & "', '" & mesinicio & "', '" & anoinicio & "', '" & messaida & "', '" & anosaida & "', '" & empregoatual & "', '" & nomedaempresa & "', '" & ultimocargo & "', '" & atribuicoesdocargo & "', '" & mesinicio1 & "', '" & anoinicio1 & "', '" & messaida1 & "', '" & anosaida1 & "', '" & empregoatual1 & "', '" & nomedaempresa1 & "', '" & ultimocargo1 & "', '" & atribuicoesdocargo1 & "')" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn if err.Number > "0" then Response.Write("<center><pre>Ocorreram erros ao enviar o seu cadastro!</pre></center>") else Response.Write("<center><pre>Pergunta cadastrada com sucesso! <br><a href=""javascript:history.go(-2)""><img border=0 src=voltar.gif></a></pre></center>") end if %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Maio 9, 2005 Denunciar Share Postado Maio 9, 2005 verifique sua sql... e se os dados que você tenta gravar estão em ordem no banco de dados... campos do tipo numero, sim não podem dar esse erro Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 TIO CARNEGO Postado Maio 10, 2005 Denunciar Share Postado Maio 10, 2005 Set tb = CreateObject("ADODB.Recordset") tb.cursortype = 2 tb.locktype = 2 tb.Open "Select TOP 1 * From perguntas,Conn tb.AddNew For Each Campo in tb.Fields Campo.Value=Request.Form(Campo.Name) Next tb.UpDate tb.Close Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 maktub Postado Maio 11, 2005 Autor Denunciar Share Postado Maio 11, 2005 Cara me ajuda entender esse código, como é que eu faço para adapta-lo ao meu?ou não precisa fazer modificação? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Worm Postado Maio 11, 2005 Denunciar Share Postado Maio 11, 2005 Pra facilitar posta a linha que deu erro.Eu fiz um sistema de cadastro de curriculo o esquema é meio complicado.Os campos do Bd estão definidos de acordo com os dados, exemplo Smalldatetime só ira aceitar datas válidas (no caso do SQL as datas tem que ser no padrão americano MM/DD/AAAA).Outra coisa são os campos int eles não aceitam valores nulos, aconselho a usar campos char ou varchar no SQL ou texto no Access.porque assim você pode definir que os campos podem ser nulos e as changes de erro diminuem, Só um ponto quanto a esses tipode de campo a quantidade de caracteres, exemplo:Char(20) - se enviar mais que 20 caracteres dará errio.varchar(100) - aqui a mesma coisa só que 100 caracterestexto do access o padrão dele é 50, caso tenha que ser maior que 50 uso o campo memorando.valeu. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 maktub Postado Maio 11, 2005 Autor Denunciar Share Postado Maio 11, 2005 No código é a linha 61 que da erro, no código abaixo é a ultima linha: strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "INSERT INTO perguntas(nome, email, sexo, estadocivil, cpf, dia, mes, ano, empregado, dddtelefone, numerotelefone, dddcelular, numerocelular, paginapessoal, endereco, complemento, bairro, cepnumero, cepdigito, cidade, objetivo, areaprofissional, cargo, pretencaosalarial, resumodasqualificacoes, informacoesrelevantes, graudeformacao, curso, anoatual, instituicao, graudeformacao1, curso1, anoatual1, instituicao1, mesinicio, anoinicio, messaida, anosaida, empregoatual, nomedaempresa, ultimocargo, atribuicoesdocargo, mesinicio1, anoinicio1, messaida1, anosaida1, empregoatual1, nomedaempresa1, ultimocargo1, atribuicoesdocargo1) VALUES('" & nome & "', '" & email & "', '" & sexo & "', '" & estadocivil & "', '" & cpf & "', '" & dia & "', '" & mes & "', '" & ano & "', '" & empregado & "', '" & dddtelefone & "', '" & numerotelefone & "', '" & dddcelular & "', '" & numerocelular & "', '" & paginapessoal & "', '" & endereco & "', '" & complemento & "', '" & bairro & "', '" & cepnumero & "', '" & cepdigito & "', '" & cidade & "', '" & objetivo & "', '" & areaprofissional & "', '" & cargo & "', '" & pretencaosalarial & "', '" & resumodasqualificacoes & "', '" & informacoesrelevantes & "', '" & graudeformacao & "', '" & curso & "', '" & anoatual & "', '" & instituicao & "', '" & graudeformacao1 & "', '" & curso1 & "', '" & anoatual1 & "', '" & instituicao1 & "', '" & mesinicio & "', '" & anoinicio & "', '" & messaida & "', '" & anosaida & "', '" & empregoatual & "', '" & nomedaempresa & "', '" & ultimocargo & "', '" & atribuicoesdocargo & "', '" & mesinicio1 & "', '" & anoinicio1 & "', '" & messaida1 & "', '" & anosaida1 & "', '" & empregoatual1 & "', '" & nomedaempresa1 & "', '" & ultimocargo1 & "', '" & atribuicoesdocargo1 & "')" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Worm Postado Maio 11, 2005 Denunciar Share Postado Maio 11, 2005 Pelo erro é algum dado que você está inserindo que o campo não aceita.Em insert's grandes assim acho melhor dividir em duas partes, ou o insert ou a tabela.porque fica mais fácil identificar os erros.Aconselho a fazer isso, dividir o insert em dois ou dividir a tabela em dus partes.valeu. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ViniciusJau Postado Maio 11, 2005 Denunciar Share Postado Maio 11, 2005 fique de olho nas ASPAS simples e ASPAS duplas Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
maktub
Link para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
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.