Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TaP

Erro no INSERT

Recommended Posts

Pessoal eu fiz um insert em um Access e está dando o seguinte erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

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

 

Oque pode ser???

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu to fazendo assim:

 

dim sql,rs,rnom,rpos,radi,robs,ress,rtipo

dim rati1,rati2,rati3,rati4,rati5,rati6,rati7,rati8,rati9,rati10,rati11

dim rqua1,rqua2,rqua3,rqua4,rqua5,rqua6,rqua7,rqua8,rqua9,rqua10,rqua11,rqua12,rqua1

3,rqua14

dim runi1,runi2,runi3,runi4,runi5,runi6,runi7,runi8,runi9,runi10,runi11,runi12,runi1

3,runi14

 

rnom = Request.Form("nom")

rpos = Request.Form("pos")

radi = Request.Form("adi")

robs = Request.Form("obs")

ress = Request.Form("ess")

rtipo = Request.Form("tipo")

 

rati1 = Request.Form("ati1")

rati2 = Request.Form("ati2")

rati3 = Request.Form("ati3")

rati4 = Request.Form("ati4")

rati5 = Request.Form("ati5")

rati6 = Request.Form("ati6")

rati7 = Request.Form("ati7")

rati8 = Request.Form("ati8")

rati9 = Request.Form("ati9")

rati10 = Request.Form("ati10")

rati11 = Request.Form("ati11")

 

rqua1 = Request.Form("qua1")

rqua2 = Request.Form("qua2")

rqua3 = Request.Form("qua3")

rqua4 = Request.Form("qua4")

rqua5 = Request.Form("qua5")

rqua6 = Request.Form("qua6")

rqua7 = Request.Form("qua7")

rqua8 = Request.Form("qua8")

rqua9 = Request.Form("qua9")

rqua10 = Request.Form("qua10")

rqua11 = Request.Form("qua11")

rqua12 = Request.Form("qua12")

rqua13 = Request.Form("qua13")

rqua14 = Request.Form("qua14")

 

runi1 = Request.Form("uni1")

runi2 = Request.Form("uni2")

runi3 = Request.Form("uni3")

runi4 = Request.Form("uni4")

runi5 = Request.Form("uni5")

runi6 = Request.Form("uni6")

runi7 = Request.Form("uni7")

runi8 = Request.Form("uni8")

runi9 = Request.Form("uni9")

runi10 = Request.Form("uni10")

runi11 = Request.Form("uni11")

runi12 = Request.Form("uni12")

runi13 = Request.Form("uni13")

runi14 = Request.Form("uni14")

 

sql = "insert into visita(paciente,med,dosagem,unidade,med1,dosagem1,unidade1,med2,dosagem2,unidade

2,med3,dosagem3,unidade3,med4,dosagem4,unidade4,med5,dosagem5,unidade5,med6,dosa

gem6,unidade6,med7,dosagem7,unidade7,med8,dosagem8,unidade8,med9,dosagem9,unidad

e9,med10,dosagem10,unidade10,med11,dosagem11,unidade11,med12,dosagem12,unidade12

,med13,dosagem13,unidade13,essencia,dosa_ess,uni_ess,veiculo,dosa_vei,uni_vei,ad

icional,dosa_ad,uni_ad,obs,possologia) values('"& rnom &"','"& rati1 &"','"& rqua1 &"','"& runi1 &"',,'"& rati2 &"','"& rqua2 &"','"& runi2 &"','"& rati3 &"','"& rqua3 &"','"& runi3 &"','"& rati4 &"','"& rqua4 &"','"& runi4 &"','"& rati5 &"','"& rqua5 &"','"& runi5 &"','"& rati6 &"','"& rqua6 &"','"& runi6 &"','"& rati7 &"','"& rqua7 &"','"& runi7 &"','"& rati8 &"','"& rqua8 &"','"& runi8 &"','"& rati9 &"','"& rqua9 &"','"& runi9 &"','"& rati10 &"','"& rqua10 &"','"& runi10 &"','"& rati11 &"','"& rqua11 &"','"& runi11 &"','"& ress &"','"& rqua12 &"','"& runi12 &"','"& rtipo &"','"& rqua13 &"','"& runi13 &"','"& radi &"','"& rqua14 &"','"& runi14 &"','"& robs &"','"& rpos &"')"

 

set rs = conn.execute(sql)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você ta com algum problema no insert.. Verifique..Ta faltando "&"SQL = "INSERT INTO tabela(Campo, Campo)"&"Values('"&Var&"', '"&Var&"')"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom, eu notei que entre Runi1 e Rati2, há 2 virgulas para separa-los.Aqui:

runi1 &"',,'"& rati2

Se nao for isso, faz o seguinte cara, se você estiver usando Access, printa esse insert na tela, e joga em uma consulta do Access. Ele vai fala oqq ta dando errado.Caso você n saiba como funciona o processo pra printa o insert, você faz assim:Antes de executar o insert, escrva lá no codigo:
Response.Write(sql) : Response.End()
Ai você copia o insert, cola numa consulta do Access e ve oq ta errado. :rolleyes:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mano valeu mesmo!!!o erro era essa virgula a mais!!!#@?$%~ valeu mesmo pela paciencia de procurar um erro!!!!! :blink: :angry: :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.