Imports System.Data.OleDb

Public Class form1

    Dim PercorsoDB As String = Application.StartupPath & "\dbrubrica.mdb"

    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PercorsoDB

    Dim CN As New OleDbConnection(ConnString)

    Dim DA As New OleDbDataAdapter(Sql, CN)

    Dim Ds As New DataSet

    Dim Sql As String = ""

#Region "Focus textbox"

    Private Sub Focus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtindirizzo.GotFocus, txtmail.GotFocus, txttelefono.GotFocus, txtnome.GotFocus, txtcognome.GotFocus

        If sender Is txtcognome Then

            txtcognome.BackColor = Color.Yellow

            txtindirizzo.BackColor = Color.White

            txttelefono.BackColor = Color.White

            txtnome.BackColor = Color.White

            txtmail.BackColor = Color.White

        ElseIf sender Is txtnome Then

            txtcognome.BackColor = Color.White

            txtindirizzo.BackColor = Color.White

            txttelefono.BackColor = Color.White

            txtnome.BackColor = Color.Yellow

            txtmail.BackColor = Color.White

        ElseIf sender Is txtindirizzo Then

            txtcognome.BackColor = Color.White

            txtindirizzo.BackColor = Color.Yellow

            txttelefono.BackColor = Color.White

            txtnome.BackColor = Color.White

            txtmail.BackColor = Color.White

        ElseIf sender Is txtmail Then

            txtcognome.BackColor = Color.White

            txtindirizzo.BackColor = Color.White

            txttelefono.BackColor = Color.White

            txtnome.BackColor = Color.White

            txtmail.BackColor = Color.Yellow

        ElseIf sender Is txttelefono Then

            txtcognome.BackColor = Color.White

            txtindirizzo.BackColor = Color.White

            txttelefono.BackColor = Color.Yellow

            txtnome.BackColor = Color.White

            txtmail.BackColor = Color.White

        End If

    End Sub

#End Region

#Region "insert"

    Private Sub cmdsalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsalva.Click

        If txtnome.Text = "" Or txttelefono.Text = "" Then

            MsgBox("devi riempire tutti i campi", MsgBoxStyle.Information, "Errore")

            Exit Sub

        End If

        Try

            Sql = "Insert into amici (Nome,Cognome,Indirizzo,Email,Cell) Values ("

            Sql = Sql & "'" & txtnome.Text.Trim & "','" & txtcognome.Text.Trim & "','" & txtindirizzo.Text.Trim & "','"

            Sql = Sql & txtmail.Text.Trim & "','" & txttelefono.Text.Trim & "')"

            If CN.State = ConnectionState.Closed Then

                CN.Open()

            End If

            Dim CM As New OleDbCommand(Sql, CN) 'oggetto che permette l'esecuzione della query

            CM.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Errore")

            Exit Sub

        End Try

        MsgBox("Contatto salvato correttamente", MsgBoxStyle.Information, "Salvato")

        CN.Close()

    End Sub

#End Region

 

    Private Sub CmdVisualiza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdVisualiza.Click

        With Form2

            Sql = "Select * From amici order by Nome"

            Dim DA As New OleDbDataAdapter(Sql, CN)

            Dim CM As New OleDbCommand(Sql, CN)

            DA.SelectCommand = CM

            DA.Fill(Ds, "amici")

            .Dg.DataSource = Ds

            .Dg.DataMember = "amici"

            .Text = "Lista amici"

            .Show()

        End With

 

    End Sub

End Class