
Imports MySql.Data.MySqlClient
Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Form1.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connectionstring As String
Dim commandtext As String
Dim adapter As MySqlDataAdapter
Dim table As DataTable
commandtext = "SELECT * FROM login"
connectionstring = "server=localhost;user id = root;password=;database=login;"
Try
adapter = New MySqlDataAdapter(commandtext, connectionstring)
table = New DataTable
adapter.Fill(table)
DataGridView1.DataSource = table
Catch ex As Exception
End Try
End Sub
End Class
Copyright © 2026, NextGenUpdate.
All Rights Reserved.