Form1

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Private lvwColumnSorter As Class1

    Dim DataBaseFileName As String = Application.StartupPath & "\db.mdb"

    Dim Connector As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName)

    Sub Выдать()

        Dim Дата As String = Format(Now, "d MMMM yyyy")

        'ID = ListView1.SelectedItems.Item(0).Text

        'Наименование = ListView1.SelectedItems.Item(0).SubItems.Item(1).Text

        'Повреждение = ListView1.SelectedItems.Item(0).SubItems.Item(2).Text

        'Материал = ListView1.SelectedItems.Item(0).SubItems.Item(3).Text

        'Цвет = ListView1.SelectedItems.Item(0).SubItems.Item(4).Text

        'Стоимость = ListView1.SelectedItems.Item(0).SubItems.Item(5).Text

        'Услуга = ListView1.SelectedItems.Item(0).SubItems.Item(6).Text

        'Наличие = "Нет"

        Try

            Dim Command As New OleDbCommand("UPDATE Изделия SET [Наименование]='" & Наименование & "', [Повреждение]='" & Повреждение & "', [Материал]='" & Материал & "', [Цвет]='" & Цвет & "', [Стоимость]='" & Стоимость & "', [Услуга]='" & Услуга & "', [Наличие]='" & Наличие & "' WHERE ([ID] Like '" & ListView1.SelectedItems.Item(0).Text & "')", Connector)

            Connector.Open()

            Command.ExecuteNonQuery()

            Connector.Close()

            ListView1.SelectedItems.Item(0).Text = Наименование

            ListView1.SelectedItems.Item(0).SubItems.Item(1).Text = Повреждение

            ListView1.SelectedItems.Item(0).SubItems.Item(2).Text = Материал

            ListView1.SelectedItems.Item(0).SubItems.Item(3).Text = Цвет

            ListView1.SelectedItems.Item(0).SubItems.Item(4).Text = Стоимость

            ListView1.SelectedItems.Item(0).SubItems.Item(5).Text = Услуга

            ListView1.SelectedItems.Item(0).SubItems.Item(6).Text = Наличие

            Dim Command1 As New OleDbCommand("Insert Into [Журнал] ([ФИО], [История], [Дата]) values ('" & Клиенты & "', '" & Изделие & "', '" & Дата & "')", Connector)

            Connector.Open()

            Command1.ExecuteNonQuery()

            Connector.Close()

            ListView1.Items.Add("ID")

            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add("ФИО")

            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add("История")

            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add("Дата")

            Dim Command2 As New OleDbCommand("Insert Into [Журнал выдач] ([ФИО], [История], [IDGurnal]) values ('" & Клиенты & "', '" & Изделие & "', '" & ID & "')", Connector)

            Connector.Open()

            Command2.ExecuteNonQuery()

            Connector.Close()

            ListView1.Items.Add("ID")