Project

Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Using sr As New StreamReader("C:\Users\klaasjelle\Documents\Visual Studio 2017\Projects\WindowsApp2\WindowsApp2\bin\Debug\Images.txt")

            While Not sr.EndOfStream

                Dim lines As String() = sr.ReadLine.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)

                Dim lvItem As New ListViewItem(lines(0))
                lvItem.SubItems.Add(lines(1))
                lvItem.SubItems.Add(lines(2))

                ListView1.Items.Add(lvItem)

            End While

        End Using

        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using con As New SqlConnection
            Using cmd As New SqlCommand

                con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\klaasjelle\documents\visual studio 2017\Projects\WindowsApp3\WindowsApp3\Niks.mdf;Integrated Security=True"
                con.Open()
                cmd.Connection = con



                cmd.Parameters.Add("@path", SqlDbType.NVarChar)
                cmd.Parameters.Add("@size", SqlDbType.NVarChar)
                cmd.Parameters.Add("@side", SqlDbType.NVarChar)
                cmd.CommandText = "INSERT INTO Data (FilePath, ImageSize, ImageSide)
                          VALUES (@path, @size, @side)"


                For Each item As ListViewItem In ListView1.Items
                    Dim path = item.Text
                    Dim size = item.SubItems(1)
                    Dim side = item.SubItems(2)

                    ' Now you have the variables to insert in the database
                    cmd.Parameters("@path").Value = path
                    cmd.Parameters("@size").Value = size
                    cmd.Parameters("@side").Value = side
                    cmd.ExecuteNonQuery()
                Next

            End Using
        End Using
    End Sub

End Class