Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
#1

Запрос на вывод наименований столбцов в таблице - Delphi

10.04.2016, 20:43. Просмотров 1024. Ответов 40
Метки нет (Все метки)

SQL
1
SELECT * FROM Kursovaya.columns WHERE dogovor
Выдает ошибку
0
Миниатюры
Запрос на вывод наименований столбцов в таблице  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2016, 20:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Запрос на вывод наименований столбцов в таблице (Delphi):

Delphi не отображаются названия строк и столбцов в таблице - Delphi
Здравствуйте, помогите сделать программу рабочей. Программа не выводит названия строк и столбцов в таблице или же вообще не компилируется,...

Как сделать запрос к таблице созданной на винте? - Delphi
Я создал таблицу в базе данных, но не на сервере а на своем компе. Пытаюсь сделать к ней запрос через ADO и BDE, но выдается ошибка что...

Запрос на сравнение значений 2х столбцов в одной таблице - MySQL
Помогите создать запрос в MySql. Есть таблица со столбцами id1 и id2. Нужно вывести все строки в которых значение id2 не присутствует в...

Каков должен быть в MsAccess SQL-запрос, чтобы подсчитать количество столбцов (полей) в таблице? - MS Access
Всем привет! Каков должен быть в MsAccess SQL-запрос, чтобы подсчитать количество столбцов (полей) в таблице?

Запрос: вывод количества записей в таблице - Delphi БД
как вывести количество записей в таблице.. Есть делфи, бд "db.mdb", вывел таблицу в dbgrid, нужно в edit вывести количество...

Запрос, поиск в таблице, вывод в форму - MS Access
Требуется сделать запрос, поиск по фамилии в таблице Сотрудники, но чтобы результат выходил в форме Сотрудники, у меня получается показать...

40
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 18:03  [ТС] #31
Цитата Сообщение от qwertehok Посмотреть сообщение
так делать нельзя
параметром может быть только значение
Подскажите, пожалуйста, как сделать, а то моих знаний не хватает.
0
qwertehok
1829 / 1820 / 412
Регистрация: 29.08.2013
Сообщений: 12,218
11.04.2016, 20:26 #32
Цитата Сообщение от FierySoul Посмотреть сообщение
Подскажите, пожалуйста, как сделать, а то моих знаний не хватает.
Delphi
1
2
SQL.append('SELECT Arendator.ID_arendator AS [ID Арендатора], Arendator.Nazvanie AS Название , Arendator.INN AS ИНН, Arendator.OGRN AS ОГРН, Arendator.director AS Директор, Arendator.telefon AS Телефон FROM Arendator WHERE '+Edit2.text+' = :p2;');
parameters.parambyname('p1').value:=Integer(Combobox2.Items.Objects[Combobox2.ItemIndex]);
как то так
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
12.04.2016, 04:12  [ТС] #33
Цитата Сообщение от qwertehok Посмотреть сообщение
как то так
Вроде же сначала поле в котором искать, а потом значение?
Delphi
1
WHERE :p1 = '+Edit2.text+'
Поиск проходит без ошибок, но результат поиска остается пустым.
Хоть и значение копировал и вставлял
0
krapotkin
2772 / 2648 / 674
Регистрация: 14.04.2014
Сообщений: 12,726
Записей в блоге: 7
12.04.2016, 07:33 #34
просто сделайте уже запрос без параметров, иначе у вас никогда это не закончится
при этом имейте в виду, что строковые значения должны заключаться в апострофы, а численные - нет

Delphi
1
2
3
4
5
6
7
var par1,par2:string;
 
par1:= ansiQuotedStr(Edit1.text , '''');
par2:= edit2.text;
 
query.sql.text:='select f1,f2,f3 from table1 where f1='+par1+' and f2='+ par2;
query.open;
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
12.04.2016, 08:35  [ТС] #35
Цитата Сообщение от krapotkin Посмотреть сообщение
просто сделайте уже запрос без параметров, иначе у вас никогда это не закончится
при этом имейте в виду, что строковые значения должны заключаться в апострофы, а численные - нет
Спасибо, но все же мне нужно с параметром.
0
qwertehok
1829 / 1820 / 412
Регистрация: 29.08.2013
Сообщений: 12,218
12.04.2016, 08:55 #36
Цитата Сообщение от FierySoul Посмотреть сообщение
Поиск проходит без ошибок, но результат поиска остается пустым.
колонка не может быть параметром!
параметром может быть только значение этой колонки

так нельзя
SQL
1
* WHERE :p1 = '123'
только так
SQL
1
* WHERE POLE1 = :p1
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
12.04.2016, 09:25  [ТС] #37
Цитата Сообщение от qwertehok Посмотреть сообщение
колонка не может быть параметром!
параметром может быть только значение этой колонки
Жаль, а есть методы поиска при которых можно выбирать колонку и значение?
0
qwertehok
1829 / 1820 / 412
Регистрация: 29.08.2013
Сообщений: 12,218
12.04.2016, 10:01 #38
я же вам написал уже

Delphi
1
query.sql.text:=' * FROM Arendator WHERE '+Edit2.text+' = :p2;');
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
12.04.2016, 10:34  [ТС] #39
Цитата Сообщение от qwertehok Посмотреть сообщение
я же вам написал уже
DelphiВыделить код
1
query.sql.text:=' * FROM Arendator WHERE '+Edit2.text+' = 2;');
Извините, но я что-то не до понимаю. Как я понял, вы написали, что колонка из эдита берется , а значение из параметра, но мне нужно наоборот. Я попробовал поменять местами, но результата не дало.
0
qwertehok
1829 / 1820 / 412
Регистрация: 29.08.2013
Сообщений: 12,218
12.04.2016, 12:08 #40
вы вообще не понимаете что происходит?
2 вас две ПЕРЕМЕННЫЕ и значения в них устанавливаете вы

так берите и устанавливайте
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
12.04.2016, 14:48  [ТС] #41
Цитата Сообщение от qwertehok Посмотреть сообщение
вы вообще не понимаете что происходит?
2 вас две ПЕРЕМЕННЫЕ и значения в них устанавливаете вы
так берите и устанавливайте
Сделал так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
begin
if (trim(ComboBox2.Text) = '') then
begin
ShowMessage('Вы не выбрали столбец');
ComboBox2.DroppedDown := TRUE;
ComboBox2.SetFocus;
end
else if (trim(Edit2.Text) <> '') then
begin
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.append('SELECT Arendator.ID_arendator AS [ID Арендатора], Arendator.Nazvanie AS Название , Arendator.INN AS ИНН, Arendator.OGRN AS ОГРН, Arendator.director AS Директор, Arendator.telefon AS Телефон FROM Arendator WHERE '+ComboBox2.text+' Like ''%'+Edit2.text+'%''');
DataModule2.ADOQuery1.Active:=true
end
else
begin
ShowMessage('Вы не ввели значение');
Edit2.SetFocus;
end;
Но пришлось отказать от
Delphi
1
2
3
4
5
6
7
8
 var
i: Integer;
begin
ComboBox2.Items.Clear;
DataModule2.ADOQuery1.Open;
for i:=1 to DataModule2.ADOQuery1.FieldCount-1 do
ComboBox2.Items.Add(DataModule2.ADOQuery1.FieldList.Fields[i].FieldName);
end;
В пользу
Delphi
1
2
ComboBox2.Items.Clear;
DataModule2.ADOConnection1.GetFieldNames('Arendator', ComboBox2.Items);
Чтобы названия столбцов были на английском
0
12.04.2016, 14:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2016, 14:48
Привет! Вот еще темы с ответами:

SQL-запрос: вывод столбцов за разные промежутки времени - Delphi БД
Через делфи подключаюсь к БД. Оттуда в DBGrid вывожу таблицу с данными. Помогите написать запрос чтобы шесть столбцов выводились за один...

php+mySQL запрос на вывод имён столбцов таблицы - PHP БД
Народ, подскажите Как в этом запросе исключить вывод ,например, столбца id. Т.е. хочу вывести все имена столбцов таблицы кроме столбца с...

Запрос: вывод столбцов ссылочных ограничений целостности (внешний ключ) - Oracle
Решила порешать задания: Итак, ОДНОЙ командой select вывести сведения обо всех столбцах таблиц текущей схемы, которые используются...

Запрос на Добавление Наименований и цены плюс Условия - MS Access
Эта таблица с помощью запроса на добавление ТЕСТ вносится в таблицу ТЕСТ1. Как сделать, что если есть повторения строк НазваниеПрепарат,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
41
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru