Добрый день!
Идея была следующая.
Берем ComboBox и прикручиваем к нему столбец из базы данных. Итак ...
1. В скрипте "Проект полностью запущен":
- очищаем нужный список
- запрашиваем из БД количество строк в нужном столбце конкретной таблицы указанной в настройках БД RunSQL('SELECT count(*) FROM ways', nil, 150);150 : tblCountWays.Value := DataSet[0].AsInt;
procedure ReadyComboBox (CountWaysInTbl:TM_Variable;
SelectedComboBox:TM_ComboBox;
DataSetX:TM_DataSet);
var
i:integer;
begin
SelectedComboBox.Clear;
for i := 0 to CountWaysInTbl.AsInt - 1 do
SelectedComboBox.AddItem(DataSet[i].AsStr);
end;
RunSQL('SELECT id_ways FROM etp_tc_insat.ways', nil, 151);
5. Далее в скрипте "Выполнен SQL запрос" вызываем через Case DataSet.Tag of глобальную функцию:
151 : ReadyComboBox(tblCountWays, cbWayEnter, DataSet);
И задумка не работает. Можете помочь.
Жду вопросов и предложений
Здравствуйте!
Для заполнения списка из БД вполне можно обойтись обработкой запроса к БД, составленного таким образом, что данные для заполнения списка будут расположены в первом поле (с индексом 0) результата в DataSet, а ссылка на заполняемый список будет указана в параметрах вызова:
- RunSQL('SHOW TABLES;', ComboBox1, 1); // заполнить список ComboBox1 именами таблиц БД;
- RunSQL('DESC ' + UTF8ToString(ComboBox1.Text) + ';', ComboBox2, 1); // список столбцов выбранной таблицы (для запроса DESC - первое поле записи);
- RunSQL('SELECT `' + UTF8ToString(ComboBox2.Text) + '` FROM `' + UTF8ToString(ComboBox1.Text) + '`;', ComboBox3, 1); // выбранный столбец из выбранной таблицы.
Фрагмент скрипта "Выполнен SQL-запрос":
. . .
1: with DataSet.Sender as TM_ComboBox do begin
Clear; // очистить список
while not DataSet.EOF do begin
AddItem(DataSet.Fields[0].AsStr); // заполнение списка
DataSet.Next; // следующая запись
end;
Enabled := not DataSet.IsEmpty; // список заполнен, разрешить доступ для непустого списка
end;
. . .
Похожий цикл и для заполнения списка из файла.
Пример получения списка значений выбранного столбца из выбранной таблицы текущей БД во вложении.
Добрый день. Дабы не плодить темы напишу здесь.
Идея абсолютно та же. Есть таблица, содержимым одного из столбцов необходимо заполнить ComboBox.
Основа алгоритма взята из поста №1, но доработано до такой логики: Мы не просто добавляем очередной пункт в ComboBox, а сравниваем содержимое очередной ячейки таблицы с уже существующими пунктами в ComboBox, т.к. содержимое ячеек в таблице может повторяться.
Сам запрос:
RunSQL('SELECT `ProdName` FROM `archive` ', ComboBox3, 10);
Его обработка:
if DataSet.Tag = 10 then
begin
with DataSet.Sender as TM_ComboBox do
begin
Clear; // очистить список
AddItem(DataSet.Fields[0].AsStr);
DataSet.Next;
while not DataSet.EOF do
begin
flag := true;
for i:= 0 to ItemsCount do
if Items[i].Text = DataSet.Fields[0].AsUTF8String then
flag := false;
if flag then AddItem(DataSet.Fields[0].AsStr); // заполнение списка
DataSet.Next; // следующая запись
end;
Enabled := not DataSet.IsEmpty; // список заполнен, разрешить доступ для непустого списка
end;
end;
Все работает, за исключением одного момента, если ячейка таблицы содержит строку на русском языке, равенство Items.Text = DataSet.Fields[0].AsUTF8String не выполняется, хотя со строками с латинскими буквами все работает прекрасно. Подскажите, куда смотреть?
Здравствуйте.
за исключением одного момента, если ячейка таблицы содержит строку на русском языке, равенство Items.Text = DataSet.Fields[0].AsUTF8String не выполняется
Видимо равенство не выполняется, т.к. Вы сравниваете разные типы строк UTF8String и string. Ведь Вы в коде заполняете список строками типа string (AddItem(DataSet.Fields[0].AsStr)), а затем сравниваете их c UTF8String (DataSet.Fields[0].AsUTF8String). Они, конечно, не будут совпадать. Нужно заполнять список и сравнивать значения в одном типе UTF8String. А также цикл по строкам списка должен быть таким: "for i:= 0 to ItemsCount - 1 do", т.к. отсчет идёт с нуля. Ещё можно прерывать цикл через Break, когда найдена первая совпадающая строка. Пример готового кода:
if DataSet.Tag = 10 then
begin
with DataSet.Sender as TM_ComboBox do
begin
Clear; // очистить список
AddItem(DataSet.Fields[0].AsUTF8String);
DataSet.Next;
while not DataSet.EOF do
begin
flag := true;
for i:= 0 to ItemsCount - 1 do
if Items[i].Text = DataSet.Fields[0].AsUTF8String then
begin
flag := false;
Break;
end;
if flag then AddItem(DataSet.Fields[0].AsUTF8String); // заполнение списка
DataSet.Next; // следующая запись
end;
Enabled := not DataSet.IsEmpty; // список заполнен, разрешить доступ для непустого списка
end;
end;
Исключить дублирующие записи можно следующим SQL-запросом:
RunSQL('SELECT `ProdName` FROM `archive` GROUP BY `ProdName`;', ComboBox3, 10);