End Sub
End Class
Form6
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.Office.Interop
Public Class Form6
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)
Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim DataReader As OleDbDataReader
Dim Command As New OleDbCommand("Select * From [Журнал выдач]", Connector)
Dim Command1 As New OleDbCommand("Select * From [Журнал выдач] WHERE (([Журнал выдач].ФИО) = '" & ФИО & "')", Connector)
Dim Command2 As New OleDbCommand("Select * From [Журнал выдач] WHERE [Журнал выдач].[История] = '" & Изделие & "'", Connector)
lvwColumnSorter = New Class1()
Me.ListView1.ListViewItemSorter = lvwColumnSorter
ListView1.Columns.Clear()
ListView1.Columns.Add("ID")
ListView1.Columns.Add("ФИО")
ListView1.Columns.Add("История")
ListView1.Columns.Add("IDGurnal")
ListView1.Items.Clear()
If Me.Text = "Текущий отчет..." Then
Try
Connector.Open()
DataReader = Command.ExecuteReader
While DataReader.Read() = True
ListView1.Items.Add(DataReader.GetValue(0))
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(1))
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(2))
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(3))
End While
DataReader.Close()
Connector.Close()
Catch ex As Exception
Connector.Close()
MessageBox.Show(ex.Message)
End Try
End If
If Me.Text = "Отчет текущий по: " & ФИО Then
Try