Imports System.Data.OleDb

Public Class frmpianoauto
    Public auto_selezionata As String
    Public objconn As OleDbConnection
    Public stringaconn As String
    Public stringasql As String
    Public Sub creacontrolli(ByRef ascissa As Integer, ByRef ordinata As Integer, ByVal auto As String)
        'Definizione constanti e variabili
        Const x0 = 120
        Const y0 = 82
        Dim x As Integer
        Dim y As Integer
        Dim txt As TextBox
        Dim txt_name As String
        Dim day As String
        Dim car As String
        x = x0
        y = y0
        car = auto
        'Inizio ciclo for per la generazione delle caselle

        For i = 1 To 31
            txt = New TextBox
            txt_name = "txt" & "d" & i
            x = x + ascissa
            y = y0 + ordinata
            txt.Location = New Point(x, y)
            txt.Size = New Size(20, 20)
            txt.Name = txt_name
            day = "giorno" & i
            'MsgBox(day)
            txt.Text = carica_piano_auto(day, car)

            Me.Controls.Add(txt)


        Next

    End Sub
    Public Function carica_piano_auto(ByVal giorno As String, ByVal auto As String)
        Dim stato_giorno As String
        Dim stato_giornoi As String
        ' MsgBox(giorno)
        'MsgBox(auto)
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
        stringaconn = stringaconn & "c:\Noleggio\noleggio.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = " Select" & " " & giorno & " from Piano_Auto where auto='" & auto & "'"
        'MsgBox(stringasql)
        Using connection As New OleDbConnection(stringaconn)
            Dim command As New OleDbCommand(stringasql, connection)
            connection.Open()

            Dim reader As OleDbDataReader = command.ExecuteReader()
            While reader.Read()
                stato_giornoi = reader(0).ToString
                'MsgBox(stato_giornoi)
            End While
            reader.Close()
        End Using

        objconn.Close()

        stato_giorno = stato_giornoi
        Return stato_giorno


        


    End Function


    Public Sub connessione_database()

        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
        stringaconn = stringaconn & "c:\Noleggio\noleggio.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
    End Sub
    Public Sub disconnessione_database()
        objconn.Close()
    End Sub


    Private Sub frmpianoauto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.ToolStripStatusLabel1.Text = " Legenda: X (Noleggiata) - P (Prenotata) "


        connessione_database()
        'carico le auto nella list box
        stringasql = " Select * from Auto"
        Using connection As New OleDbConnection(stringaconn)

            Dim command As New OleDbCommand(stringasql, connection)
            connection.Open()
            Dim reader As OleDbDataReader = command.ExecuteReader()

            While (reader.Read())
                ListView1.Items.Add(reader(3).ToString)
                txtappoggio.Text = ListView1.Items.Count
            End While
            reader.Close()
        End Using
        disconnessione_database()
        '1°riga
        auto_selezionata = ListView1.Items(0).Text
        'MsgBox(auto_selezionata)
        creacontrolli(27, 5, auto_selezionata)

        '2°riga
        auto_selezionata = ListView1.Items(1).Text
        'MsgBox(auto_selezionata)
        creacontrolli(27, 47, auto_selezionata)

        '3°riga
        auto_selezionata = ListView1.Items(2).Text
        creacontrolli(27, 94, auto_selezionata)

        '4°riga
        auto_selezionata = ListView1.Items(3).Text
        creacontrolli(27, 131, auto_selezionata)

        '5°riga
        auto_selezionata = ListView1.Items(4).Text
        creacontrolli(27, 176, auto_selezionata)


        '6°riga
        auto_selezionata = ListView1.Items(5).Text
        creacontrolli(27, 218, auto_selezionata)


        '7°riga
        auto_selezionata = ListView1.Items(6).Text
        creacontrolli(27, 260, auto_selezionata)


        '8°riga
        auto_selezionata = ListView1.Items(7).Text
        creacontrolli(27, 302, auto_selezionata)

        '9°riga
        auto_selezionata = ListView1.Items(8).Text
        creacontrolli(27, 344, auto_selezionata)


        '10°riga
        auto_selezionata = ListView1.Items(9).Text
        creacontrolli(27, 386, auto_selezionata)

        '11°riga
        auto_selezionata = ListView1.Items(10).Text
        creacontrolli(27, 430, auto_selezionata)

        '12°riga
        auto_selezionata = ListView1.Items(11).Text
        creacontrolli(27, 483, auto_selezionata)

    End Sub