Query = "SELECT TOP 100 col.nome AS Collane, tes.id AS IDtestata, tes.Titolo AS Titolo_Testata, edi.nome AS Editore, rep.nome_reparto AS Reparto, Volumi.ID AS IDvolume, Volumi.Idtestata, Volumi.Titolo AS Titolo_fumetto, Volumi.sottotitolo AS Sottotitolo_Fumetto, Volumi.numero AS Numero, Volumi.prezzo AS Prezzo, Volumi.Esaurito as Esaurito " _
& "FROM Volumi " _
& "LEFT JOIN Testate AS tes ON Volumi.IDtestata = tes.id " _
& "LEFT JOIN Editori AS edi ON tes.ideditore = edi.id " _
& "LEFT JOIN Collane AS col ON tes.idcollana = col.id " _
& "LEFT JOIN Reparto AS rep ON tes.idreparto = rep.id " _
'& "LIMIT 0 , 30 "
data_visualizzatestate = Inizializza_Componenti.RiempiDataGrid(Query)
Fumetti1.volumi_datagrid_ricercafumetti.DataSource = data_visualizzatestate
Fumetti1.volumi_datagrid_ricercafumetti.Columns("IDtestata").Visible = False
Fumetti1.volumi_datagrid_ricercafumetti.Columns("idvolume").Visible = False
Fumetti1.volumi_datagrid_ricercafumetti.Columns("idtestata1").Visible = False
Query = "SELECT Editori.ID, Editori.Nome FROM Editori Order By Editori.Nome "
dataeditore = Inizializza_Componenti.RiempiDataGrid(Query)
Query = "SELECT Collane.ID, Collane.Nome FROM Collane ORDER By Collane.Nome"
datacollana = Inizializza_Componenti.RiempiDataGrid(Query)
Query = "SELECT Reparto.ID, Reparto.Nome_reparto FROM Reparto Order By Reparto.Nome_Reparto ASC"
datareparto = Inizializza_Componenti.RiempiDataGrid(Query)
Try
Fumetti1.volumi_ricerca_editore.DisplayMember = "Nome"
Fumetti1.volumi_ricerca_editore.ValueMember = "ID"
Fumetti1.volumi_ricerca_collana.DisplayMember = "Nome"
Fumetti1.volumi_ricerca_collana.ValueMember = "ID"
Fumetti1.volumi_ricerca_reparto.DisplayMember = "Nome_Reparto"
Fumetti1.volumi_ricerca_reparto.ValueMember = "ID"
Fumetti1.volumi_ricerca_collana.SelectedValue = 0
Fumetti1.volumi_ricerca_editore.SelectedValue = 0
Fumetti1.volumi_ricerca_reparto.SelectedValue = 0
Fumetti1.volumi_ricerca_reparto.DataSource = datareparto
Fumetti1.volumi_ricerca_editore.DataSource = dataeditore
Fumetti1.volumi_ricerca_collana.DataSource = datacollana
Function RiempiDataGrid(ByVal querysql As String)
Dim table As New DataTable
Try
' The SqlConnection class allows you to communicate
' with SQL Server and DataTable.
' A SqlCommand object is used to execute the SQL commands.
Dim mycmd As New SqlCommand(querysql, con)
Dim DataAdapter As New SqlDataAdapter(mycmd)
Dim commandBuilder As New SqlCommandBuilder(DataAdapter)
' The SqlDataAdapter is responsible for using
' a SqlCommand object to fill a DataSet.
DataAdapter.Fill(table)
' Set the DataGrid caption, bind it to the DataSet,
' and then make it Visible
Catch sqlExc As SqlException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return table
End Function