Visual Basic

Imports System

Public NotInheritable Class SplashScreen1

    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Set up the dialog text at runtime according to the application's assembly information.  

        'TODO: Customize the application's assembly information in the "Application" pane of the project 
        '  properties dialog (under the "Project" menu).

        'Application title
        If My.Application.Info.Title <> "" Then
            SplashScreenForm.Text = My.Application.Info.Title
        Else
            'If the application title is missing, use the application name, without the extension
            SplashScreenForm.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If

        'Format the version information using the text set into the Version control at design time as the
        '  formatting string.  This allows for effective localization if desired.
        '  Build and revision information could be included by using the following code and changing the 
        '  Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar.  See
        '  String.Format() in Help for more information.
        '
        '    Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)

        Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)

        'Copyright info
        Copyright.Text = My.Application.Info.Copyright
        Copyright.Show()

        'Show the Splash Screen
        Me.Show()
        Me.Focus()

        'Pause for 5 seconds
        Threading.Thread.Sleep(5000)

        'Hide the Splash Screen and show the First Form
        Me.WindowState = FormWindowState.Minimized
        Me.Visible = False
        MenuEditorForm.Show()
        MenuEditorForm.TopMost = True
    End Sub

End Class

Private Sub Userform_Initialize()
Dim strOffice As String
Dim i As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset
  strOffice = "Test"
  'Open the spreadsheet containing the data
  Set db = OpenDatabase("C:Testdata.xlsx", False, False, "Excel 12.0; IMEX=1;")
  'Retrieve the recordset
  Set rs = db.OpenRecordset("SELECT * FROM `Test`")
  'Set the number of Columns = number of Fields in recordset
  ListBox1.ColumnCount = rs.Fields.Count
  'Determine the number of retrieved records
  With rs
    .MoveLast
    i = .RecordCount
    .MoveFirst
  End With
  'Load the listbox with the retrieved records
  ListBox1.Column = rs.GetRows(i)
  'Cleanup
    
  rs.Close
  db.Close
  Set rs = Nothing
  Set db = Nothing
lbl_Exit:
  Exit Sub
    
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim myconnect As New SqlClient.SqlConnection
        myconnect.ConnectionString = "Data Source=.\INFLOWSQL;Initial Catalog=RioDiary;Integrated Security=True"
        Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
        mycommand.Connection = myconnect
        myconnect.Open()


        Try
            mycommand.CommandText = "DELETE FROM MyDiary WHERE Title = @Title"

            'add parameter once
            mycommand.Parameters.Add("@Title", SqlDbType.VarChar)

            For Each row As DataGridViewRow In DataGridView1.SelectedRows
                'set parameter value to Title column of current row
                mycommand.Parameters(0).Value = row.Cells(0).Value

                mycommand.ExecuteNonQuery()
                DataGridView1.Rows.Remove(row)

            Next row

            MsgBox("Data Successfully Deleted")
        Catch ex As System.Data.SqlClient.SqlException
            MsgBox(ex.Message)
        End Try
        ds = New DataSet()
        da.SelectCommand = mycommand
        da.Fill(ds)
        mycommand.Dispose()

        Me.Close()
        myconnect.Close()
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'RioDiaryDataSet5.MyDiary' table. You can move, or remove it, as needed.
        Me.MyDiaryTableAdapter.Fill(Me.RioDiaryDataSet5.MyDiary)
        Dim con As New SqlConnection("  Data Source=.\INFLOWSQL;Initial Catalog=RioDiary;Integrated Security=True")
        cmd.CommandText = "Select Title,DiaryContent,DiaryDate FROM MyDiary "
        ComboBox1.Refresh()
        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        cmd.Connection = con
        da.Fill(ds, "MyDiary")

        con.Open()

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "Title"
        ComboBox1.ValueMember = "DiaryContent"
    End Sub

    Private Sub NewEntryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewEntryToolStripMenuItem.Click
        AddEntry.Show()
    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        If (Not Me.ComboBox1.SelectedItem Is Nothing) Then
            Dim SelectedItem = TryCast(ComboBox1.SelectedItem, DataRowView)
            Me.TextBox1.Text = SelectedItem.Row("DiaryDate").ToString()
            Me.TextBox2.Text = SelectedItem.Row("Title").ToString()
            Me.TextBox3.Text = SelectedItem.Row("DiaryContent").ToString()
            ComboBox1.Refresh()
        End If
        con.Close()

    End Sub