Creating a Parameterized Query

[y-nov]

Help me, please!

Делаю выборку с помощью приложения на VB из базы SQL
В поле TextBox ввожу название фирмы, получаю все реквизиты фирмы (поставил WHERE FirmType = ?)
А если не хочется писать название фирмы в Textbox полностью, то как передать значение в parameters?
Как правильно написать LIKE?

То есть, Вот это не работает

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType = Like '" & Text1.Text & "' + '%'",
dbconnection, adOpenStatic, adLockOptimistic

[alibek]

Если у тебя запрос параметрический, надо использовать ADO.Command

[y-nov]

ADO.Command - это, в смысле, с помощью DataEnvironment ?

Просто, вот так проходит

adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType = '" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic


И так проходит:

adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType Like " + "'AOO%'", db, adOpenStatic, adLockOptimistic


А когда пишу
adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType Like " + "'& Text1.Text &'", db, adOpenStatic, adLockOptimistic

то ни фига не хочет.

[Leon_]

Код: Выделить всё

adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType Like '" & Text1.Text  &"'", db, adOpenStatic, adLockOptimistic

[y-nov]

Мужики круто!

[Andrey Fedorov]

Мужики круто!

А теперь в TextBox набери: П'ове'рка

[y-nov]

набрал.

Такой изврат.
Придется тады onError дописывать

А как правильно присвоить другой запрос открытому recordsety ?
Чтобы новые не плодить.

Т.е. хочется так
adoPrimaryRS.Close
adoPrimaryRS.Open "SELECT тра-та-та"

[Andrey Fedorov]

Такой изврат.
Придется тады onError дописывать

Зачем?

Просто надо писать примерно так (к примеру):

r.Open "SELECT * FROM MyTable WHERE MyField LIKE '" & REPLACE(Text , "'","''") & "'"

Ошибка, кстати, классическая...

[alibek]

Ага, а еще лучше написать "Проверка' or 1=1 --"

[y-nov]

На своем веку с таким чудом еще не встречался.
Попробовал - работает. Спасибо.

А как все-таки, на счет закрытия и открытия recordsetov?
Неужто нужно каждый раз писать

adoPrimaryRS.Close

Set adoPrimaryRS = Nothing
Set adoPrimaryRS = New Recordset

adoPrimaryRS.Open

[Leon_]

Не нужно, этого вполне достаточно:

Код: Выделить всё

adoPrimaryRS.Close
adoPrimaryRS.Open "SELECT тра-та-та"

[Andrey Fedorov]

Неужто нужно каждый раз писать

adoPrimaryRS.Close
Set adoPrimaryRS = Nothing
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open

Не обязательно - можно менять Source и делать затем Requery...

Или пользовать Command

[y-nov]

Чегой -то не получается.

Т.е. у меня - когда Form_load
я создаю connection и recordset. И всем полям даю значения из таблицы.

Дальше пользователь хочет найти нужну запись.
Он вводит название фирмы в Text.box и кликает по кнопке.

Вот в этой кнопке мне хочется закрыть AdoPrimaryRS и открыть его заново, но под новый запрос.

Причем мне бы не хотелось в этой кнопке опять писать Set dbconnection = New Connection.

Я конечно объявил в самом верху
Dim db As Connection
Dim WithEvents adoPrimaryRS As Recordset,
но все равно чего-то не помогает.
Он ругается, что объект закрыт и ничего с этим не поделаешь

Так что сейчас я в этой кнопке заново устанавливаю соединение. Создаю новый recordset (правда с тем же именем), беру записи из полученного запроса и раздаю их полям.
Мне кажется это полным безобразием.

[Leon_]

Что значит: "..объявил в самом верху"?
На уровне модуля или в обработчике Form_load?

[Rainbow]

Раз "в самом верху" и WithEvents - это очевидно на уровне модуля.

y-nov, а ты, часом, в Form_Load не делаешь Set db = nothing или там db.Close? И вообще, ту коннекцию открываешь - db?

Будет всем лучше, если сюда в форум ты запостишь код Form_Load. Разберемся, почему не работает...

[alibek]

Rainbow, если WithEvents, то не может быть модуль, только форма или класс

[y-nov]

В самом верху - значит объявил глобальные переменные для этой формы.

Код вставить не могу, т.к. я уже дома.
Но там точно нет Set db=nothing и db.Close

Спасибо всем за ответы.
Скорее всего до понедельника.

(Может конечно Visual Basic сейчас взгромоздить на тачку)

[Rainbow]

Rainbow, если WithEvents, то не может быть модуль, только форма или класс

alibek, в модуле формы или модуле класса - годится?

Но там точно нет Set db=nothing и db.Close

Это хорошо. Но все же если VB говорит "закрыт", значит ты его где-то закрыл. Так что вопрос лучше кодом...

[gaidar]

Это хорошо. Но все же если VB говорит "закрыт", значит ты его где-то закрыл. Так что вопрос лучше кодом...

Или не открыл. Элементарно поиском проверь на опечатки. Поставь везде.
Debug.Print и точки останова. Посотри, что и где открывается. Отладка - вещь нудная, но необходимая.

[y-nov]

Блин, действительно работает adoPrimaryRS.Close
adoPrimaryRS.Open

Я в Form_Load
коннект как локальный объявил.
Голова садовая.

А как строку
db.Open "PROVIDER=MSDASQL;dsn=LandODBC;uid=;pwd=;database=MyBase"

брать из инишника, т.к. я не знаю как будет называться база?

[Andrey Fedorov]

А как строку
db.Open "PROVIDER=MSDASQL;dsn=LandODBC;uid=;pwd=;database=MyBase"
брать из инишника, т.к. я не знаю как будет называться база?

Лучше бери из udl-файла. Примерно так:

Код: Выделить всё

g_cn.Open "File Name=" & App.Path & "My.udl"

Оно так и настраивать Connect удобней будет.

[y-nov]

А что нужно установить, чтобы можно было создавать Microsoft Data Link?
Я не могу создать UDL файл в explorer.

[Andrey Fedorov]

Поспробуй создать пустой файл с расширением udl - хоть в том-же nоtepad-e. Потом запусти его и редактируй...

[y-nov]

Я написал в файле My.udl

PROVIDER=MSDASQL;dsn=LandODBC;uid=;pwd=;database=MyBase

А VB говорит
File name or class name not found Automation operation

[Andrey Fedorov]

Я написал в файле My.udl

Зачем тебе что-то писать в udl-файле? Запусти его и у тебя откроется окошко построителя - в нем и укажешь свою базу...

[gaidar]

Вероятно, у товарища нет "построителя". Поэтому, можно использовать INI файл (на форуме было, а еще пример есть в API-Guide www.allapi.net).
Можно хранить в реестре (SaveSetting/GetSetting), или через API.
Можно просто хранить настройки в текстовом файле произвольного формата (а можно и в двоичном).
Еще, настройки можно загнать в Базу Данных, Access или свою (http://vbstreets.ru/VB/Articles/65546.aspx).

Вариантов много.

[Andrey Fedorov]

Вероятно, у товарища нет "построителя".

Вообще-то если не работает "построитель" (хотя у меня вроде везде работал), то собственно cам по себе UDL-файл это обычный юникодовский текстовый файл.

Пример его содержимого:

Код: Выделить всё

[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=EMT;Data Source=(local)

Скопировать в notepad, исправить там на нужное и при сохранении указать что кодировка Юникод...

[y-nov]

Пишу в файле

[MSDASQL]
PROVIDER=MSDASQL;dsn=LandODBC;uid=;pwd=;database=MyBase

Сохраняю в юникоде.
Та же ошибка.

А если дважды кликаю по My.udl, то запускается notepad.
О каком построителе идет речь?

[Andrey Fedorov]

О каком построителе идет речь

[/quote]

См. приложенный рисунок. По идее у тебя он должен запускаться при запуске UDL-ки. Попробуй убрать ее ассоциацию с notepad...

[y-nov]

Все заработало, спасибо.

Когда создал файл с помощью explorer, то он поставил двойное расширение My.udl.txt

А как в DataCombo сделать чтобы значения брались только из таблицы и пользователь не мог написать значение от фонаря?