EVITAR NOME DUPLICADO AO SAIR DE CAMPO TEXTO

SANROMAN 29/09/2013 12:43:43
#429394

Bom dia,

Tenho um sistema de cadastro de usuário e gostaria de saber qual o código a implantar no campo txtLogin quando o mesmo perder o foco.

Fiz uma consulta no sql e criei um função para essa consulta, segue abaixo o código da função:
Private Function evitaDuplicacao() As Boolean

Dim sqlCmd As String = [Ô]SELECT log_usuario, COUNT(log_usuario) FROM TBusu_login GROUP BY log_usuario HAVING COUNT (log_usuario) >1[Ô]

con = New SqlConnection(strCon)
cmd = New SqlCommand(sqlCmd, con)

Try
con.Open()
dr = cmd.ExecuteReader
Return True
Catch ex As Exception
MsgBox([Ô]Não foi possivel conectar ao banco de dados. Erro: [Ô] & vbCrLf & ex.ToString, MsgBoxStyle.Information, [Ô]Erro ao conectar.[Ô])

Finally
con.Dispose()
cmd.Dispose()

End Try

Return False

End Function

Ai que mora o problema, como colocar essa pesquisa no campo txtLogin.text ao perder foco.

Espero que possam me ajudar.

San Roman