EVITAR NOME DUPLICADO AO SAIR DE CAMPO
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
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
Então vamos lá.
Encerra este tópico e abra um novo no Vbnet.
Este não é o lugar correto.
Valeu Maluco.
Encerra este tópico e abra um novo no Vbnet.
Este não é o lugar correto.
Valeu Maluco.
Valeu a dica Omar
Estou seguindo a sua orientação
San Roman
Estou seguindo a sua orientação
San Roman
Tópico encerrado , respostas não são mais permitidas