ME AJUDEM COMO FAZ UM SISTEMA DE LOGIN MYSQL NO VB
Hummmmmmmmmmmmmmmmm.
Google,digite.
login vb.net mysql
Quem souber me ajuda pf
objconn.open
Dim SQLComando As New MySqlCommand
Dim SQLDTReader As MySqlDataReader
SQLComando.Connection = objconn
SQLComando.CommandText = [Ô]Select * FROM SuaTabela [ô][Ô])
SQLDTReader = SQLComando.ExecuteReader()
If SQLDTReader.HasRows = 0 Then
SQLDTReader.Close()
SQLComando.Dispose()
[ô]MsgBox([Ô]NÃO ENCONTRADO[Ô], MsgBoxStyle.Critical, [Ô]AVISO[Ô])
EXIT SUB
End If
SQLDTReader.Read
MSGBOX(SQLDTReader.Item([Ô]CAMPODATABELA[Ô]).ToString)
eu alterei o MSGBOX(SQLDTReader.Item([Ô]CAMPODATABELA[Ô]).ToString)
para : MSGBOX(SQLDTReader.Item([Ô]usuario,senha[Ô]).ToString)
ainda ta dando erro me ajuda pf,vou te manda o projeto ai tu deixa os locais para eu editar.
Me ajuda pf,unico forum q tou recebendo ajuda.
Citação:para : MSGBOX(SQLDTReader.Item([Ô]usuario,senha[Ô]).ToString)
Não, ai vc coloca só um campo.
O Datareader estra sendo lido, então ali ele le campo a campo.
O que te mostrei foi um exemplo de como trazer dados.
Citação:strsql = [Ô]select Nome,Senha from usuarios where Nome=@fieldl and Senha=@field2[Ô]
objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)
With objcmd
.Parameters.AddWithValue([Ô]@fiel1[Ô], txtusername.Text)
.Parameters.AddWithValue([Ô]@field2[Ô], txtpassword.Text)
End With
objcmd.ExecuteNonQuery()
objconn.Open()
Dim SQLComando As New MySqlCommand
Dim SQLDTReader As MySqlDataReader
SQLComando.Connection = objconn
SQLComando.CommandText = ([Ô]Select * FROM usuarios [ô][Ô])
SQLDTReader = SQLComando.ExecuteReader()
If SQLDTReader.HasRows = 0 Then
SQLDTReader.Close()
SQLComando.Dispose()
[ô]MsgBox([Ô]NÃO ENCONTRADO[Ô], MsgBoxStyle.Critical, [Ô]AVISO[Ô])
Exit Sub
End If
SQLDTReader.Read()
MsgBox(SQLDTReader.Item([Ô]usuario[Ô]).ToString)
objdr = objcmd.ExecuteReader
If (objdr.Read()) Then
MsgBox([Ô]Bem Vindo Ao X-TV[Ô], MsgBoxStyle.Information)
objcmd.Dispose()
objdr.Close()
Form3.Show()
Me.Close()
Else
MsgBox([Ô]Error! Usuario ou Senha incorretos![Ô], MsgBoxStyle.Critical)
End If
objcmd.Dispose()
objdr.Close()
End Sub
Eu botei assim meu codigo está assim e permanece o erro,me ajuda sou iniciante.
com o problema de vc não conseguir. Tem um .Clone ali, acho que vc queria um .Close e nem viu. mas eu não fechei o banco se não, vc vai ter que abrir novamente para fazer o login.
Então deixa seu form1 assim:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Conecção sem akele form ok :) faz; assim agr oh
objconn = New MySqlConnection
objconn.ConnectionString = [Ô]host=nag64;user id=root;password=170863; database=nag_comercial[Ô]
Try
objconn.Open()
Label3.Text = [Ô]Status: Online[Ô]
Label3.ForeColor = Color.Green
[ô]objconn.Dispose()
[ô]objconn.Clone
[ô]objconn.Close
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Label3.Text = [Ô]Status: Offline[Ô]
Label3.ForeColor = Color.Red
End Try
End Sub
[ô]E O LOGIN ASSIM: ESTA FUNCIOANDO.
Dim SQLComando As New MySqlCommand
SQLComando.Connection = objconn
strsql = [Ô]select Nome,Senha from nag_usuarios where Nome=@fiel1 and Senha=@fiel2[Ô]
SQLComando.CommandText = (strsql)
With SQLComando
.Parameters.Add(New MySqlParameter([Ô]@fiel1[Ô], txtusername.Text))
.Parameters.Add(New MySqlParameter([Ô]@fiel2[Ô], txtpassword.Text))
[ô].Parameters.Add([Ô]@fiel1[Ô], txtusername.Text)
[ô].Parameters.Add([Ô]@field2[Ô], txtpassword.Text)
End With
objdr = SQLComando.ExecuteReader
If (objdr.Read()) Then
MsgBox([Ô]Bem Vindo Ao X-TV[Ô], MsgBoxStyle.Information)
objdr.Close()
Form2.Show()
Me.Close()
Else
MsgBox([Ô]Error! Usuario ou Senha incorretos![Ô], MsgBoxStyle.Critical)
End If
objdr.Close()
End Sub