[Resolvido] Inclusão no banco de dados Access

[JBNC 0]

Prezados senhores,

A mais ou menos a duas semanas estou apredendo ASP e comecei a fazer um site com um formulário para cadastrar informações mas ocorre o seguinte erro.

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

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

/Projeto_SCT/variglog/_inc/incerir.asp, line 33

 

o codigo em em ASP é este:

<% @LANGUAGE=VBSCRIPT %>
<% OPTION EXPLICIT %>
<%
' ----- Definição de variaveis -----
	DIM objConn, sql, sql2, strConexao,nome_compl,nome_gue,funcao,cargo,equi,data_admi,base,cod_anac,pla_pc,
nivel_ing,pass,crm,ccf,ifr,emer_ger,tai,recic,carre

' ----- Definição das Variaveis que receberam os dados do HTML -----
	nome_compl=Request.form("fr_nome_compl")
	nome_gue=Request.form("fr_nome_gue")
	funcao=Request.form("fr_funcao")
	cargo=Request.form("fr_cargo")
	equi=Request.form("fr_equi")
	data_admi=Request.form("fr_data_admi")
	base=Request.form("fr_base")
	cod_anac=Request.form("fr_cod_anac")
	pla_pc=Request.form("fr_pla_pc")
	nivel_ing=Request.form("fr_nivel_ing")
	pass=Request.form("fr_pass")
	crm=Request.form("fr_crm")
	ccf=Request.form("fr_ccf")
	ifr=Request.form("fr_ifr")
	emer_ger=Request.form("fr_emer_ger")
	tai=Request.form("fr_tai")
	recic=Request.form("fr_recic")
	carre=Request.form("fr_carre")
	
' ----- Criação da conexão do Banco de dados com o ASP -----	
	SET strConexao=createobject("ADODB.CONNECTION")
	strConexao.Open "ConASP"
	
' ----- Incerindo as informações via instrução SQL no Banco-----	
	   sql="insert into Tripulacao (NomeCompleto,NomeGuerra,Func,Cargo,Eqpto,DtAdmis,Base,CodANAC,PLA/PC,Nivel_Inglês,Passaporte) VALUES ('"&nome_compl&"','"&nome_gue&"','"&funcao&"','"&cargo&"','"&equi&"','"&data_admi&"',,'"&base&"','"&cod_anac&"','"&pla_pc&"','"&nivel_ing&"','"&pass&"')"
	   strConexao.Execute(sql)
	   sql2="insert into Cursos (CodANAC,CRM,CCF,IFR,Emergências Gerais,TAI,Reciclagem,Carregamento) VALUES ('"&cod_anac&"','"&crm&"','"&ccf&"','"&ifr&"','"&emer_ger&"','"&tai&"','"&recic&"','"&carre&"')"
	   strConexao.Execute(sql2)	
	   response.redirect("mostrar.asp") 
%>

Muito obrigado e aguardo resposta.

 

JBNC.... :)

[Reinaldo 0]

O erro está aqui:

 

'"&data_admi&"',,'"&base&"','.

Você esta colocando 2 virgulas. Verifiuqe e tente de novo.

[JBNC 0]

Fala Reinaldo,

Ainda continua com o erro.

 

Muito obrigado e aguardo resposta.

 

JBNC... :)

[Claudio Neto 3]

Fala Reinaldo,

Ainda continua com o erro.

 

Muito obrigado e aguardo resposta.

 

JBNC... :)

Talvez o erro estava na forma como está passando a data para o banco. Dê uma conferida nisso, porque tirando a virgula que o amigo já corrigiu, parece estar tudo correto.

 

Verifique campo a campo, por acaso o cod_ana não é um campo numérico, se for, não pode ter a aspa simples (').

[JBNC 0]

Ok Claudio,

Já comecei a olhar o tipo de informações que o banco tem na tabela.

Me exclareça umas duvidas:

1- você tenha dito que era para tirar o aspa simples, mas isto vale para outros tipos?

2- No formulário estou usando combo de seleção, mas este tipo pode inteferir na inclusão do código ASP?

 

Muito obrigado e aguardo resposta.

 

JBNC... :)

[Zé Luiz - Dainet 0]

Ok Claudio,

Já comecei a olhar o tipo de informações que o banco tem na tabela.

Me exclareça umas duvidas:

1- você tenha dito que era para tirar o aspa simples, mas isto vale para outros tipos?

2- No formulário estou usando combo de seleção, mas este tipo pode inteferir na inclusão do código ASP?

 

Muito obrigado e aguardo resposta.

 

JBNC... :)

JBNC, só campo númerico, você não precisa das ASPAS simples.

 

Exemplo:

 

sql = "Select * From tabela where ID = 1"

 

sql = "Select * From tabela where ID = 'Claudio'"

 

Espero ter ajudado.

[JBNC 0]

Fala Pessoal,

Ainda continua o erro, tenho a impressão que o erro deve ser sobre dados do tipo data ou numero mas não tenho muita certeza.

Será que existe um padrão de script para este tipo de informação para que se possa ser inserido no banco?

Muito obrigado e aguardo resposta.

 

JBNC... :)

[Ted k' 126]

como tá agora o código?

[JBNC 0]

Esta assim Ted,

 

<% @LANGUAGE=VBSCRIPT %>

<% OPTION EXPLICIT %>

<%

' ----- Definição de variaveis -----

DIM objConn, sql, sql2, strConexao,nome_compl,nome_gue,funcao,cargo,equi,data_admi,base,cod_anac,pla_pc,

nivel_ing,pass,crm,ccf,ifr,emer_ger,tai,recic,carre

 

' ----- Definição das Variaveis que receberam os dados do HTML -----

nome_compl=Request.form("fr_nome_compl")

nome_gue=Request.form("fr_nome_gue")

funcao=Request.form("fr_funcao")

cargo=Request.form("fr_cargo")

equi=Request.form("fr_equi")

data_admi=Request.form("fr_data_admi")

base=Request.form("fr_base")

cod_anac=Request.form("fr_cod_anac")

pla_pc=Request.form("fr_pla_pc")

nivel_ing=Request.form("fr_nivel_ing")

pass=Request.form("fr_pass")

crm=Request.form("fr_crm")

ccf=Request.form("fr_ccf")

ifr=Request.form("fr_ifr")

emer_ger=Request.form("fr_emer_ger")

tai=Request.form("fr_tai")

recic=Request.form("fr_recic")

carre=Request.form("fr_carre")

 

' ----- Criação da conexão do Banco de dados com o ASP -----

SET strConexao=createobject("ADODB.CONNECTION")

strConexao.Open "ConASP"

 

' ----- Incerindo as informações via instrução SQL no Banco-----

sql="insert into Tripulacao (NomeCompleto,NomeGuerra,Func,Cargo,Eqpto,DtAdmis,Base,CodANAC,PLA/PC,Nivel_Inglês,Passaporte) VALUES ('"&nome_compl&"','"&nome_gue&"','"&funcao&"','"&cargo&"','"&equi&"','"&data_admi&"','"&base&"','"&cod_anac&"','"&pla_pc&"','"&nivel_ing&"','"&pass&"')"

strConexao.Execute(sql)

sql2="insert into Cursos (CodANAC,CRM,CCF,IFR,Emergências Gerais,TAI,Reciclagem,Carregamento) VALUES ('"&cod_anac&"','"&crm&"','"&ccf&"','"&ifr&"','"&emer_ger&"','"&tai&"','"&recic&"','"&carre&"')"

strConexao.Execute(sql2)

response.redirect("mostrar.asp")

%>

 

Só com algumas alterações.

Muito obrigado e aguardo resposta.

 

JBNC... :)

[JBNC 0]

Fala Pessoal,

Ainda estou no aguardo da ajuda sobre script.

Muito obrigado e aguardo retorno.

 

JBNC... :)

[Mário Monteiro 179]

qual dos dois sqls estao dando erro?

 

escreve ambos na tela e poste aqui o resultado

 

assim fica mais facil ajuda-lo

[JBNC 0]

Prezado Mário Monteiro,

O erro ocorre no primeiro SQL, mais precisamente na linha de execução do sql que é:

 

strConexao.Execute(sql)

 

Muito obrigado e aguardo resposta.

 

JBNC... :)

[Mário Monteiro 179]

acredito qeu seja este nome de campo

 

PLA/PC

 

adicione colchetes assim [PLA/PC] ou mude de nome

 

se nao der certe

 

deum responde.write(sql) antes de executar e poste aqui o que aparecer na tela

[JBNC 0]

Ok Mário Monteiro,

Deu certo agora o script.

Muito obrigado pela força e também ao pessoal que participou da resolução deste tópico de ajuda.

 

Atenciosamente.

 

JBNC... :)

[Mário Monteiro 179]

ok

 

parabens