Erro 3075

[Guest Manuel Mandado Belloso Junior]

Bom dia, estou tentando passar um insert para o Access via VB, só que a instrução está muito grande, e o VB acaba dando o erro 3075. Se eu pegar esta instrução no immediate do VB e colocar no access, ela funciona normalmente, agora passando pelo o VB, dá o erro. Alguém sabe alguma forma de resolver isto sem ser fazer o insert e depois o update??

[William Rodrigues]

Vix...

Poste seu código para olharmos ;)

Obs: Coloque também o erro e sua descrição!

Abraços,

William Rodrigues

[Guest Visitante]

O erro é o seguinte: Run-time error '3075'

Erro de sintaxe na sequencia de caracteres na expressão de consulta''

A instrução SQL é a seguinte:

Cmd_Sql = "Insert Into Nota_Fiscal (Aliq_Icms, Aliq_Icms_Frete, Aliq_Icms_Sub, Aliq_Icms_Sub_Frete, Bairro_Cliente, Bairro_Cobranca, Base_Icms, Base_Icms_Sub, Base_Icms_Frete, Base_Icms_Sub_Frete, Canal, Categoria_Fiscal, Centro, Cgc_Entrega, Cgc_Cliente, Cgc_Cobranca, Cpf_Entrega,Cpf_Cliente,Cpf_Cobranca, Cpf_Transporte, Cd_Cliente, Cd_Entrega, Cd_Cobranca, Cd_Transporte, Cd_Produto, Centro_Cityc, Cep_Cliente, Cep_Entrega, Cep_Cobranca, Cfop, Cityc, Clas_Fisc, Codigo_Imposto, Comp_Dsc_Produto, Condicao_Expedicao, Corpo_Nota_1, Corpo_Nota_2, Corpo_Nota_3, Corpo_Nota_4, Corpo_Nota_5, Corpo_Nota_6, Corpo_Nota_7, Corpo_Nota_8, Corpo_Nota_9, Dados_Adicionais_0, Dados_Adicionais_1, Dados_Adicionais_2, Dados_Adicionais_3, Dados_Adicionais_4, Dados_Adicionais_5, Dados_Adicionais_6, Dados_Adicionais_7, Dados_Adicionais_8, Dados_Adicionais_9, Dados_Adicionais_10, Data_Emissao, Data_Saida, Data_Vencimento, Deposito, Dif_Aliq, Direito_Fiscal_Icms, Direito_Fiscal_Ipi, Domicilio_Fiscal, Dsc_Produto, Especie, " & _

' "Endereco_Cliente, Endereco_Entrega, Endereco_Cobranca, Endereco_Transporte, Frota_Jnv, Hora_Saida, Icms, Icms_Frete, Icms_Sub, Icms_Sub_Frete, Inco1, Inco2, Insc_Est_Cliente, Insc_Est_Entrega, Insc_Est_Icms_Sub, Marca, Municipio_Cliente, Municipio_Entrega, Municipio_Cobranca, Municipio_Transporte, Natureza_Operacao, Nome_Motorista, Norma, Numero, NumNot, Pauta_Fiscal, Peso_Bruto, Peso_Liquido, Placa_Veiculo, Por_Conta, Quantidade, Razao_Social_Cliente, Razao_Social_Entrega, Razao_Social_Cobranca, Razao_Social_Transporte, Sit_Trib, Taxa_Subst_Trib, Telefone_Cliente, Texto_Icms_Sub, Tx_Ipi, Uf_Cliente, Uf_Entrega, Uf_Cobranca, Uf_Transporte, Uf_Centro, Uf_Veiculo, Unidade_Peso, Va_Unitario, Va_Ipi, Valor_Total_Frete, Valor_Total_Nota, Valor_Unitario_Frete, Valor_Total_Produto, Zterm, Fl_Sap, Cd_Ordem, Cd_Contrato, Cd_Motorista, Va_DescBoleto, Cd_DocVenda, Placa_Silo, Uf_Silo, Nu_Conhecimento, CTRC ) Values (18, 12, 18, 18, 'JD PIRITUBA', 'JD PIRITUBA', " & _

' " 1839, 0, 2085, 0, '31', '01', 'BTSA', '45.784.204/0001-07', '45784204000107" & _

' " ', '45.784.204/0001-07', '', '', '', '', '0002100025', '0002513590', '0002100025', '', '10005659', '4780', '02985-000', '', '', '5101A', '5030', '25232990', 'I3', 'NBR - 5733/91 DA ABNT', '01', '', 'ARTIGO 316 - RICMS/SP DECRETO 45.490/00 - RESPONSAVEL PELO PAGAMENTO DO ICMS : O EMITENTE', 'FRETE: 2085,00 BASE ICMS S/FRETE: 2085,00 ALIQ.:ICMS: 12,00 % ICMS S/FRETE : 250,20', 'MOTORISTA:', '', '', '', '', '', 'END. ENTREGA: RUA TUFIK MEREB NR 100', 'CEP/BAIRRO/CIDADE/UF: /JD PIRITUBA/são PAULO/SP', 'CGC/INSCR.EST.: 45.784.204/0001-07 / 108.845.065-112', 'C. FISCAL/CENTRO: 25232990/BTSA----> PORT.:C.PAGTO.: Z025', 'NBR - 5733/91 DA ABNT', 'Atraso pagto=Juros : 1,00% am + Encargos Cobrança: 10,00% am', '', '', '', '', '', CvDate('10/11/2006'), CvDate('10/11/2006'), CvDate('05/12/2006'), ' ', 0, 'IC0', 'IP0', 'SP', 'CP V-ARI-PLUS CIM.ALTA RESIST.INICIAL', 'SC', 'RUA TUFIK MEREB NR 100', 'RUA TUFIK MEREB NR 100', 'RUA TUFIK MEREB NR 100', '', '0000', CvDate('15:53:00'), " & _

' "331.02, 250.2, 0, 0, 'CIF', 'I', '108.84" & _

' "5.065 - 112 ', '108.845.065-112', '', 'Ciminas', 'são PAULO', 'são PAULO', 'são PAULO', '', '- VENDA PRODUCAO DO ESTABELECIMENTO', '', 'NBR - 5733/91 DA ABNT', 'SC', '500596', 0, 7.524, 7.5, '', '1', 150, 'A J PAES E CIA LTDA [0002513590]', 'A J PAES E CIA LTDA [0002513590]', 'A J PAES E CIA LTDA [0002100025]', '', '000', 1.2, '11 3985-3030', '', '4', 'SP', 'SP', 'SP', '', 'SP', '', 'TN', 12.26, 73.56, 2085, 1912.56, 13.9, 1839, 'Z025', 0, ' ', ' ', '', 0, ' ', '', '', '', 'N')"

[Guest Odilon_VB]

Bom dia, estou tentando passar um insert para o Access via VB, só que a instrução está muito grande, e o VB acaba dando o erro 3075. Se eu pegar esta instrução no immediate do VB e colocar no access, ela funciona normalmente, agora passando pelo o VB, dá o erro. Alguém sabe alguma forma de resolver isto sem ser fazer o insert e depois o update??

concatene duas variaveis !!!

stringa = "Select .....¨

stringb = Where ....

grava a & b

Um abraço