Подскажите please, какие компоненты надо использовать для поиска через SQL, если база подключена через ADO, и как они должны быть связанны, допуская, что выборку производим выводя информацию в DBListBox

Как это сделать, если надо к примеру вводя текст в EDIT выводить в этот самый DBListBox
те записи из БД, начало которых совпадает с указанным нами текстом

TADOConnection<->TADOQuery<->TDataSource <->TDBGrid

ADOConnection1.ConnectionString := 'Provider = Microsoft.Jet.4.0; Data Source = C:\Base;';
ADOConnection1.Open;
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM mytable.mdb WHERE CustomerId = 12;');
ADOQuery1.ExecSQL;
ADOQuery1.Active := True;
DataSource1.DataSet := ADOQuery1;
DBGrid1. DataSource := DataSource1;

Попробуйте так:
1) Делаем подключение в ADOConnection
2) Ставим DataSource, ADOQuery и DBListBox
3) Устанавливаем связи:
DBListBox1.DataSource:=DataSource1;
DataSource.DataSet:=ADOQuery1;
ADOQuery1.Connection:=ADOConnection1;
4) Делаем:

Код

with ADOQuery1 do begin  Close;  SQL.Text:='Select SomeField from SomeTable;';  Open end;

оно глючит....... хотя наверное не оно, а просто я не шарю

пишет что, что мало ему параметров. Ну я создала один, все равно пишет, что неправильно применяю
я ему присвоила содержание Edit-та а потом не могу его сравнить с полем таблицы

как их вообще применять, эти параметры?

Цитата

пишет что, что мало ему параметров

Тут возможно, что ты неправильно назвала поле таблицы или саму таблицу. Ну например вместо запроса
Select SomeField FROM .....
ты написала
Select Someield FROM ..... (нет буквы F)

А вообще понятие параметров здесь реализовывается так:

Код

ADOQuery1.SQL.Add('SELECT * FROM MyTable WHERE id=:ss');  ADOQuery1.Parameters.ParamByName('ss').Value:=i;

И тогда Delphi там, где стоит ss подставит текущее значение переменной i. Тут важно, чтоб имя параметра в самом запросе и в ParamByName имело одинаковый регистр букв. Иначе Delphi будет ругаться ексепшонами.

а что такое id
это может быть полем таблицы?
может ли при этом быть использован id like :ss
у меня пока не хочет..

Цитата

а что такое id

пример поля таблицы

Цитата

это может быть полем таблицы?

да

Цитата

может ли при этом быть использован id like :ss

скорее всего да, хотя не уверен

Цитата

у меня пока не хочет..

а что именно не хочет?

Попробуй выполнить запрос на DBGrid'е. Если ошибка не исчезнет, то пости SQL код сюда: обязательно ошибочку найдем...

Цитата(Morpheus @ 17.10.2004, 21:14)

Цитата (Люба @ 17.10.2004, 20:12) может ли при этом быть использован id like :ss скорее всего да, хотя не уверен

А по-моему конструкция LIKE применипа для полей символьного типа...

Morpheus

работать не хочет, а ты что подумал?

и кстати listbox в упор не видит, просто ничего туда не выводит
у одного моего одноклассника та же история

но зато вроде на счет кода не ругается
Добавлено @ 20:40
Pakshin A. S.

на DBGrid'е все работает, вот в том-то и проблема...

Лично я бы сделал так: загрузин всю потеху от SQL в DBGrid, а потом оттудова всё в обыкновенный ListBox засунул... Даже и без DBGrid'а можно обойтись.

Код

with ADOQuery1 do begin  Close;  SQL.Text:='Select * from Table1 where id = ' + Edit1.Text + ';'; //id- идентификационный номер записи  Open;  listBox1.Items.Clear;  while not Eof do   begin    ListBox1.Items.Add(ADOQuery1.Fields[1].AsString); // поле после id    Next;   end;  Close; end;

Немного дольше, но вернее...

Pakshin A. S.

прийдется... но странно все же, что он не работает

а как организовать через параметр в sql поиск не на совпадение всего слова, а вот ввели мы к примеру первую букву слова, а оно вывело в списочек все записи базы на эту букву

ПОЗДРАВЛЯЮ, у тебя будет прога!!!
Просто надо добавить

Код

with ADOQuery1 do  begin   ...  end; DBListBox1.MasterField:='FieldName';

Добавлено @ 20:56
Попробуй...
Просто без этого у меня DBListBox оставался девственно чистым, а как это вставил, вроде заработало, но это, правда, была работа через Query с таблицей Paradox, но, скорее всего,с ADO то же самое!
Добавлено @ 21:02

Цитата

а как организовать через параметр в sql поиск не на совпадение всего слова, а вот ввели мы к примеру первую букву слова, а оно вывело в списочек все записи базы на эту букву

Проще простого!!!

Код

SELECT FIO FROM Spisok1 WHERE FIO LIKE ' + #39 + Edit1.Text + '%' + #39 + ';';

Будет выведен список всех значений поля FIO, начинающихся с текста в Edit1.

спасибо!

Обращайся!!!



P. S.
Как тебе форум? Нравится?

Цитата

а ты что подумал

Да я подумал не то, что ты подумала, а спросил что именно не работает.

И присоединяюсь к вопросу

Цитата(Pakshin @ 17.10.2004, 21:34)

Как тебе форум? Нравится?

Это сообщение отредактировал(а) Morpheus - 17.10.2004, 23:09

Pakshin A. S. Morpheus
Еще бы! Конечно нравится!!!
Я и не думала, что есть такие классные форумы

Спасибо за отзывчивость, вы - супер


Pakshin A. S.
На свойство MasterField выдает ошибку (у меня его нет в перечне свойств), я аналогично поменяла DataField, но DBListBox по прежнему в спячке
видно это он по природе своей глючит
в него даже без запросов ничего не выводится
буду использовать обычный ListBox

в TADOQuery MasterSоurce нет, там объединение делается на уровне запроса, а в TAdoTable - есть.

Sorry, действительно, не MasterField, а DataField...

Путем эсперимента установлено: Всё очень хорошо работает, к примеру, с DBMemo...
После подключения к базу данных делаем

Код

ShowMessage(DBListBox1.Find.ASString);

И что очень раздражает, показывается правильный результат!!!

Pakshin A. S., послушай, ну неужто трудно запустить среду, кинуть пару компонентов и посмотреть что там есть, а что нет? тыщи денег за это время траффик сьест, или что? люди, которым ты выкладываешь не опробованный код тоже могут сидеть на том же диал-апе, и также тратить время и деньги на бесполезные советы. не обижайся, но впредь я буду тебе ставить минусы просто за то, что ты от балды пишешь код, который даже не компилиться. ну надо же хоть немного уважать людей, которые спрашивают у всех у нас совета.

Даа... компонент оказался действитьно не русским...


Классы TDBListBox и TDBComboBox реаоизуют списки, аналогичные спискам TlistBox иT ComboBox, с тем лишь отличием, что они используются для выбора значений поля набора данных.

Связь с полем набора данных указывается свойствами DataSource и DataField. Значения, отображаемые в списке, содержатся в свойстве Itemsю Элементы массива Items можно добавлять как в инспекторе объектов, так и программно.

Код

{Заполнение списка типа TDBListBox значениями поля Company набора данных} procedure TFomr1.FormCreate(Sender: TObject); begin while not Table1.Eof do  begin   DBListBox1.Items.Add(Table1.FieldByName('Company').AsString);   Table1.Next  end end;

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

Щас ещё поглядим, может ещё что-нибудь найдем-с...
Добавлено @ 21:31

Цитата(x77 @ 18.10.2004, 22:27)

ставить минусы

мне наплевать на репутацию!!!

Главное - хоть как-нибудь помочь людям!!!

Это сообщение отредактировал(а) Pakshin A. S. - 18.10.2004, 21:39

Pakshin A. S., вот именно. нерабочий код - это не помощь, это издевательство. и либо он будет у тебя рабочим, либо нефиг его выкладывать. споры - приватом, закрыли здесь эту тему.

OK





Вот пример для тебя:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  ADOQuery1.Close;  ADOQuery1.SQL.Text:='Select FIO from Spisok where FIO Like ''À'';';  ADOQuery1.Open;  DBListBox1.DataField:='FIO';  while not ADOQuery1.Eof do    begin      DBListBox1.Items.Add(ADOQuery1.Fields[0].AsString);      ADOQuery1.Next    end end;

В DBListBox1 будут выведены все ФИО из списка, начинающиеся на букву "А".

Это сообщение отредактировал(а) Pakshin A. S. - 18.10.2004, 21:53

Pakshin A. S.

спасибо, у меня сейчас правда жуткие глюки с 7ым дэлфи вплоть до того что прога не запускается вообще, но как все исправится - обязательно испробую

Такой способ работы с DBListBox'ом описан в двух книгах => должно работать на 99%!!!

Pakshin A. S.

Наконец-то дошли руки до испробования твоего кода.
Аж не поверилось, когда в DBLB хоть что-то вывелось...
Но дак оно теперь другой глюк выдает: во-первых, реагирует только первый раз, а потом уже нет, а, во-вторых, почему-то выдает поля не по алфавиту.
Ну в общем я все больше убеждаюсь, что на DBLB надо забить
Он и правда не русский..

Но вот еще одна сложность: у меня некоторые записи в базе, по которым происходит поиск, состоят из двух слов, напр., геометрическая прогрессия. Скажем, человек вводит иначе : 'прогрессия геометрическая' и тогда уже он ничего не может найти. Когда я делала базу, я создала два столбика, во втором поменяла слова в термине местами.

но тогда я еще наивно думала, что будет просто сделать такой поиск.

а вот теперь думаю, что может можно как-то это через один столбик сделать? Короче

p/s Ну и замучила же я тебя с моим поиском...

Цитата

почему-то выдает поля не по алфавиту

Инфа выдается в том порядке, в котором они добавлялись в таблицу.
Щас исправим...
Добавлено @ 19:46
Как мне помнится, делаем через SQL.
Вот пример запроса:

Код

SELECT * FROM TableName ORDER BY FieldName

Т. е. происходит сортировка записей в алфавитном порядке по полю FieldName...

Добавлено @ 19:47

Цитата

реагирует только первый раз

Это как?
Добавлено @ 19:48

Цитата

а вот теперь думаю, что может можно как-то это через один столбик сделать?

Пока ответа на этот вопрос нет...
Надо дождаться ответов профи!

Pakshin A. S.

Цитата

Это как?

Когда набираю первую букву текста в Edit-е - выборка делается, но потом (вторая и все остальные буквы) - DBLB реагировать отказывается

Но я еще попробую сама помучиться...

Цитата

DBLB

А это что за штуковина?!

Pakshin A. S.
DBListBox конечно, просто мне надоело писать его полностью

Pakshin A. S.

Вроде бы уже и работает эта несчастная прога, только ищет почему-то только все слово, а не все слова на введенную букву
Я делаю через параметры, в свойстве SQL запроса еще до запуска проги пишу

Код

SELECT Termin FROM Slovnyk WHERE Termin LIKE :param

Потом в программе пишу

Код

dmodule.ADOQuery1.Active:=false; dmodule.ADOQuery1.Parameters.ParamByName('param').Value:=Edtslovo.Text; dmodule.ADOQuery1.Active:=true; DbLstbx.DataField:='termin'; while not dmodule.ADOQuery1.Eof do begin  DBLstBx.Items.Add(dmodule.ADOQuery1.Fields[0].AsString);  dmodule.ADOQuery1.Next; end;

Наверное, надо что-то добавить в тексте запроса, но что?
Я уже все перепробовала, что только можно

Короче, вот пример проектика "поиск по базе данных"
Он включает в себя три вида поиска: 1) строка целиком; 2) каждое слово из строки; 3) Смешанный поиск.
Из компонентов быз данных используется всего лишь три вещи: Query, DataBase, DBGrid (для вывода инфы).
Короче, там всё понятно.

Постарался реализовать

Цитата

а вот теперь думаю, что может можно как-то это через один столбик сделать?

P. S.
Использована таблица Paradox, но всё это через ADOQuery будет выглядеть так же...


Присоединённый файл ( Кол-во скачиваний: 21 )
 SearchDB.rar

Pakshin A. S.
Подскажи пожалуйста, что такое '%' и '*'. Это ASCII-коды? Если да, то чего?
А #39 - это пробел?

'%' - символ для SQL запроса, означающий, что после некоторого сочетания символов до знака % может стоять сколько угодно символов
Пример:
есть две записи
asdf
ased
Используя запрос с where Something Like 'as%'
Мы получим эти две записи.

'*' - символ, взятый из поиска файлов в Wind'е. Т. е. привычный заменитель сивола % для SQL...
#39 - одна ковычка '

ASCII код - число, напимер 39 - это код символа '

Цитата

Pakshin A. S. Вроде бы уже и работает эта несчастная прога, только ищет почему-то только все слово, а не все слова на введенную букву Я делаю через параметры, в свойстве SQL запроса еще до запуска проги пишу Код SELECT Termin FROM Slovnyk WHERE Termin LIKE :param Потом в программе пишу Код dmodule.ADOQuery1.Active:=false; dmodule.ADOQuery1.Parameters.ParamByName('param').Value:=Edtslovo.Text; dmodule.ADOQuery1.Active:=true; DbLstbx.DataField:='termin'; while not dmodule.ADOQuery1.Eof do begin DBLstBx.Items.Add(dmodule.ADOQuery1.Fields[0].AsString); dmodule.ADOQuery1.Next; end; Наверное, надо что-то добавить в тексте запроса, но что? Я уже все перепробовала, что только можно

Код

dmodule.ADOQuery1.Active:=false; dmodule.ADOQuery1.Parameters.ParamByName('param').Value:=Edtslovo.Text+'%';// вся фишка в проценте! dmodule.ADOQuery1.Active:=true; DbLstbx.DataField:='termin'; while not dmodule.ADOQuery1.Eof do begin DBLstBx.Items.Add(dmodule.ADOQuery1.Fields[0].AsString); dmodule.ADOQuery1.Next; end;

щас проверим

Pakshin A. S.

Маленький вопросик:

имеем к примеру в базе списочек
-абрикос
-ананас
-апельсин

при использовании ORDER BY при введении буквы а оно почему-то переводит курсор на апельсин, а надо бы на абрикос

как быть?

А если так?

Код

ORDER BY FieldName DESC

Код

SELECT * FROM SomeTable WHERE SomeField LIKE 'а%' ORDER BY SomeField

100% запрос!!!

Так ну 1 что я вижу это то, что в строке подключения не задан Locale Identifier я бы написал так

Код

ADOConnection1.ConnectionString := 'Provider = Microsoft.Jet.4.0; Data Source = C:\Base; Locale Identifier = 1049';

Второе не совсем понятно как была создана таблица, установлена ли кодировка символов и COLLATE при создании поля.
Но на сколько мне известно COLLATE можно установить и при выполнении sql запроса.

Как это делается в InterBase и его клонах написано здесь http://www.ibase.ru/devinfo/ibrusfaq.htm

Для вашего случая я бы вам посоветовал написать ORDER BY SomeField COLLATE cp1251

Pakshin A. S.

со * не проходит, у меня первое поле - счетчик, оно мне и выдает его
я пробовала нажать два раза на объект ADOQuery, там в окошке ( не знаю как оно называется) добавить все записи, а потом оставить только нужную, но тогда курсор все равно переезжает на апелисин, а не абрикос
все это странно

1) Alex - умный, попробуй как он советует...
2) Если правильно пнял, то нуна следующее:

Код

Select Field1,Field2,Field3 from SomeTable where Field1 Like 'а%' order by Field1 COLLATE cp1251

Вообще это всё походит на уроки SQL. В разделе "базу данных" есть замечательный учебник. Советую его почитать на досуге, если хочешь реально овлательно навыками создания баз даннух и работы с ними через язык SQL-запросов!

Цитата(Pakshin @ 25.10.2004, 22:04)

1) Alex - умный, попробуй как он советует...

Да ладно тебе, просто человек сам наступал на эти грабли

Добого времени суток! Подскажите пожалуйста. Пишу программу работы с БД в Acess, связь через ADO. Записи главной таблицы разнесены по вкладкам TabSheet, на каждой вкладке сгрупппированы по параметрам. Необходимо реализовать поиск следующим образом: с помощью RadioButton-ов выбирается параметр поиска, или же можно CheckBox-ами. Есть Edit, в который вводится слово для поиска. Как реализовать, чтоб в DBGrid-е курсор ставился не только на первую найденную запись, а можно было по нажатию кнопки, к примеру, переходить к следующей записи и т.д. удовлетворяющей параметру поиска. Или же выбирается параметр поиска (столбец  таблицы), затем в Edit-е пишется слово для поиска, и выводятся все найденные слова. Locate выводит лишь одну запись:

 
С Table.Filtered у меня не получилось, при вводе целого слова в DBGrid-е все поля исчезают  



Или можно это  реализовать как-то с помощью SQL-запроса? Т.е. пользователь вводит слово для поиска в Edit, указывает галочкой или несколькими нужный параметр, это передаётся в SQL-запрос заготовку, затем в DBGrid-е отображается результаты поиска записей удовлетворяющих параметрам?  

Кидаешь AdoQuery, в который запросом выводишь нужную инфу (т.е. все записи, в которых встречается FindEdit.Text). Его можно привязать к DBGrid'у. Только лучше взять так:

Т.е. для каждого столбца таблицы будет свой ADOQuery? А если к примеру не RadioButton-ами указывать  параметры поиска, а CheckBox-ами, то запросов будет больше? Можно ли как-то уменьшить число запросов? Или всё делается одним запросом?

p.s. Всё разобрался сам. Нужен всего один запрос, просто для каждого RadioButton-а в процедуре нажатия кнопки запрос переписывается заново, а результат вывожу в другой форме, не затрагивая основной DBGrid. Например:




Это сообщение отредактировал(а) Veniamin - 13.5.2008, 16:58