Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Luukiinhaas

Classes de Acesso e Banco de Dados

Recommended Posts

Oi, esse é meu primeiro post no forum

Gostaria de ajuda com o seguinte, criei um sistema de login, e preciso implementar classes de acesso, isso fara parte do meu projeto de TCC do curso técnico, porém meu conhecimento em vb não é dos melhores, segue o codigo que eu ja tenho do login, vale também dizer que eu utilizo um banco de dados MySQL.

 

 

Public Class Form1
   Inherits System.Windows.Forms.Form
   Dim conn As New MySql.Data.MySqlClient.MySqlConnection
   Dim myCommand As New MySql.Data.MySqlClient.MySqlCommand
   Dim myAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter
   Dim myData As New DataTable
   Dim SQL As String
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       Dim conn As MySql.Data.MySqlClient.MySqlConnection
       conn = New MySql.Data.MySqlClient.MySqlConnection
       conn.ConnectionString = "server=localhost;user id=root;password=*****;database=****"
       SQL = "SELECT * FROM ecert.login"
       '  Try
       conn.Open()
       'Try
       myCommand.Connection = conn
       myCommand.CommandText = SQL

       myAdapter.SelectCommand = myCommand
       myAdapter.Fill(myData)

       SQL = "SELECT senha FROM login WHERE usuario= '" & txtusuario.Text & "'"
       Dim vsenha As String = myCommand.ExecuteScalar()

       conn.Close()
       If vsenha = txtsenha.Text Then

           Form2.Show()
       End If

       Me.Visible = False
   End Sub

 

Outro Problema é que ele só efetua o login com o primeiro usuario e senha adicionados ao banco de dados, ele não le da segunda linha pra frente, o que posso fazer?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.