Ciao, grazie gibra della tua risposta, mi scuso di non essere stato abbastanza chiaro e soprattutto ho postato un codice vecchio, che non contiene le mie ultime modifiche.
Io sono costretto a lasciare le due tabelle
e inserisco le due sub nel form_Load :
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Private Sub 1()
Private Sub 2()
End Sub
In cui con la sub 1 creo le tab page con la tabella 1 (reparto1, reparto2, reparto3), mentre la sub 2, legge la seconda tabella: La tabella due tra le sue colonne ha: ID, Descrizione; reparto. Dovrei cercare di fare il confronto tra due stringhe cioè il titolo della tabpage, e la colonna dei reparti; se sono uguali, allora mi crea il bottone che ha come testo descrizione, incrementa l'indice della tab page e continua cosi fino ad arrivare alla fine.
Io le tab page le creo cosi:
Private Sub 1 ()
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server=.......;userid=.......;password=......;database=db"
Try
MysqlConn.Open()
Dim Query As String
Query = "Select id,descrizione from db.1"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
While READER.Read
Dim Descrizione = READER.GetString("descrizione")
TabControl1.TabPages.Add(Descrizione)
End While
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
End Sub
Ho provato a creare i bottoni come faccio per le tab page:
Private Sub 2()
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server=.......;userid=.......;password=......;database=db"
Try
MysqlConn.Open()
Dim Query As String
Query = "Select id,descrizione from db.2"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
TabControl1.TabIndex =1
While READER.Read
Dim Descrizione = READER.GetString("descrizione")
TabControl1.SelectedTab.Controls.Add(New Button())
'TabControl1.TabIndex = +1
End While
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
End Sub
Sicuramente prima del while devo effettuare un controllo con titolo della tabpage, e la colonna dei reparti, se sono uguali, allora mi crea il bottone; ammesso che il ragionamento sia giusto, non so come effettuare il controllo.
Ovviamente se avete altre idee tenendo invariate le due tabelle sono ben accette
Grazie mille a tutti