VERIFICA SE JA ESTA CADASTRADO

LEARDINI 08/12/2010 10:08:34
#359059
E aew galera bom dia.

Mais uma vez estou aqui com dúvidas, preciso saber se um Nome de Cliente já está cadastrado no banco de Dados Access se está Informa que o nome já tem e se não cadastra.. a parte de cadastro está OK, meu problema é na consulta, no meu código sempre informa que pode gravar. Acho que o erra é na comparação mas não sei como resolver.

  
        Dim SQL As String

        SQL = ([Ô]SELECT nome FROM pessoas WHERE nome LIKE [ô][Ô] & txtBusca.Text & [Ô]%[ô][Ô])

        If SQL = txtBusca.Text Then
            [ô]//grava
            MsgBox([Ô]não grava[Ô])
        Else
            [ô]//não grava
            MsgBox([Ô]grava[Ô])
        End If


Agradeço desde Já a atenção
ADHEL 08/12/2010 10:41:29
#359061 Resposta escolhida
Eu faria essa comparação no evento lostfocus do cpf na tela de cadastro de clientes.
Porque existe o mesmo nome para várias pessoas.
Seria mais ou menoss assim



sql = [Ô]SELECT * FROM Clientes WHERE CPF = [ô][Ô] & txtCpf.Text & [Ô][ô][Ô]
CMD = New OledbCommand(sql, Cnn)
Dim leitor As OledbDataReader = CMD.ExecuteReader

If leitor.Read = True Then
MsgBox([Ô]ESTE CLIENTE JÁ ESTÁ CADASTRADO[Ô], MsgBoxStyle.Information, [Ô]ATENÇÃO[Ô])
txtBairro.Text = leitor.Item([Ô]Bairro[Ô]).ToString
txtCidade.Text = leitor.Item([Ô]Cidade[Ô]).ToString
txtContato.Text = leitor.Item([Ô]Contato[Ô]).ToString
txtCpf.Text = leitor.Item([Ô]Cpf[Ô]).ToString
txtEmail.Text = leitor.Item([Ô]Email[Ô]).ToString
txtEndereco.Text = leitor.Item([Ô]Endereco[Ô]).ToString
txtId.Text = leitor.Item([Ô]Id[Ô]).ToString
txtRazaoSocial.Text = leitor.Item([Ô]Razao_Social[Ô]).ToString
txtNomeFantasia.Text = leitor.Item([Ô]Nome_Fantasia[Ô]).ToString
txtRg.Text = leitor.Item([Ô]RG[Ô]).ToString
else

comando para gravar
End If

leitor.close
LEARDINI 09/12/2010 13:06:38
#359189
vlw.. consegui resolver
Tópico encerrado , respostas não são mais permitidas
Voltar