gabrieldb

Já conferi tudo coloquei dados exatamente igual pede no banco...eu criei um modelinho pelo Data Form Wizard pra ver se era problema com o banco mais não é ele grava tudo normalmente por lá...

Consegui resolver essa parte ae mais agora apontou pra outro erro ...tá terrivel esse sistema....rsrs ele aponta pra primeira linha desse código rs("nome") = txtFantasia.Text rs("estab") = txtEstab.Text rs("razao") = txtRazao.Text rs("endereco") = txtEndereco.Text rs("bairro") = txtBairro.Text rs("cidade") = txtCidade.Text rs("estado") = txtEstado.Text rs("cep") = txtCep.Text rs("cnpj") = txtCnpj.Text rs("inscricao") = txtInscricao.Text rs("ccm") = txtCcm.Text rs("diaemissaonf") = txtDianf.Text rs("implantacao") = txtImplant.Text rs("vencimento") = txtVenc.Text rs("fonee") = txtFone1.Text rs("fone") = txtFone2.Text rs("fax") = txtFax.Text rs("email") = txtEmail.Text rs("site") = txtSite.Text rs.Update Run-time error'-2147217887 (80040e21)': Operação de várias etapas gerou erros.Verifique cada valor de status. Já comparei as tabelas e tá tudo certo com elas....os nomes dos texts...

Bom dia galera to com um sistema com um módulo e um form : Public Conex As ADODB.Connection Public AccessConnect As String Public Sub conexao() Set Conex = New ADODB.Connection AccessConnect = "Provider=PostgreSQL.1;Password=;User ID=postgres;Data Source=localhost;Location=Sistema Deluca;Extended Properties=" Conex.Open AccessConnect End Sub Private Sub cmdSalvar_Click() Dim rs As New ADODB.Recordset Call conexao rs.Open "select * from clientes", "Provider=PostgreSQL.1;Password=;User ID=postgres;Data Source=localhost;Location=Sistema Deluca;Extended Properties=", adOpenDynamic, adLockOptimistic rs.AddNew rs("nomefantasia") = txtFantasia.Text rs("tipestab") = txtEstab.Text rs("razaosocial") = txtRazao.Text rs("endereco") = txtEndereco.Text rs("bairro") = txtBairro.Text rs("cidade") = txtCidade.Text rs("estado") = txtEstado.Text rs("cep") = txtCep.Text rs("cnpj") = txtCnpj.Text rs("inscricaoestadual") = txtInscricao.Text rs("ccm") = txtCcm.Text rs("diaemissaonf") = txtDianf.Text rs("dataimplantacao") = txtImplant.Text rs("diavencimento") = txtVenc.Text rs("fonee") = txtFone1.Text rs("fone") = txtFone2.Text rs("fax") = txtFax.Text rs("email") = txtEmail.Text rs("site") = txtSite.Text rs.Update End Sub Meu problema é o seguinte na hora que eu clico no botão salvar ele dá o seguinte erro "Run-time erro '3251':" e aponta pro "rs.AddNew" e não salva nada no banco alguém pode me ajudar ?