Dim networkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces() Dim firstNetwork = networkInterface.FirstOrDefault(Function(x As System.Net.NetworkInformation.NetworkInterface) _ x.OperationalStatus = System.Net.NetworkInformation.OperationalStatus.Up) Dim firstMacAddressOfWorkingNetworkAdapter = firstNetwork.GetPhysicalAddress() Dim connString As String = "Server=tserver;Database=database;Uid=usr;Pwd=ps;" Dim sqlQuery As String = "SELECT * FROM Computers WHERE MacAddress='" & firstMacAddressOfWorkingNetworkAdapter.ToString & "'" Dim command As MySqlCommand Dim mysqlconn = New MySqlConnection Dim reader As MySqlDataReader mysqlconn.ConnectionString = connString mysqlconn.Open() Try command = New MySqlCommand(sqlQuery, mysqlconn) reader = command.ExecuteReader While reader.Read If firstMacAddressOfWorkingNetworkAdapter.ToString = reader.GetString("MacAddress") Then Consoletxt("Computer Found '" + reader.GetString("ComputerName") + "'") Consoletxt("MAC Address OK -- " + firstMacAddressOfWorkingNetworkAdapter.ToString) Login.Domain.Text = reader.GetString("Domain") Else Consoletxt("Could not find your computer in our database") Consoletxt("Starting Setup") Thread.Sleep(5000) SetupBackground.Mode.Text = "domain" MyBase.Update() SetupBackground.Show() Me.WindowState = FormWindowState.Minimized Me.ShowInTaskbar = False Check.Text = "setup" End If End While Catch ex As Exception End Try mysqlconn.Close()
DataReader
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)