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")