VERIFICAR SE EXISTE NOME DIGITADO

ELMO01 29/04/2011 09:32:22
#372777
Bom dia pessoal,

Ao digitar um nome em um textbox, tenho que fazer uma verificação em meu banco de dados se já existe o nome digitado, mas o código que fiz não me fala se já existe o nome. Por favor de uma olhada no código abaixo e me fale o que estou fazendo de erra do nele.

Private Sub Txt_AssNom_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt_AssNom.KeyPress
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
Dim Acha_ValProc As String
Acha_ValProc = [Ô]SELECT * FROM associados where matricula_associado = [ô][Ô] & Txt_AssNom.Text & [Ô][ô][Ô]
Dim Acha_Conn As New MySqlConnection(StrAssoc)
Dim Acha_Cmd As New MySqlCommand(Acha_ValProc, Acha_Conn)
Dim Acha_dr As MySqlDataReader
Acha_Conn.Open()
Acha_dr = Acha_Cmd.ExecuteReader
If Acha_dr.Read Then
[ô]
[ô] Se achou o nome apareçer mensagem
[ô]
MessageBox.Show([Ô]Usuário já cadastrado!![Ô], [Ô][Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
Txt_AssNom.Clear()
Txt_AssNom.Focus()
End If
SendKeys.Send([Ô]{tab}[Ô])
Acha_Conn.Close()
Acha_dr.Close()
End If
End Sub

Obrigado,
ELMO01 29/04/2011 09:40:39
#372780
Se o nome existir, me retorna uma mensagem [Ô]NOME JÁ CADASTRADO[Ô] senão pula para o próximo campo digitável
FROSTYNHO 29/04/2011 10:54:25
#372785 Resposta escolhida 
    Private myCON As MySql.Data.MySqlClient.MySqlConnection
    Private myCMD As MySql.Data.MySqlClient.MySqlCommand
    Private myDRR As MySql.Data.MySqlClient.MySqlDataReader
    [ô] Conexão MySQL
    Private Const sHost = [Ô]127.0.0.1[Ô]
    Private Const sUsuario = [Ô]root[Ô]
    Private Const sSenha = [Ô]hackme[Ô]
    Private Const sDataBase = [Ô]meu_db[Ô]

    Public Sub ConnectMySQL() [ô] Conecta no MySQL
        myCON = New MySql.Data.MySqlClient.MySqlConnection([Ô]server=[Ô] & sHost & [Ô];user id=[Ô] & sUsuario & [Ô];password=[Ô] & sSenha & [Ô];database=[Ô] & sDataBase)
        myCON.Open()
    End Sub

    Public Sub DesconnectMySQL() [ô] Desconecta do MySQL
        myCON.Close()
    End Sub

    Private Sub Txt_AssNom_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt_AssNom.KeyPress
        myCMD = New MySql.Data.MySqlClient.MySqlCommand([Ô]SELECT * FROM associados Where matricula_associado=[ô][Ô] & Txt_AssNom.Text & [Ô][ô][Ô], myCON)
        myDRR = myCMD.ExecuteReader()
        If myDRR.HasRows = True Then
            MessageBox.Show([Ô]Usuário já cadastrado!![Ô], [Ô][Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Txt_AssNom.Clear()
            Txt_AssNom.Focus()
        Else
            SendKeys.Send([Ô]{tab}[Ô])
        End If
        myDRR.Close()
        myCMD.Dispose()
    End Sub


Adicione Referencia a MySql.Data.dll
PEGUDO 29/04/2011 11:20:38
#372789
Tem um exemplo aqui: EXEMPLO DE CONFIRMAÇÃO
ELMO01 29/04/2011 12:58:54
#372805
Ai pessoal - deu certo - muito obrigado pelas dicas
Tópico encerrado , respostas não são mais permitidas
Voltar