Как получить минимальный баланс

---

Как сделать минимальный баланс счета типа "сберегательный" и "текущий" меньше 100 и 500, чтобы не было возможности перевести фонд, но я могу перевести баланс меньше 100 и 500 и ничего не будет показывать ошибка

Что я уже пробовал:

Импортирует System.Data.Для oledb
TransferFund Открытый Класс
Dim conn как новое OleDbConnection
Dim insert As New OleDbCommand
Dim del как новая OleDbCommand
Дим обновляются как новый объект oledbcommand
Тусклый запрос как новая OleDbCommand

Дим кон = "поставщика=Майкрософт.Туз.Oledb для.12.0; Источник данных=С:\Пользователи\lingc\рабочий стол\VBNet задания\задание VBNet\бин\отладки\Database41.МБР;"
Private Sub btnBack_Click (sender As Object, e As EventArgs) обрабатывает btnBack.Щелчок
Операция.Покажите()
Меня.Скрыть()

Конец Подводной Лодки

Private Sub btnConfirm_Click (sender As Object, e As EventArgs) обрабатывает btnConfirm.Щелчок
Dim oldbalance1, newbalance1 как Int32
Dim oldbalance2, newbalance2 как Int32
Dim num As Int32
Dim accessdate As DateTime
Dim credit As Boolean = False
Дим balancenum как int32

accessdate = меня.DateTimePicker1.Значение
DateTimePicker1.Формат = DateTimePickerFormat.Обычай
DateTimePicker1.CustomFormat = Датавремя.Сейчас.Метод toString("ДД-ММ-гггг")

Если txtAccountNo.Text < & gt; ""И txtAccountNo2.Text <> "" Затем
oldbalance1 = CInt(txtBalance.Текст)
oldbalance2 = CInt(txtBalance2. Text)
Нум = Кинт(txtTransferAmount.Текст)
newbalance1 = oldbalance1-num

Если txtAccountNo.Text = "Saving" и newbalance1 < 100 затем
кредит = ложь
balancenum = 100
Ключевые слова elseif txtAccountNo.Text = "Current" и newbalance1 < 500 затем
кредит = ложь
balancenum = 500
Еще
кредит = истина
Конец, Если

Если (кредит) Затем
обновленный.Свойства commandtext = "обновление [Подробнее] установить баланс= '" &амп; newbalance1 &ампер; "' где AccountNo='" &амп; txtAccountNo.Текст &"' ;"
обновленный.CommandType = CommandType. Text
обновленный.Соединение = conn
Коннектикут.Открыть()
обновленный.Метод executenonquery()
Коннектикут.Закрывать()

Дим АВС = txtTransferAmount.Текст
АВС = -Азбука

insert. CommandText = " вставить в [транзакцию] (CustomerID, AccountNo, Amount, EntryDate) значения ('" & txtCustomerID.Текст &"', '" & txtAccountNo.Текст &ампер; "', '" &усилителя; конвертировать.ToInt32(АВС) &ампер; "', '" &усилителя; дата и время.Сейчас.Метод toString("гггг-ММ-ДД") &ампер; "');"
insert.CommandType = CommandType. Text
вставлять.Соединение = conn
Коннектикут.Открыть()
вставлять.Метод executenonquery()
Коннектикут.Закрывать()

newbalance2 = oldbalance2 + кол-во
обновленный.Свойства commandtext = "обновление [Подробнее] установить баланс= '" &амп; newbalance2 &ампер; "' где AccountNo='" &амп; txtAccountNo2.Текст &ампер; "' ;"
обновленный.CommandType = CommandType. Text
обновленный.Соединение = conn
Коннектикут.Открыть()
обновленный.Метод executenonquery()
Коннектикут.Закрывать()

вставить.Свойства commandtext = "вставить в [сделка] (Кодклиента, AccountNo, суммы, EntryDate) значения ('" &амп; txtCustomerID2.Текст &ампер; "', '" &амп; txtAccountNo2.Текст &ампер; "', '" &усилителя; конвертировать.ToInt32(txtTransferAmount.Текст) &ампер; "', '" &усилителя; дата и время.Сейчас.Метод toString("гггг-ММ-ДД") &ампер; "');"
insert.CommandType = CommandType. Text
вставлять.Соединение = conn
Коннектикут.Открыть()
вставлять.Метод executenonquery()
Коннектикут.Закрывать()

Ящик для сообщений.Показать ("запись обновлена.")
Еще
Ящик для сообщений.Show (txtAccountType.Текст &ампер; "остаток на счете должен больше чем" &амп; balancenum &ампер; ".")

Конец, Если
Еще
Ящик для сообщений.Show ("Произошел Сбой Транзакции,Пожалуйста, Повторите Попытку.")
Конец, Если

---