Pessoal,

Ja estou ficando louco...

Abro um BD, Abro uma tabela, etc... consulto registros, agora o curioso é que não consigo GRAVAR novas informações.

 

Peço auxilio

Que coisa!

 

vc incluir ou alterar ? esta dando erro  ? posta seu codigo pra nos...... o meu eu faço assim :

 

no general

Private Sql As String

Dim rsA As ADODB.Recordset

 

 

No botao

 

 

Sql = "Select Codigo From Tbl_Proprietarios Where Tbl_Proprietarios.Codigo = " & Trim(txtcod) & " and  Tbl_Proprietarios.Nome = '" & Trim(txtproprietario) & "'"

 

 

Set rsA = New ADODB.Recordset
Set rsA = cnBd.Execute(Sql)

If rsA.EOF Then

Dim sqlQuery As String
 
sqlQuery = "insert into Tbl_Proprietarios (Codigo, CodImob, Nome, RazaoSocial, Conjuge) Values (" & txtcod & "," & txtcodimob & ",'" & txtproprietario.Text & "','" & txtrazao & "','" & txtconjuge & "')"

cnBd.Execute (sqlQuery)

 
MsgBox "Inclusão Efetuada com Sucesso", vbInformation, "|||| Confirmação de Inclusão ||||"

Else

  rspropri.Delete
   
  MsgBox "Este Nome ja Consta no Cadastro, Cancele a Operação!", vbInformation, "|||| Registro Inválido ||||"

  rspropri.MoveMax
   
  Exit Sub

End If

    rsA.Close

 ps: no insert nao vai campos autonumeracao

Hummm..

Eu estou tentando assim:

  Rcset.AddNew
          
           Rcset("Razao") = TXTRAZAO.Text
           Rcset("Cnpj") = TXTCNPJ.Text
           Rcset("Cpf") = TXTCPF.Text
           Rcset("Codigo") = TXTCODIGO.Text
          
           Rcset.Update
       
           TXTRAZAO.Text = ""
           TXTCNPJ.Text = ""
           TXTCPF.Text = ""
           TXTCODIGO.Text = ""
                    
           Adodc1.Refresh

 

 

humm vc usa objeto, amigo eu sei que isso é uma coisa que talvez vc nao queira, mas nao acha melhor mudar pra SQL, eu tenho um projeto de dois forms e um modulo com conexao e cadastro com incluir , alterar , excluir , paginar....muito facil...se quiser migrar, é rapido...sobre esse tipo de inclusao fico devendo nao sei te dizer o melhor jeito pra fazer

KoRn
E para os CAMPOS AUTO NUMERAÇÃO, como voce procede?

OK KoRn
Gostaria de dar uma olhada nesse projeto. Se vc puder disponibilizar, estou aguardando.