Sistema De Curriculo

[maktub]

[DELPHI-Man32]

coloca o cod que grava os dados!

[maktub]

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

%>

[bareta]

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

[TIO CARNEGO]

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

[maktub]

Cara me ajuda entender esse código, como é que eu faço para adapta-lo ao meu?

ou não precisa fazer modificação?

[Worm]

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 caracteres

texto do access o padrão dele é 50, caso tenha que ser maior que 50 uso o campo memorando.

valeu.

[maktub]

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

[Worm]

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.

[ViniciusJau]

fique de olho nas ASPAS simples e ASPAS duplas