Form_Load Apertura Database e Recordset

sql = "SELECT * FROM Amministratori order by Amministratore"
        'Si scrive la query 
        MyDataSet = New DataSet("Amministratori")
        'Si crea il dataset, un dataset pu� contenere pi� di una tabella al suo interno e le relazioni master/detail 
        'Si crea il DataAdapter (la spola...) 
        ' oppure  
        AmministratoriDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
        'AmministratoriDaPt.SelectCommand.CommandText = "SELECT * FROM Amministratori" 
        AmministratoriDaPt.Fill(MyDataSet, "Amministratori")
        'Nella seconda riga viene usato per riempire il dataset con l'istruzione SQL 
        'Si crea la BindingSource 
        AmministratoriBindingSource = New BindingSource()
        AmministratoriBindingSource.DataSource = MyDataSet
        AmministratoriBindingSource.DataMember = "Amministratori"

'***********************************************************************************************************************
        ' per la griglia apro il recordset aperto a tutti
        sql = "SELECT Condomini.id, Condomini.Condominio, Condomini.Indirizzo, Condomini.cap, Condomini.comune, Condomini.PIVA, Condomini.Codicefiscale, Condomini.portiere, Condomini.SaldoFatturato, Condomini.SaldoIncassato, Condomini.TipoFatturazione, Condomini.idAmministratore"
        sql = sql & " FROM (Condomini)"
        sql = sql & " Where Attivo = true "
        sql = sql & " GROUP BY Condomini.id, Condomini.Condominio, Condomini.Indirizzo, Condomini.cap, Condomini.comune, Condomini.PIVA, Condomini.Codicefiscale, Condomini.portiere, Condomini.SaldoFatturato, Condomini.SaldoIncassato, Condomini.TipoFatturazione, Condomini.idAmministratore order by Indirizzo, IdAmministratore;"

'sql = "SELECT * from Condomini order by Indirizzo, IdAmministratore"

CondominiDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
        CondominiDaPt.Fill(MyDataSet, "Appalti")
        CondominiBindingSource = New BindingSource()
        CondominiBindingSource.DataSource = MyDataSet
        CondominiBindingSource.DataMember = "Appalti"
        TextBox14.DataBindings.Add("text", CondominiBindingSource, "Id")
        DataGridView2.DataSource = CondominiBindingSource
        DataGridView2.Columns(0).Width = 0

'***********************************************************************************************************************

'Si crea il DataTable per la gestione di ROW e per la visualizzazione del contenuto delle tabelle 
        '*************************************
        DTable = MyDataSet.Tables.Item(0)
        '*************************************

'Che si collega al dataset che contiene la nostra tabella 
        TextBox0.DataBindings.Add("text", AmministratoriBindingSource, "Id")
        TextBox1.DataBindings.Add("text", AmministratoriBindingSource, "Amministratore")
        TextBox2.DataBindings.Add("text", AmministratoriBindingSource, "Indirizzo")
        TextBox3.DataBindings.Add("text", AmministratoriBindingSource, "Cap")
        TextBox4.DataBindings.Add("text", AmministratoriBindingSource, "Comune")
        TextBox5.DataBindings.Add("text", AmministratoriBindingSource, "Fax")
        TextBox6.DataBindings.Add("text", AmministratoriBindingSource, "Telefono")
        TextBox7.DataBindings.Add("text", AmministratoriBindingSource, "Cellulare")
        TextBox8.DataBindings.Add("text", AmministratoriBindingSource, "PIVA")
        TextBox9.DataBindings.Add("text", AmministratoriBindingSource, "Codicefiscale")
        TextBox10.DataBindings.Add("text", AmministratoriBindingSource, "Email")
        TextBox11.DataBindings.Add("text", AmministratoriBindingSource, "Studio")
        TextBox12.DataBindings.Add("text", AmministratoriBindingSource, "mnote")
        TextBox13.DataBindings.Add("text", AmministratoriBindingSource, "DataInserimento")

CheckAttivo.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AmministratoriBindingSource, "Attivo", True))

'Binding alla DataGridView 
        DataGridView1.DataSource = AmministratoriBindingSource

'**************************************************************************************
        sql = "SELECT Amministratore  FROM Amministratori  order by Amministratore;"
        Dim ConDaPt = New OleDb.OleDbDataAdapter
        ConDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
        ConDaPt.Fill(MyDataSet, "Amm")

'Si crea la BindingSource 
        Dim ConBindingSource = New BindingSource
        ConBindingSource = New BindingSource()
        ConBindingSource.DataSource = MyDataSet
        ConBindingSource.DataMember = "Amm" ' aggancia il databinding alla tabella Appalti del Dataset 
        ComboBox3.DataSource = ConBindingSource
        ComboBox3.DisplayMember = "Amministratore"

'************************************************************
          ' Contatore dei record e della posizione del record attuale
          '************************************************************

If AmministratoriBindingSource.Count > 0 Then
            LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count
        Else
            LblStatus.Text = "Recordset Vuoto"
            'MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record") 
        End If

sql = "SELECT * FROM Amministratori order by Amministratore"
'Si scrive la query

MyDataSet = New DataSet("Amministratori")
'Si crea il dataset, un dataset puo' contenere piu' di una tabella al suo interno e le relazioni master/detail

'Si crea il DataAdapter (la spola...)

' oppure

AmministratoriDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
'AmministratoriDaPt.SelectCommand.CommandText = "SELECT * FROM Amministratori"

AmministratoriDaPt.Fill(MyDataSet, "Amministratori")
'Nella seconda riga viene usato per riempire il dataset con l'istruzione SQL

'Si crea la BindingSource

AmministratoriBindingSource = New BindingSource()
AmministratoriBindingSource.DataSource = MyDataSet
AmministratoriBindingSource.DataMember = "Amministratori"

'***********************************************************************************************************************

' per la griglia apro il recordset aperto a tutti

sql = "SELECT Condomini.id, Condomini.Condominio, Condomini.Indirizzo, Condomini.cap, Condomini.comune, Condomini.PIVA, Condomini.Codicefiscale, Condomini.portiere, Condomini.SaldoFatturato, Condomini.SaldoIncassato, Condomini.TipoFatturazione, Condomini.idAmministratore"
sql = sql & " FROM (Condomini)"
sql = sql & " Where Attivo = true "
sql = sql & " GROUP BY Condomini.id, Condomini.Condominio, Condomini.Indirizzo, Condomini.cap, Condomini.comune, Condomini.PIVA, Condomini.Codicefiscale, Condomini.portiere, Condomini.SaldoFatturato, Condomini.SaldoIncassato, Condomini.TipoFatturazione, Condomini.idAmministratore order by Indirizzo, IdAmministratore;"

'sql = "SELECT * from Condomini order by Indirizzo, IdAmministratore"

CondominiDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
CondominiDaPt.Fill(MyDataSet, "Appalti")
CondominiBindingSource = New BindingSource()
CondominiBindingSource.DataSource = MyDataSet
CondominiBindingSource.DataMember = "Appalti"
TextBox14.DataBindings.Add("text", CondominiBindingSource, "Id")
DataGridView2.DataSource = CondominiBindingSource
DataGridView2.Columns(0).Width = 0

'***********************************************************************************************************************

'Si crea il DataTable per la gestione di ROW e per la visualizzazione del contenuto delle tabelle

'*************************************

DTable = MyDataSet.Tables.Item(0)
'*************************************

'Che si collega al dataset che contiene la nostra tabella

TextBox0.DataBindings.Add("text", AmministratoriBindingSource, "Id")
TextBox1.DataBindings.Add("text", AmministratoriBindingSource, "Amministratore")
TextBox2.DataBindings.Add("text", AmministratoriBindingSource, "Indirizzo")
TextBox3.DataBindings.Add("text", AmministratoriBindingSource, "Cap")
TextBox4.DataBindings.Add("text", AmministratoriBindingSource, "Comune")
TextBox5.DataBindings.Add("text", AmministratoriBindingSource, "Fax")
TextBox6.DataBindings.Add("text", AmministratoriBindingSource, "Telefono")
TextBox7.DataBindings.Add("text", AmministratoriBindingSource, "Cellulare")
TextBox8.DataBindings.Add("text", AmministratoriBindingSource, "PIVA")
TextBox9.DataBindings.Add("text", AmministratoriBindingSource, "Codicefiscale")
TextBox10.DataBindings.Add("text", AmministratoriBindingSource, "Email")
TextBox11.DataBindings.Add("text", AmministratoriBindingSource, "Studio")
TextBox12.DataBindings.Add("text", AmministratoriBindingSource, "mnote")
TextBox13.DataBindings.Add("text", AmministratoriBindingSource, "DataInserimento")

CheckAttivo.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AmministratoriBindingSource, "Attivo", True))

'Binding alla DataGridView

DataGridView1.DataSource = AmministratoriBindingSource

'**************************************************************************************

sql = "SELECT Amministratore FROM Amministratori order by Amministratore;"
Dim ConDaPt = New OleDb.OleDbDataAdapter
ConDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
ConDaPt.Fill(MyDataSet, "Amm")

'Si crea la BindingSource

Dim ConBindingSource = New BindingSource
ConBindingSource = New BindingSource()
ConBindingSource.DataSource = MyDataSet
ConBindingSource.DataMember = "Amm" ' aggancia il databinding alla tabella Appalti del Dataset
ComboBox3.DataSource = ConBindingSource
ComboBox3.DisplayMember = "Amministratore"

'************************************************************

' Contatore dei record e della posizione del record attuale

'************************************************************

If AmministratoriBindingSource.Count > 0 Then
LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count
Else
LblStatus.Text = "Recordset Vuoto"
'MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")

End If