Поиск по БД и определение отсутствия необходимой информации

@Gaidn · Регистрация: 18.04.2014

Author24 — интернет-сервис помощи студентам

Снова здравствуйте! :-) Снова я с новой темой. ))) Весь вечер потратил на поиск, но так и не нашел опять... Про поиск-то по БД инфы много и это довольно просто (по крайней мере на том уровне, который мне нужно), но вот теперь мне понадобилось вот что:
Есть текстовое поле, пользователь вводит туда любые данные типа string. Нужно чтобы программа проверила, есть ли введенная информация в базе данных или нет. Если есть - действие 1, если нет - действие 2. Пробовал делать обычным поиском, но когда введенная информация в БД отсутствует, вылетает ошибка об отсутствии параметра(ов), ибо считывать ем нечего.
Код получается следующий:

VB.NET

Dim CONNECTION As New OleDb.OleDbConnection()
        CONNECTION.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\TestAccess.mdb")
        CONNECTION.Open()
        Dim COMMANDcheck As New OleDb.OleDbCommand("SELECT English FROM Таблица1 WHERE English = " & txtAddEng.Text, CONNECTION)
        Dim DATAREADERcheck As OleDb.OleDbDataReader = COMMANDcheck.ExecuteReader
        DATAREADERcheck.Read()
        FindCheck = DATAREADERcheck.GetValue(0)
        If FindCheck = "" Then lblAddEng.ForeColor = Color.Red Else lblAddEng.ForeColor = Color.OliveDrab
End Sub

Всем заранее спасибо! :-)

Добавлено через 1 час 47 минут
В приведенном коде была ошибка - в запросе нужно добавить одиночные кавычки. В общем с этим справился, но ошибка теперь выскакивает здесь

VB.NET

1	FindCheck = DATAREADERcheck.GetValue(0)

Что логично. Поэтому пытался через ошибку сделать - то есть если она выдает ошибку именно тогда, когда ничего не находит в БД, то я использовал конструкцию

VB.NET

        On Error Resume Next
        FindCheck = DATAREADERcheck.GetValue(0)
        If IsError(FindCheck) = False Then lblAddEng.ForeColor = Color.OliveDrab Else lblAddEng.ForeColor = Color.Red
        Err.Clear()

Но почему то, вне зависимости от того, есть ли введенная информация в БД или нет, всегда возвращается IsError = False. Видимо я что-то не так делаю. )))
Поэтому по прежнему очень жду помощи. :-)

Добавлено через 25 минут
В итоге получилось. :-) Наверняка это способ далеко не самый оптимальный, но получилось! )))
А сделал так:

VB.NET

        Dim COMMANDcheck As New OleDb.OleDbCommand("SELECT English FROM Таблица1 WHERE English = '" & txtAddEng.Text & "'", CONNECTION)
        Dim DATAREADERcheck As OleDb.OleDbDataReader = COMMANDcheck.ExecuteReader
        DATAREADERcheck.Read()
        check = DATAREADERcheck.HasRows
        If check = False Then lblAddEng.ForeColor = Color.OliveDrab Else lblAddEng.ForeColor = Color.Red
        CONNECTION.Close()

Но всё равно жду от вас наверное какой-то более оптимальный способ проверки на наличие информации в БД. :-)

Добавлено через 1 минуту
P.S.: Пошел спать - на что у меня есть аж 5 часов. )))

~~dev.Free~~ · 07.05.2014, 07:42

'" & txtAddEng.Text & "' - Будет искать точное совпадение. А вариант: LIKE '%" & txtAddEng.Text & "%' будет искать любые символы.

@Gaidn · 08.05.2014, 09:41 **[ТС]**

Сообщение от inv.DS

'" & txtAddEng.Text & "' - Будет искать точное совпадение. А вариант: LIKE '%" & txtAddEng.Text & "%' будет искать любые символы.

Большое спасибо! :-) Каждый новый совет как глоток свежего воздуха! :-) Очень благодарен!

Добавлено через 11 часов 2 минуты
inv.DS, ну а сам способ нормальный? Ведь может есть какие то более рационральные способы понять, отсутствует ли введенная пользователем информация в БД? :-)

~~dev.Free~~ · 08.05.2014, 12:36

Gaidn, Что ты хочешь, чего тебе надо добиться?

@Gaidn · 08.05.2014, 13:29 **[ТС]**

inv.DS, пользователь вводит в текстовое поле слово. В случае, если введенное слово уже есть в БД, совершается одно действие; если его нет в БД - совершается другое действие. Соответственно, мне нужно просто выполнить проверку, есть ли уже в базе данных введенное пользователем слово или нет.

~~dev.Free~~ · 08.05.2014, 13:46

Gaidn, А если он введет сначала Иванов, а потом Иван ов как будешь проверять?

@Gaidn · 08.05.2014, 13:50 **[ТС]**

Сообщение от inv.DS

Gaidn, А если он введет сначала Иванов, а потом Иван ов как будешь проверять?

У меня что-то вроде англо-русского и русско-английского словаря будет, поэтому в моем случае, слово должно восприниматься как есть. :-)

~~dev.Free~~ Заблокирован
	07.05.2014, 07:42	2
	'" & txtAddEng.Text & "' - Будет искать точное совпадение. А вариант: LIKE '%" & txtAddEng.Text & "%' будет искать любые символы. 1

@Gaidn 2 / 2 / 0 Регистрация: 18.04.2014 Сообщений: 60
	08.05.2014, 09:41 [ТС]	3
	Сообщение от inv.DS '" & txtAddEng.Text & "' - Будет искать точное совпадение. А вариант: LIKE '%" & txtAddEng.Text & "%' будет искать любые символы. Большое спасибо! :-) Каждый новый совет как глоток свежего воздуха! :-) Очень благодарен! Добавлено через 11 часов 2 минуты inv.DS, ну а сам способ нормальный? Ведь может есть какие то более рационральные способы понять, отсутствует ли введенная пользователем информация в БД? :-) 0

~~dev.Free~~ Заблокирован
	08.05.2014, 12:36	4
	Gaidn, Что ты хочешь, чего тебе надо добиться? 0

@Gaidn 2 / 2 / 0 Регистрация: 18.04.2014 Сообщений: 60
	08.05.2014, 13:29 [ТС]	5
	inv.DS, пользователь вводит в текстовое поле слово. В случае, если введенное слово уже есть в БД, совершается одно действие; если его нет в БД - совершается другое действие. Соответственно, мне нужно просто выполнить проверку, есть ли уже в базе данных введенное пользователем слово или нет. 0

~~dev.Free~~ Заблокирован
	08.05.2014, 13:46	6
	Gaidn, А если он введет сначала Иванов, а потом Иван ов как будешь проверять? 0

@Gaidn 2 / 2 / 0 Регистрация: 18.04.2014 Сообщений: 60
	08.05.2014, 13:50 [ТС]	7
	Сообщение от inv.DS Gaidn, А если он введет сначала Иванов, а потом Иван ов как будешь проверять? У меня что-то вроде англо-русского и русско-английского словаря будет, поэтому в моем случае, слово должно восприниматься как есть. :-) 0