ERRO NA INSTRUCAO INSERT INTO
Ai galera, alguma solução? MARCELOHF deu para vc da uma olhada no banco de dados?
Amigo, não consegui baixar seu BD.
Zipe ele antes de postar, aàcreio que vou conseguir sem problemas.
Zipe ele antes de postar, aàcreio que vou conseguir sem problemas.
MARCELOHF, está ai o bd campactado conforme me pediu.
Mais uma vez agradeço sua ajuda.
Mais uma vez agradeço sua ajuda.
Ae galera, alguem tem mais alguma ideia?. Estou precisando desesperadamente.
Já fiz tudo que vcs me indicaram e continua dando o mesmo erro.
Já fiz tudo que vcs me indicaram e continua dando o mesmo erro.
Na query que vc postou
O erro pode estar nos campos datas: No Access campos datas são gravados no formato abaixo:
#MM/DD/YYYY# ou seja sua query deveria estar assim:
INSERT INTO Clientes(Codigo, TipoPessoa, Sede, Fantasia, RazaoSocial, DataFundacao, ClienteDesde, InscricaoEstadual, CNPJ, InscricaoMunicipal, Endereco, CEP, Bairro, Cidade, UF, Fone, Celular, Fax) VALUES (1, 1, Verdadeiro, 'Rpcinfo', 'Rpc Informatica E Serviços', #06/01/2007#, #07/10/2007#, '123654789', '123456789', '123654789', 'Rua Cap Gustavo, 3361', '60120-140', 'Joaquim Tavora', 'Fortaleza', 'CE', '3472-127', '8818-700', '3472-127')
Citação:MARCELOHF, eu fiz o teste e me retornou isso:
INSERT INTO Clientes(Codigo, TipoPessoa, Sede, Fantasia, RazaoSocial, DataFundacao, ClienteDesde, InscricaoEstadual, CNPJ, InscricaoMunicipal, Endereco, CEP, Bairro, Cidade, UF, Fone, Celular, Fax) VALUES (1, 1, Verdadeiro, 'Rpcinfo', 'Rpc Informatica E Serviços', 01/06/2007, 10/07/2007, '123654789', '123456789', '123654789', 'Rua Cap Gustavo, 3361', '60120-140', 'Joaquim Tavora', 'Fortaleza', 'CE', '3472-127', '8818-700', '3472-127')
Não consigo ve nenhum error
O erro pode estar nos campos datas: No Access campos datas são gravados no formato abaixo:
#MM/DD/YYYY# ou seja sua query deveria estar assim:
INSERT INTO Clientes(Codigo, TipoPessoa, Sede, Fantasia, RazaoSocial, DataFundacao, ClienteDesde, InscricaoEstadual, CNPJ, InscricaoMunicipal, Endereco, CEP, Bairro, Cidade, UF, Fone, Celular, Fax) VALUES (1, 1, Verdadeiro, 'Rpcinfo', 'Rpc Informatica E Serviços', #06/01/2007#, #07/10/2007#, '123654789', '123456789', '123654789', 'Rua Cap Gustavo, 3361', '60120-140', 'Joaquim Tavora', 'Fortaleza', 'CE', '3472-127', '8818-700', '3472-127')
Frau, como faço para mudar na hora de gravar então?
Valeu pela dica.
Valeu pela dica.
boa tarde cara e só vc coloca tratamento antes de Salva mais ou mesmo assim
If Len(Me.Codigo) > 0 Then
sql = sql & "," & Codigo
Else
sql = sql & ", Null "
End If
If Len(Me.Codigo) > 0 Then
sql = sql & "," & Codigo
Else
sql = sql & ", Null "
End If
Amigo, tente assim:
Ressalto que:
O Valor da variável vSede não pode ser "Verdadeiro", utilize 1 para verdadeiro e 0 para falso.
O Campo código também não pode existir na tabela, sendo assim vc tem que ter o cuidado que o conteúdo da variável codigo ainda não existe na tabela. Eu aconselharia vc manter este campo como autonumerador, evitaria erros.
Ressalto que:
O Valor da variável vSede não pode ser "Verdadeiro", utilize 1 para verdadeiro e 0 para falso.
O Campo código também não pode existir na tabela, sendo assim vc tem que ter o cuidado que o conteúdo da variável codigo ainda não existe na tabela. Eu aconselharia vc manter este campo como autonumerador, evitaria erros.
"INSERT INTO Clientes(ID, TipoPessoa, Sede, Fantasia, RazaoSocial, DataFundacao, ClienteDesde, CNPJ, Endereco, CEP, Bairro, Fone) VALUES (" & codigo & ", " & vPessoa & ", " & vSede & ", '" & txtNome.Text & "', '" & txtSocial.Text & "', #" & format(txtFundacao.Text,"MM/DD/YYYY") & "#, '#" & Format(txtDesde.Text,"MM/DD/YYYY") & "#', '" & txtCNPJ.Text & "', '" & txtEndereco.Text & "', '" & txtCEP.Text & "', '" & txtBairro.Text & "', '" & txtFone.Text & "');"
Tópico encerrado , respostas não são mais permitidas