No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
|
Imports MySql.Data.MySqlClient Public Class EmployeeInfo Dim con As MySqlConnection = _ New MySqlConnection("server=127.0.0.1;user id=root;database=bsit3d") Dim cmd As New MySqlCommand Dim da As New MySqlDataAdapter Dim dt As New DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub Private Sub display_Click _ (ByVal sender As …
|
|
|
Private Sub RetrieveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RetrieveButton.Click conn = New MySqlConnection conn.ConnectionString = "server=127.0.0.1; Port=3306; user id=root; password=; database=bsit3d" Dim READER As MySqlDataReader Dim Command As New MySqlCommand conn.Open() Dim Query As String Query = "select * from bsit3d.form where username= '" & username.Text & … 
|