LOGIN VB6 COM BANCO DE DADOS MYSQL
Olá pessoal, estou com dificuldades para fazer o código no VB6 do login. Já tenho a tabela no MySQL. NoVB6 tenho um módulo que faz a conexão com MySQL. O código que estou fazendo é este... alguém poderia me ajudar no erro?
Obrigada!!
Private Sub cmdEntrar_Click()
If txtUsuario.Text = MyRs!login Then
MsgBox [Ô]Seja Bem Vindo ao SIGB [txt-color=#e80000]&txtUsuario&[/txt-color] ![Ô], vbInformation, [Ô]Logado[Ô]
frmPrincipal.Show
Else
MsgBox [Ô]Usuário/Senha incorretos[Ô], vbCritical, [Ô]Erro[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
End If
End Sub
Obrigada!!
Private Sub cmdEntrar_Click()
If txtUsuario.Text = MyRs!login Then
MsgBox [Ô]Seja Bem Vindo ao SIGB [txt-color=#e80000]&txtUsuario&[/txt-color] ![Ô], vbInformation, [Ô]Logado[Ô]
frmPrincipal.Show
Else
MsgBox [Ô]Usuário/Senha incorretos[Ô], vbCritical, [Ô]Erro[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
End If
End Sub
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tb_Usuarios Where Usuario = [ô][Ô] & TxtUsuario.Text & [Ô][ô]And Senha = [ô][Ô] & TxtSenha.Text & [Ô][ô]And Status =[ô]ATIVO[ô][Ô]
Rst.Open Sql, Conexao, 3
If Rst.EOF Then
MsgBox [Ô]Nome de Usuário ou Senha Incorreto.[Ô], vbExclamation, [Ô]Erro[Ô]
Else
User = TxtUsuario.Text
Mdi_Principal.Show
Unload Me
Rst.Close
Exit Sub
End If
Rst.Close
Sql = [Ô]Select * From Tb_Usuarios Where Usuario = [ô][Ô] & TxtUsuario.Text & [Ô][ô]And Senha = [ô][Ô] & TxtSenha.Text & [Ô][ô]And Status =[ô]ATIVO[ô][Ô]
Rst.Open Sql, Conexao, 3
If Rst.EOF Then
MsgBox [Ô]Nome de Usuário ou Senha Incorreto.[Ô], vbExclamation, [Ô]Erro[Ô]
Else
User = TxtUsuario.Text
Mdi_Principal.Show
Unload Me
Rst.Close
Exit Sub
End If
Rst.Close
ops... esqueci do código acima do botão entrar
Dim Sql2 As String
Dim StrSql As String
Private Sub PreencheTextbox()
Conecta True
Set MyRs = New ADODB.Recordset
StrSql = [Ô][Ô] & [Ô]select idusuario, login, senha from usuario[Ô]
MyRs.Open StrSql, Conexao, adOpenStatic, adLockReadOnly
If MyRs.RecordCount > 0 Then
txtUsuario.Text = MyRs!login
txtSenha.Text = MyRs!SENHA
Else
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
End If
[ô]MyRs.Close
[ô]Set MyRs = Nothing
Conecta False
End Sub
Private Sub cmdCancelar_Click()
End
End Sub
Private Sub cmdEntrar_Click()
If txtUsuario.Text = MyRs!login Then
MsgBox [Ô]Seja Bem Vindo ao SIGB &MyRs!login&[Ô], vbInformation, [Ô]Logado[Ô]
frmPrincipal.Show
Else
MsgBox [Ô]Usuário/Senha incorretos[Ô], vbCritical, [Ô]Erro[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
End If
End Sub
Moreira, muito obrigada pela resposta... porém eu já havia [ô]chamado[ô] a conexão... está errado assim?
Dim Sql2 As String
Dim StrSql As String
Private Sub PreencheTextbox()
Conecta True
Set MyRs = New ADODB.Recordset
StrSql = [Ô][Ô] & [Ô]select idusuario, login, senha from usuario[Ô]
MyRs.Open StrSql, Conexao, adOpenStatic, adLockReadOnly
If MyRs.RecordCount > 0 Then
txtUsuario.Text = MyRs!login
txtSenha.Text = MyRs!SENHA
Else
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
End If
[ô]MyRs.Close
[ô]Set MyRs = Nothing
Conecta False
End Sub
Private Sub cmdCancelar_Click()
End
End Sub
Private Sub cmdEntrar_Click()
If txtUsuario.Text = MyRs!login Then
MsgBox [Ô]Seja Bem Vindo ao SIGB &MyRs!login&[Ô], vbInformation, [Ô]Logado[Ô]
frmPrincipal.Show
Else
MsgBox [Ô]Usuário/Senha incorretos[Ô], vbCritical, [Ô]Erro[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
End If
End Sub
Moreira, muito obrigada pela resposta... porém eu já havia [ô]chamado[ô] a conexão... está errado assim?
Tópico encerrado , respostas não são mais permitidas