Aew Rapaziada ... tenho essa rotina ai embaixo, porém não está funcionando, quero o seguinte, que antes de fazer a inclusão de um novo registro verifique no banco de dados se o registro já existe, setando determinados campos.

 Dim rsjaexiste As New ADODB.Recordset
   
    sql = " select ncheque, cpf, banco from tbl_dados_cheque " & _
          " where ncheque = '" & ncheque & "'" & _
          " and banco = '" & banco & "'" & _
          " and cpf = '" & cpf & "'"
         
    rsjaexiste.Open sql, Cnn, adOpenStatic, adLockReadOnly
    
    If rsjaexiste.RecordCount = 0 Then

        sql = " insert into tbl_dados_cheque (nome,cpf,credor,pc,banco,ncheque,valor,conta,agencia,vencimento,emissao,recibo,recenvmtz,dtacheg,dtaentre,tipoentrega ) Values ( '" & _
                                             Trim(txtnome.Text) & "','" & _
                                             Trim(txtcpf.Text) & "','" & _
                                             Trim(dbccredor.Text) & "','" & _
                                             Trim(txtpc.Text) & "','" & _
                                             Trim(dbcbanco.Text) & "','" & _
                                             Trim(txtncheque.Text) & "','" & _
                                             Trim(txtvalor.Text) & "','" & _
                                             Trim(txtconta.Text) & "','" & _
                                             Trim(txtagencia.Text) & "','" & _
                                             Trim(txtvencimento.Text) & "','" & _
                                             Trim(txtemissao.Text) & "','" & _
                                             Trim(txtrecibo.Text) & "','" & _
                                             Trim(txtrecenvmtz.Text) & "','" & _
                                             Trim(txtdtacheg.Text) & "','" & _
                                             Trim(txtdtaentreg.Text) & "','" & _
                                             Trim(txttipoentrega.Text) & "')"
                                            
      Cnn.Execute sql
     
      MsgBox " Registro incluso com sucesso !!", vbInformation, " Controle de Cheques - Confirmação !! "
     
      txtnome.SetFocus
     
      Else
             
      MsgBox " Já existe um registro com essas informações, verifique!", vbInformation, " Atenção !!! "
     
    End If
   

Interessante, mas quebre a sql, e tire os espaços a mais que existem:

  sql = "select ncheque, cpf, banco from tbl_dados_cheque"
  sql = sql & " where ncheque = '" & ncheque & "'"
  sql = sql & " and banco = '" & banco & "'"
  sql = sql & " and cpf = '" & cpf & "'"

 

vlu// 

Opa .. cara .. eu fiz como vc mandou ai .. porém fiz um passo a passo na função, a SQL ta certa porém quando chega na parte " IF rsjaexiste.recordcount = 0 ", o resultado fica 0, por isso ele inclui. O Unico problema é que peguei um registro que já está incluso para fazer o teste, mesmo assim está incluindo ...

 

os campos do banco de dados que não podem estar iguais são esse.:

 

cpf

ncheque

banco

 

a sql tem que setar primeiro os campos do bd ou os da aplicação ?

 

Grato.

 

Att

Michel Morgado - Administrador de redes

Primeiro o BD, veja, os que estão entre &  &, são considerados varáveis, voce viu se estão agregados, com o valor correto, normalmente, vem de um TextBox ou ComboBox, verifique se as variáveis estão corretas, com um break-point.

 

vlu//

Voce pode tentar, assim, supondo que sejam de Texts:

  sql = "select ncheque, cpf, banco from tbl_dados_cheque"
  sql = sql & " where ncheque='" & Textcheque.Text & "'"
  sql = sql & " and banco='" & Textbanco.Text & "'"
  sql = sql & " and cpf='" & Textcpf.Text & "'"

 

vlu//

 

 

Sim cara os campos são textos, porém está faltando alguma coisa. Vou deixar pra amanhã que a cabeça esta mais tranquila ehhe .. brigadão pela força ... quando eu conseguir, posto aqui para informar como foi !.

 

Grato

 

Att

Michel Morgado