query = "SELECT Autori.id AS ID, Autori.Nome AS Nome From Autori Order By Autori.Nome ASC "
Dim VisualizzaAutori As New MySql
VisualizzaAutori.Login()
Dim data_visualizzaautori = VisualizzaAutori.RiempiDataGrid(query)
VisualizzaAutori.Logout()
volumi_modifica_autore1.DataSource = data_visualizzaautori
volumi_modifica_autore1.DisplayMember = "Nome"
volumi_modifica_autore1.ValueMember = "ID"
volumi_modifica_autore2.DataSource = data_visualizzaautori
volumi_modifica_autore2.DisplayMember = "Nome"
volumi_modifica_autore2.ValueMember = "ID"
volumi_modifica_autore3.DataSource = data_visualizzaautori
volumi_modifica_autore3.DisplayMember = "Nome"
volumi_modifica_autore3.ValueMember = "ID"
volumi_modifica_autore4.DataSource = data_visualizzaautori
volumi_modifica_autore4.DisplayMember = "Nome"
volumi_modifica_autore4.ValueMember = "ID"
volumi_modifica_autore5.DataSource = data_visualizzaautori
volumi_modifica_autore5.DisplayMember = "Nome"
volumi_modifica_autore5.ValueMember = "ID"
volumi_modifica_autore6.DataSource = data_visualizzaautori
volumi_modifica_autore6.DisplayMember = "Nome"
volumi_modifica_autore6.ValueMember = "ID"
volumi_modifica_autore7.DataSource = data_visualizzaautori
volumi_modifica_autore7.DisplayMember = "Nome"
volumi_modifica_autore7.ValueMember = "ID"
volumi_modifica_autore8.DataSource = data_visualizzaautori
volumi_modifica_autore8.DisplayMember = "Nome"
volumi_modifica_autore8.ValueMember = "ID"
Protected Friend Sub Login()
conn.Close()
Dim user As String = My.Settings.utentedb
Dim password As String = My.Settings.passworddb
Dim ipAddress As String = My.Settings.indirizzodb
Dim myDatabase As String = My.Settings.nomedb
Dim myport As String = My.Settings.portadb
conn.ConnectionString = "server=" & ipAddress & ";port=" & myport & ";user id=" & user & "; password= " & password & " ;database=" & myDatabase & ""
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch myerror As MySqlException
MessageBox.Show("Error Connecting to Database: " & myerror.Message)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Protected Friend Sub Logout()
If Not conn.State = ConnectionState.Closed Then
conn.Close()
conn.Dispose()
End If
End Sub
Function RiempiDataGrid(ByVal querysql As String)
Dim myAdapter As MySqlDataAdapter
Dim table As DataTable
Try
myAdapter = New MySqlDataAdapter(querysql, conn)
table = New DataTable
myAdapter.Fill(table)
Catch myerror As MySqlException
MessageBox.Show("Error Connecting to Database: " & myerror.Message)
Return False
Exit Function
Catch ex As Exception
MsgBox(ex.Message)
Return False
Exit Function
End Try
Return table
End Function