Visual Basic

[Junior De Santi]

Boa tarde Pessoal, estou fazendo um cadasrtro de clientes usando a base de dados em SQL quando eu passo o comando abaixo para que o usuário seja avisado que o nome do cliente que ele está tentando cadastrar já existe, da o seguinte erro e não estou conseguindo corrijir(object variable or with block variable not set). Será que a alguém pode me ajudar?

Private Sub txtnome_LostFocus()

Dim Sql$, Sn As ADODB.Recordset

Sql = "Select Nome From cliente"

If Txtnome = Sn("Nome") Then

MsgBox "Presta Atenção! Este nome já está cadastrado", vbCritical, "Atenção"

Else

Exit Sub

End If

End Sub

Muito obrigado a todos.

Editado Abril 20, 2009 por Junior De Santi

[Jonathan Queiroz]

Você teria que usar a propriedade eof de seu recordset

O ideal é você fazer sua busca assim:

sql="Select nome from cliente where nome='" & nome & "'"

Depois você apenas verifica se já existe um registro assim

Obs.:

Ali ainda falta o código para realizar a consulta no bd, você apenas definiu uma string com o valor da consulta

[Junior De Santi]

Você teria que usar a propriedade eof de seu recordset

O ideal é você fazer sua busca assim:

sql="Select nome from cliente where nome='" & nome & "'"

Depois você apenas verifica se já existe um registro assim

Obs.:

Ali ainda falta o código para realizar a consulta no bd, você apenas definiu uma string com o valor da consulta

Obrigado pela dica.