Ae ghost , firmeza irmao, achei o erro, muito obrigado cara , de novo, olha só agora com o form desconectado algumas coiass mudam ne irmao, tipo pra limpar os campos antes da inclusao , nao se pode usar mais addNew, eu uso com tipo

 

txttest.text = ""

 

Usa assim ?

 

eo Incluir nao funciona mais ele da erro. como vc faz pra incluir ns seus projetos ? usando insert into

Eu digo isso porque eu nao posso usar o

Rspropri.Requery que da erro

eu nao posso Usar o rspropri...que da erro

mas se eu ano usar eles, na hora que eu incluo , eu nao consigo atualizar a minha tbl e nao consigo mover o recordset pra proximo registro depois da inclusao da uma olhada...todos esses marcados eu tenho que tirar, mas se eu tirar nao funciona

 

Private Sub cmdincluir_Click()

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

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

If rsA.EOF Then

 

 

Dim sqlQuery As String
 
txtdataCad = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
 
sqlQuery = "insert into Tbl_Proprietarios (Codigo, Nome, RazaoSocial, Conjuge, Nacionalidade, NacionalConjuge, Profissao, ProfConjuge, EstadoCivil, DataCad) Values (" & txtcod & ",'" & txtproprietario.Text & "','" & txtrazao & "','" & txtconjuge & "','" & txtnacional.Text & "','" & txtconjugeNacional & "','" & TxtProfissao.Text & "','" & txtProfissaoConjuge & "','" & txtestadocivil & "','" & txtdataCad.Text & "')"

cnBd.Execute (sqlQuery)
rspropri.Requery

MsgBox "Inclusão Efetuada com Sucesso", vbInformation
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
   rspropri.MoveNext

End Sub

Eu faço tudo por SQL: Gravar, consultar, deletar, alterar.

 

Os recordsets que uso são locais e, por certas vezes, temporários. Servem para mostrar um grid por exemplo... depois que eu uso fecho e libero memória.

 

As conexões, como eu citei, inicializo 1 única vez em um único local.

O "requery" eu uso apenas para tirar o filtro de uma consulta... exemplo:

 

Lista de todos os clientes: Rs.Open "SELECT cliente FROM Clientes"

Depois eu filtro: Rs.Filter = "Cliente like 'J%'"

Depois eu retiro o filtro: Rs.Filter = 0:Rs.Requery

 

lembrando q vc trabalha com datas em SQL na formatação: "YYYY/MM/DD" ou "MM/DD/YYYY", prefiro a primeira pois não confunde. Se for access use as datas entre "#", textos entre "'" e números e booleanos são normais.

 

qq problema é só postar

 

at+

Sim , mas nesse caso de inclusao eu nao inicio o banco novamente, simplismente , se eu tiro esses paramentros que eu citei , ele chega a incluir, mas nao sei como atualizar a tbl , pra que o formulario nao trave, e realmente o excluir , deve ta errado porque ele da pau tambem, a consulta ao registro eu consegui fazer da certo e tal, mas o incluir e excluir nao, eu nao programava assim, nao sei muito bem como fazer agora, falaram que agora desse jeito é melhor pra usar o sistema em rede e tal o acesso é mais rapido.

incluir:

 

SQL = "INSERT INTO TABELA (CAMPO_TEXTO,CAMPO_NUMERICO) VALUES ('JOAO',25)"

 

excluir:

 

SQL = "DELETE FROM TABELA WHERE CODIGO = 3"

 

alterar:

 

SQL = "UPDATE FROM TABELA SET NOME = 'JOSE' WHERE CODIGO = 3"

 

consultar:

SQL = "SELECT CAMPO1,CAMPO2 FROM TABELA"

 

Para executar:

 

nos 3 primeiros casos:

 

CONEXAO_ADO.EXECUTE SQL

 

no último caso (consulta)

 

Set RECORDSET = CONEXAO_ADO.EXECUTE(SQL)

 

 

Certo colega?

 

Qq dúvida posta

 

at+

pow amigo , isso ae eu saquei, valew pelos exemplos irmao, mas veja só cara, o metodo de inclusao e exclusao eu saquei , o problema é que eu nao consigo atualizar o formulario , veja só esse codigo abaixo, é um codigo para excluir, ele exclui, mas no formulario o registro ainda fica la , só quando eu abro e fecho o formulairo de novo é que ele some , é que ele atualiza....nao sei como fazer pra atualizar na hora da exclusao , inclusao etc, parece que o recordset nao faz mais efeito na hora de dar um movenext por exemplo, alias se deixa o move next na Inclusao ate da erro

 

Dim SQLEX As String
'verificando se o banco de dados possui dados!!!
   
If rspropri.EOF = True And rspropri.BOF = True Then
    MsgBox "O Banco de Dados Está Vazio", vbCritical, "|||| Cadastrado Delete ||||"
    'faz diminuir a contagem de registros
    Label1.Caption = "Total de Registros : " & rspropri.RecordCount

    Exit Sub
End If

 

'Confirmando Exclusão
If MsgBox("Você Deseja Realmente Apagar esse Registro?", vbInformation + vbYesNo, "|||| Cadastrado Delete ||||") = vbYes Then
    SQLEX = "DELETE FROM Tbl_Proprietarios WHERE CodigoAuto =" & txtcodauto
    cnBd.Execute SQLEX
  

    rspropri.MoveNext

    'faz diminuir a contagem de registros
    Label1.Caption = "Total de Registros : " & rspropri.RecordCount

    MsgBox "Cadastrado Excluído com Sucesso!", vbInformation, "|||| Cadastrado Delete ||||"
    
       
    If rspropri.EOF Then
       rspropri.MoveMax
    End If
Else
    Exit Sub
End If
  
'verificando se o banco de dados possui dados!!!

If rspropri.EOF = True And rspropri.BOF = True Then
    MsgBox "O Banco de Dados Está Vazio", vbCritical, "|||| Cadastrado Delete ||||"
    Exit Sub
End If
Exit Sub