[Resolvido] problema com insert into...

[Maux 0]

ASP

nome = request.Form("Nome")

        data = trim(request.Form("DN") & "/" & request.Form("MN") & "/" & request.Form("AN"))

        endereco = trim(server.HTMLEncode(request.Form("Endereco")))

        estado = trim(request.Form("Estado"))

        cidade = trim(replace(trim(request.Form("Cidade")),"+",""))

        bairro =trim(request.Form("Bairro"))

        cep = trim(request.Form("CEP"))

        fone = trim(request.Form("DDD_Fone") & "-" & request.Form("Fone"))

        fax = request.Form("DDD_Fax") & "-" & request.Form("Fax")

        celular = request.Form("DDD_Cel") & "-" & request.Form("Cel")

        email = request.Form("Email")

        cpf = request.Form("CPF")

        rg = request.Form("RG")

        cref = request.Form("CREF")

        banco = request.Form("Banco")

        ag = request.Form("Ag")

        numconta = request.Form("NumConta")

        numtenis = request.Form("Num_Tenis")

        camiseta = request.Form("Camiseta")

        short = request.Form("Short")

        nomegestor = request.Form("Nome_Gestor")

        escolaridade =  request.Form("Escolaridade")

        localtrabalho = request.Form("LocalTrabalho")

        nomelocaltrab = request.Form("Nome_LocalTrabalho")

        trabalhocom = request.Form("TrabalhoCom")

        curso1 = request.Form("CursoImportante1")

        curso2 = request.Form("CursoImportante2")

        curso3 = request.Form("CursoImportante3")

        obs = replace(request.Form("Obs"),vbcrlf,"<BR>")

        senha = ""

        usuario = ""

        ativo = false

                                server.ScriptTimeout = 999

        sql0 = "INSERT INTO REPRESENTANTES"

        sql1 = "( NOME, ENDERECO, CIDADE, UF, BAIRRO, CEP, FONE, FAX, CELULAR, EMAIL, DATANASC, CPF, RG, CREF, BANCO, AGENCIA, NUMCONTA, NUMTENIS, CAMISETA, SHORT, NOMEGESTOR, ESCOLARIDADE, LOCALTRABALHO, NOMETRABALHO, TIPOTRABALHO, CURSO1, CURSO2, CURSO3, OBS, USUARIO, SENHA, ATIVO)"

        SQL3 = "( '" & NOME & "', '" & ENDERECO  & "', '" & CIDADE  & "', '" & ESTADO  & "', '" & BAIRRO  & "', '" &  CEP  & "', '" & FONE  & "', '" & FAX  & "', '" & CELULAR  & "', '" & EMAIL  & "', '" & DATA  & "', '" & CPF  & "', '" & RG  & "', '" & CREF  & "', '" & BANCO  & "', '" & AGENCIA  & "', '" & NUMCONTA  & "', '" & NUMTENIS  & "', '" & CAMISETA  & "', '" & SHORT  & "', '" &  NOMEGESTOR  & "', '" & ESCOLARIDADE  & "', '" & LOCALTRABALHO  & "', '" & NOMELOCALTRAB  & "', '" & TRABALHOCOM & "', '" & CURSO1  & "', '" & CURSO2  & "', '" &  CURSO3  & "', '" & OBS  & "', '" & USUARIO  & "', '" & SENHA  & "', " & ATIVO & ")"

        SQL2 = "VALUES"

        SQL = SQL0 & SQL1 & SQL2 & SQL3

        conexao.execute(sql)

 

estou tentando descobrir o erro faz só 3 dias ^^

quando é executado retorna:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/m2000/representantes.asp, line 49

 

se alguem discubri eu do um presente =D

[Ted k' 126]

Confuso, tente assim:

 

ASP

sql = "INSERT INTO REPRESENTANTES (NOME, ENDERECO, CIDADE, UF, BAIRRO, CEP, FONE, FAX, CELULAR, EMAIL, DATANASC, CPF, RG, CREF, BANCO, AGENCIA, NUMCONTA, NUMTENIS, CAMISETA, SHORT, NOMEGESTOR, ESCOLARIDADE, LOCALTRABALHO, NOMETRABALHO, TIPOTRABALHO, CURSO1, CURSO2, CURSO3, OBS, USUARIO, SENHA, ATIVO) Values('"&NOME&"', '"&ENDERECO&"', '"&CIDADE&"', '"&ESTADO&"', '"&BAIRRO&"', '"&CEP&"', '"&FONE&"', '"&FAX&"', '"&CELULAR&"', '"&EMAIL&"', '"&DATA&"', '"&CPF&"', '"&RG&"', '"&CREF&"', '"&BANCO&"', '"&AGENCIA&"', '"&NUMCONTA&"', '"&NUMTENIS&"', '"&CAMISETA&"', '"&SHORT&"', '"& NOMEGESTOR&"', '"&ESCOLARIDADE&"', '"&LOCALTRABALHO&"', '"&NOMELOCALTRAB&"', '"&TRABALHOCOM&"', '"&CURSO1&"', '"&CURSO2&"', '"& CURSO3&"', '"&OBS&"', '"&USUARIO&"', '"&SENHA&"', '"&ATIVO&"')"

 

conexao.execute(sql)

[Maux 0]

nada ted'k

mesma coisa

e no db estão todos os campos como texto - 50

alguma ideia?

[Ted k' 126]

coloque todos os campos do banco de dados em texto 255 e faça tratamento nos campos de aspas simples

[Maux 0]

cara a dica de colocar todos os campos com 255 foi o que salvou!

mais não usei INSERT INTO nao, fui pelo addnew... pra nao ter problemas com aspas

ficou assim:

ASP

sql = "select * from Representantes"

rs.open sql,conexao,2,2

 

rs.addnew

rs("nome") = nome

rs("endereco") = endereco

rs("cidade") = cidade

rs("uf") = estado

rs("bairro") = bairro

rs("cep") = cep

rs("fone") = fone

rs("fax") = fax

rs("celular") = celular

rs("email") = email

rs("datanasc") = data

rs("cpf") = cpf

rs("rg") = rg

rs("cref") = cref

rs("banco") = banco

rs("agencia") = ag

rs("numconta") = numconta

rs("numtenis") = numtenis

rs("camiseta") = camiseta

rs("short") = short

rs("nomegestor") = nomegestor

rs("escolaridade") = escolaridade

rs("localtrabalho") = localtrabalho

rs("nometrabalho") = nomelocaltrab

rs("tipotrabalho") = trabalhocom

rs("curso1") = curso1

rs("curso2") = curso2

rs("curso3") = curso3

rs("obs") = obs

rs("usuario") = usuario

rs("senha") = senha

rs("ativo") = ativo

rs.update

 

agora preciso ir diminuindo o tamanho dos campos de 255 para o apropriado, pra não ficar tão pesado o DB

vlw ted'k

 

quase que eu esquecii

o seu presente

 

^^

 

só uma duvida, como coloca tag ASP inves de CODE?

[Salgado 4]

só uma duvida, como coloca tag ASP inves de CODE?

Estamos verificando para colocar um botão para as Tags de código. Mas para acessar diretamente é só utilizar [ASP][/ASP] "abraçando" seu script.

[Ted k' 126]

Opa colega vlw pela bala (hehehe), acho que tinha algum campo ultrapassando o limite de caracteres, bloquei a quantidade de caracteres no formulário tbm!

[Maux 0]

ok.. vlw pela ajuda de todos =D