Várias Atualizações Simultâneas

[Guest paulao cesar]

Amigos,

Preciso executar no Access várias instruções insert, conectadas em uma string; quando separo os inserts com (;) recebo a mensagem: "caracteres encontrados após o final da instrução SQL"; quando retiro o ; recebo: "ponto e vírgula faltando no final da instrução SQL"... alguém sabe a solução deste problema?

obrigado...

[Guest paulao cesar]

Ei amigos, o texto correto é esse:

Preciso executar no Access várias instruções insert, conectadas em uma string;

quando separo os inserts com vírgula recebo a mensagem: "caracteres encontrados após o final

da instrução SQL"; quando retiro a vírgula recebo: "ponto e vírgula faltando no final da

instrução SQL"... alguém sabe a solução deste problema?

obrigado...

[Visitante]

posta o godigo!!!

para uma analise mais pressisa!!!

talves o erro não seja exatamente ai!!

abraços...

[Guest paulao cesar]

Clenir, veja o código:

insert into Fotocopiadoras (PlacaFotoc,NomeFotoc,SerieFotoc,ModeloFotoc,ValorFotoc)

Values ('13','1','1','1','0,00');

insert into ClienteFotoc (NumCliFotoc,PlacaCliFotoc,CodCliFotoc,DataRegCliFotoc,DataInstCliFotoc,

CodAntCliFotoc,VendidaCliFotoc,InstaladaCliFotoc,EndInstCliFotoc,SetorInstCliFotoc,

CodCidInstCliFotoc,EstInstCliFotoc,CepInstCliFotoc,FoneInstCliFotoc) Values ('9','13','',

'01/01/2002','01/01/2020','','1','1','1','1','','TO','1','(1');

insert into Contratos (CodContr,TipoNotaContr,NumContr,VlrMensalContr,PlacaFotocContr,

NumClienteContr,DataInicioContr,QuantParcContr,QuantParcPagasContr,DataGarantiaPecas,

DataGarantiaServicos,DataGarantiaSuprimentos,QuantCopiasContr,VlrUnitExcedContr,

FranquiaQuantContr,ProcessoNumeroContr) Values ('','','1','0,00','13','','23/10/2006',1,1,

'01/01/2020','01/01/2020','01/01/2020',1,'0,00',1,'1');

insert into ImobFotoc (PlacaImobFotoc,FornImobFotoc,NFFornImobFotoc,DataNFFornImobFotoc,

VlrCompraImobFotoc,DataImobFotoc,DataBaixaImobFotoc,OrigemImobFotoc) Values ('13','',

'01/01/2020','0,00','01/01/2020','01/01/2020','01/01/2020');

thank you...

[Visitante]

talves seje por que esta faltaldo o ("&_") depois das tabelas e antes dos values!!!!

segue esse meu exemplo abaixo!!!!

COLOCA = "INSERT INTO LOGOMARCA (LOGOMARCA,LINK)" &_

"values ('"&LOGO5&"','"&LINK5&"','"&LOGO4&"','"&LINK4&"')"

conexao.execute(COLOCA)

Editando!!!!!!!

se você não conseguir desse jeito e por que você

não trabalha da mesma maneira de inclusao do que eu!!!

e se for isso não saberei como ajuda-lo!!!

posta se resolver seu ploblema ou não,pois se não,outros saberao como ajuda-lo!!!

ate +...

abraçoss....

[Guest paulao cesar]

Clenir, a montagem da string é feita da seguinte maneira:

StrSQL = "insert into Fotocopiadoras (PlacaFotoc,NomeFotoc,SerieFotoc,ModeloFotoc,ValorFotoc) Values ('" & NovoNumFotoc & "','" & request.Form("TXT_NomeFotoc") & "','" & request.Form("TXT_SerieFotoc") & "','" & request.Form("TXT_ModeloFotoc") & "','" & request.Form("TXT_ValorFotoc") & "');"

StrSQL = StrSQL & "insert into ClienteFotoc (NumCliFotoc,PlacaCliFotoc,CodCliFotoc,DataRegCliFotoc,DataInstCliFotoc,CodAntCliFotoc,VendidaCliFotoc,InstaladaCliFotoc,EndInstCliFotoc,SetorInstCliFotoc,CodCidInstCliFotoc,EstInstCliFotoc,CepInstCliFotoc,FoneInstCliFotoc) Values ('" & NovoNumCliFotoc & "','" & NovoNumFotoc & "','" & request.Form("TXT_NumCliFotoHid") & "','" & request.Form("TXT_DataRegCliFotoc") & "','" & request.Form("TXT_DataInstCliFotoc") & "','" & request.Form("TXT_NumAntCliFotocHid") & "','" & request.Form("TXT_VendidaCliFotoc") & "','" & request.Form("TXT_InstaladaCliFotoc") & "','" & request.Form("TXT_EndInstCliFotoc") & "','" & request.Form("TXT_SetorInstCliFotoc") & "','" & request.Form("TXT_NumCidInstCliFotocHid") & "','" & request.Form("TXT_EstInstCliFotoc") & "','" & request.Form("TXT_CepInstCliFotoc") & "','" & request.Form("TXT_FoneInstCliFotoc") & "');"

StrSQL = StrSQL & "insert into Contratos (CodContr,TipoNotaContr,NumContr,VlrMensalContr,PlacaFotocContr,NumClienteContr,DataInicioContr,QuantParcContr,QuantParcPagasContr,DataGarantiaPecas,DataGarantiaServicos,DataGarantiaSuprimentos,QuantCopiasContr,VlrUnitExcedContr,FranquiaQuantContr,ProcessoNumeroContr) Values ('" & NovoNumContr & "','" & request.Form("TXT_NumTiposNotasContrHid") & "','" & request.Form("TXT_NumContr") & "','" & request.Form("TXT_VlrMensalContr") & "','" & NovoNumFotoc & "','" & request.Form("TXT_NumCliFotoHid") & "','" & request.Form("TXT_DataInicioContr") & "'," & request.Form("TXT_QuantParcContr") & "," & request.Form("TXT_QuantParcPagasContr") & ",'" & request.Form("TXT_DataGarPecasContr") & "','" & request.Form("TXT_DataGarServicosContr") & "','" & request.Form("TXT_DataGarServicosContr") & "'," & request.Form("TXT_QuantCopiasContr") & ",'" & request.Form("TXT_VlrUnitExcedContr") & "'," & request.Form("TXT_FranquiaQuantContr") & ",'" & request.Form("TXT_ProcessoNumeroContr") & "');"

StrSQL = StrSQL & "insert into ImobFotoc (PlacaImobFotoc,FornImobFotoc,NFFornImobFotoc,DataNFFornImobFotoc,VlrCompraImobFotoc,DataImobFotoc,DataBaixaImobFotoc,OrigemImobFotoc) Values ('" & NovoNumFotoc & "','" & Request.Form("TXT_NumFornImobFotocHid") & "','" & Request.Form("TXT_DataNFFornImobFotoc") & "','" & Request.Form("TXT_VlrCompraImobFotoc") & "','" & Request.Form("TXT_DataBaixaImobFotoc") & "','" & Request.Form("TXT_DataImobFotoc") & "','" & Request.Form("TXT_DataImobFotoc") & "')"

thank you...

[Visitante]

Paulo desculpe,mas não consegui encontrar os erros nas suas consultas!!!!

Dei uma mexida nas aspas simples e virgulas que compoen o seu godigo!!!

se assim mesmo não der,estou perdido que nem você!!!!

Minhas ultimas tentativas são essas.

Primeira tentativa....

StrSQL = "insert into Fotocopiadoras (PlacaFotoc,NomeFotoc,SerieFotoc,ModeloFotoc,ValorFotoc) Values (" & NovoNumFotoc & "," & request.Form("TXT_NomeFotoc") & "," & request.Form("TXT_SerieFotoc") & "," & request.Form("TXT_ModeloFotoc") & "," & request.Form("TXT_ValorFotoc") & "')"

StrSQL = StrSQL & "insert into ClienteFotoc (NumCliFotoc,PlacaCliFotoc,CodCliFotoc,DataRegCliFotoc,DataInstCliFotoc,CodAntCl

iFotoc,VendidaCliFotoc,InstaladaCliFotoc,EndInstCliFotoc,SetorInstCliFotoc,CodCi

dInstCliFotoc,EstInstCliFotoc,CepInstCliFotoc,FoneInstCliFotoc) Values (" & NovoNumCliFotoc & "," & NovoNumFotoc & "," & request.Form("TXT_NumCliFotoHid") & "," & request.Form("TXT_DataRegCliFotoc") & "," & request.Form("TXT_DataInstCliFotoc") & "," & request.Form("TXT_NumAntCliFotocHid") & "," & request.Form("TXT_VendidaCliFotoc") & "," & request.Form("TXT_InstaladaCliFotoc") & "," & request.Form("TXT_EndInstCliFotoc") & "," & request.Form("TXT_SetorInstCliFotoc") & "," & request.Form("TXT_NumCidInstCliFotocHid") & "," & request.Form("TXT_EstInstCliFotoc") & "," & request.Form("TXT_CepInstCliFotoc") & "," & request.Form("TXT_FoneInstCliFotoc") & "')"

StrSQL = StrSQL & "insert into Contratos (CodContr,TipoNotaContr,NumContr,VlrMensalContr,PlacaFotocContr,NumClienteContr,

DataInicioContr,QuantParcContr,QuantParcPagasContr,DataGarantiaPecas,DataGaranti

aServicos,DataGarantiaSuprimentos,QuantCopiasContr,VlrUnitExcedContr,FranquiaQua

ntContr,ProcessoNumeroContr) Values (" & NovoNumContr & "," & request.Form("TXT_NumTiposNotasContrHid") & "," & request.Form("TXT_NumContr") & "," & request.Form("TXT_VlrMensalContr") & "," & NovoNumFotoc & "," & request.Form("TXT_NumCliFotoHid") & "," & request.Form("TXT_DataInicioContr") & "," & request.Form("TXT_QuantParcContr") & "," & request.Form("TXT_QuantParcPagasContr") & "," & request.Form("TXT_DataGarPecasContr") & "," & request.Form("TXT_DataGarServicosContr") & "," & request.Form("TXT_DataGarServicosContr") & "," & request.Form("TXT_QuantCopiasContr") & "," & request.Form("TXT_VlrUnitExcedContr") & "," & request.Form("TXT_FranquiaQuantContr") & "," & request.Form("TXT_ProcessoNumeroContr") & "')"

StrSQL = StrSQL & "insert into ImobFotoc (PlacaImobFotoc,FornImobFotoc,NFFornImobFotoc,DataNFFornImobFotoc,VlrCompraImobF

otoc,DataImobFotoc,DataBaixaImobFotoc,OrigemImobFotoc) Values (" & NovoNumFotoc & "," & Request.Form("TXT_NumFornImobFotocHid") & "," & Request.Form("TXT_DataNFFornImobFotoc") & "," & Request.Form("TXT_VlrCompraImobFotoc") & "," & Request.Form("TXT_DataBaixaImobFotoc") & "," & Request.Form("TXT_DataImobFotoc") & "," & Request.Form("TXT_DataImobFotoc") & "')"

Se não der na primeira tenta assim!!!!!!!!!!!!

StrSQL = "insert into Fotocopiadoras (PlacaFotoc,NomeFotoc,SerieFotoc,ModeloFotoc,ValorFotoc) Values ('" & NovoNumFotoc & "','" & request.Form("TXT_NomeFotoc") & "','" & request.Form("TXT_SerieFotoc") & "','" & request.Form("TXT_ModeloFotoc") & "','" & request.Form("TXT_ValorFotoc") & "')"

StrSQL = StrSQL & "insert into ClienteFotoc (NumCliFotoc,PlacaCliFotoc,CodCliFotoc,DataRegCliFotoc,DataInstCliFotoc,CodAntCl

iFotoc,VendidaCliFotoc,InstaladaCliFotoc,EndInstCliFotoc,SetorInstCliFotoc,CodCi

dInstCliFotoc,EstInstCliFotoc,CepInstCliFotoc,FoneInstCliFotoc) Values ('" & NovoNumCliFotoc & "','" & NovoNumFotoc & "','" & request.Form("TXT_NumCliFotoHid") & "','" & request.Form("TXT_DataRegCliFotoc") & "','" & request.Form("TXT_DataInstCliFotoc") & "','" & request.Form("TXT_NumAntCliFotocHid") & "','" & request.Form("TXT_VendidaCliFotoc") & "','" & request.Form("TXT_InstaladaCliFotoc") & "','" & request.Form("TXT_EndInstCliFotoc") & "','" & request.Form("TXT_SetorInstCliFotoc") & "','" & request.Form("TXT_NumCidInstCliFotocHid") & "','" & request.Form("TXT_EstInstCliFotoc") & "','" & request.Form("TXT_CepInstCliFotoc") & "','" & request.Form("TXT_FoneInstCliFotoc") & "')"

StrSQL = StrSQL & "insert into Contratos (CodContr,TipoNotaContr,NumContr,VlrMensalContr,PlacaFotocContr,NumClienteContr,

DataInicioContr,QuantParcContr,QuantParcPagasContr,DataGarantiaPecas,DataGaranti

aServicos,DataGarantiaSuprimentos,QuantCopiasContr,VlrUnitExcedContr,FranquiaQua

ntContr,ProcessoNumeroContr) Values ('" & NovoNumContr & "','" & request.Form("TXT_NumTiposNotasContrHid") & "','" & request.Form("TXT_NumContr") & "','" & request.Form("TXT_VlrMensalContr") & "','" & NovoNumFotoc & "','" & request.Form("TXT_NumCliFotoHid") & "','" & request.Form("TXT_DataInicioContr") & "','" & request.Form("TXT_QuantParcContr") & "','" & request.Form("TXT_QuantParcPagasContr") & "','" & request.Form("TXT_DataGarPecasContr") & "','" & request.Form("TXT_DataGarServicosContr") & "','" & request.Form("TXT_DataGarServicosContr") & "','" & request.Form("TXT_QuantCopiasContr") & "','" & request.Form("TXT_VlrUnitExcedContr") & "','" & request.Form("TXT_FranquiaQuantContr") & "','" & request.Form("TXT_ProcessoNumeroContr") & "')"

StrSQL = StrSQL & "insert into ImobFotoc (PlacaImobFotoc,FornImobFotoc,NFFornImobFotoc,DataNFFornImobFotoc,VlrCompraImobF

otoc,DataImobFotoc,DataBaixaImobFotoc,OrigemImobFotoc) Values ('" & NovoNumFotoc & "','" & Request.Form("TXT_NumFornImobFotocHid") & "','" & Request.Form("TXT_DataNFFornImobFotoc") & "','" & Request.Form("TXT_VlrCompraImobFotoc") & "','" & Request.Form("TXT_DataBaixaImobFotoc") & "','" & Request.Form("TXT_DataImobFotoc") & "','" & Request.Form("TXT_DataImobFotoc") & "')"

Se assim mesmo não der não sei como posso ajuda-lo.

E pelo que vi ninguém teve intereçe en tentar ajuda-lo tambem,as coisas andam dificil ultimamente por aqui!!!!

Novamente pesso desculpas....

Clenir...

abraços...