[iccup.platoon@vk]

Пример таблицы? Прикреплю. Пример кода? Да я даже с чего начать не знаю =( Вот код того, что постиг:

Большой код

Код:

Imports System.Data.OleDb
Public Class Form1
    Dim str As String
    Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\FS-Reseption\AppData\Local\VirtualStore\Program Files (x86)\Anticafe\base\Card.mdb;Persist Security Info=True;Jet OLEDB:Database Password=dead12345") ' Переменная для подключения базы
    'Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\base\Card.mdb;Persist Security Info=True;Jet OLEDB:Database Password=dead12345") ' Переменная для подключения базы
    Dim SqlCom As OleDb.OleDbCommand
    Dim DT As New Data.DataTable
    Dim DA As OleDb.OleDbDataAdapter
    Dim One As Integer
    Dim Two As Integer
    Dim BasePath As String
    Dim Soob As Integer



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    ' ================== Кнопка на добавление средств
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM `NumberDisc` WHERE `Number` like '%" & "0001" + TextBox1.Text & "%'", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        Con.Close()
        On Error Resume Next
        Me.TextBox2.DataBindings.Add(New Binding("Text", DT, "Name"))
        Me.TextBox3.DataBindings.Add(New Binding("Text", DT, "Discount"))
        Me.TextBox4.DataBindings.Add(New Binding("Text", DT, "Telephone"))
        Me.TextBox5.DataBindings.Add(New Binding("Text", DT, "Bonus"))

        Soob = MsgBox("Начислить клиенту " & TextBox6.Text & " рублей?", 36, "Подтверждение действия")
        If Soob = 6 Then
            'логирование
            One = TextBox5.Text
            Two = TextBox6.Text
            'IO.File.AppendAllText("D:/File.txt", DateString & " " & TimeOfDay & vbTab & "Номер карты: " & TextBox1.Text & vbTab & "Зачислено: " & TextBox6.Text & vbTab & "Было: " & One & vbTab & "Стало: " & One + Two & vbCrLf) ' Запись текста из TextBox1 в File.txt
            IO.File.AppendAllText("\\nas\Docs\DepositLog\Log.txt", DateString & " " & TimeOfDay & vbTab & "Номер карты: " & TextBox1.Text & vbTab & "Зачислено: " & TextBox6.Text & vbTab & "Было: " & One & vbTab & "Стало: " & One + Two & vbCrLf) ' Запись текста из TextBox1 в File.txt
            'конец логирования
            MsgBox("Сумма начислена: " & Two)
            DT.Clear()
            SqlCom = New OleDb.OleDbCommand("UPDATE [NumberDisc] SET [Bonus]= " & One + Two & " WHERE `Number` like '%" & TextBox1.Text & "%'", Con)
            TextBox1.Clear()
            TextBox6.Clear()
            Con.Open()
            SqlCom.ExecuteNonQuery()
            Con.Close()
        Else
            DT.Clear()
            TextBox1.Clear()
            TextBox6.Clear()
        End If
    End Sub

    ' ======================== Кнопка снятия денег
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM `NumberDisc` WHERE `Number` like '%" & "0001" + TextBox1.Text & "%'", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        Con.Close()
        On Error Resume Next
        Me.TextBox2.DataBindings.Add(New Binding("Text", DT, "Name"))
        Me.TextBox3.DataBindings.Add(New Binding("Text", DT, "Discount"))
        Me.TextBox4.DataBindings.Add(New Binding("Text", DT, "Telephone"))
        Me.TextBox5.DataBindings.Add(New Binding("Text", DT, "Bonus"))

        Soob = MsgBox("Снять со счета " & TextBox6.Text & " рублей?", 36, "Подтверждение действия") ' Показываем сообщение, и номер нажатой кнопки записывается в переменную Soob
        If Soob = 6 Then
            'логирование
            One = TextBox5.Text
            Two = TextBox6.Text
            'IO.File.AppendAllText("D:/File.txt", DateString & " " & TimeOfDay & vbTab & "Номер карты: " & TextBox1.Text & vbTab & "Зачислено: " & TextBox6.Text & vbTab & "Было: " & One & vbTab & "Стало: " & One + Two & vbCrLf) ' Запись текста из TextBox1 в File.txt
            IO.File.AppendAllText("\\nas\Docs\DepositLog\Log.txt", DateString & " " & TimeOfDay & vbTab & "Номер карты: " & TextBox1.Text & vbTab & "Зачислено: " & TextBox6.Text & vbTab & "Было: " & One & vbTab & "Стало: " & One + Two & vbCrLf) ' Запись текста из TextBox1 в File.txt
            'конец логирования
            MsgBox("Списано средств: " & Two)
            DT.Clear()
            SqlCom = New OleDb.OleDbCommand("UPDATE [NumberDisc] SET [Bonus]= " & One - Two & " WHERE `Number` like '%" & TextBox1.Text & "%'", Con)
            TextBox1.Clear()
            TextBox6.Clear()
            Con.Open()
            SqlCom.ExecuteNonQuery()
            Con.Close()
        Else
            DT.Clear()
            TextBox1.Clear()
            TextBox6.Clear()
        End If
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM `NumberDisc` WHERE `Number` like '%" & "0001" + TextBox1.Text & "%'", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        Con.Close()
        On Error Resume Next
        Me.TextBox2.DataBindings.Add(New Binding("Text", DT, "Name"))
        Me.TextBox3.DataBindings.Add(New Binding("Text", DT, "Discount"))
        Me.TextBox4.DataBindings.Add(New Binding("Text", DT, "Telephone"))
        Me.TextBox5.DataBindings.Add(New Binding("Text", DT, "Bonus"))
        MsgBox("ФИО: " & TextBox2.Text & vbCrLf & "Скидка: " & TextBox3.Text & vbCrLf & "Номер телефона: " & TextBox4.Text & vbCrLf & "Средства на счету: " & TextBox5.Text)
        DT.Clear()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        DT.Clear()
    End Sub
End Class

Тут видно как я костылил с некоторыми вещами... Повесить нужно это всё на Button4.