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

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

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

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

10.04.2016, 20:43. Просмотров 1023. Ответов 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, 12:53  [ТС] #16
Цитата Сообщение от qwertehok Посмотреть сообщение
а что бы получить колонки, то в Query можно запросить названия.
Подскажите как это сделать.
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 13:29 #17
FierySoul, посмотрите сами, там не так много вариантов - у меня нет сейчас делфи открытой
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 13:34  [ТС] #18
Цитата Сообщение от qwertehok Посмотреть сообщение
FierySoul, посмотрите сами, там не так много вариантов - у меня нет сейчас делфи открытой
Получилось.
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;
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 13:51 #19
Цитата Сообщение от FierySoul Посмотреть сообщение
Получилось.
так ты хотел просто получить колонки определенной таблицы?
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 16:56  [ТС] #20
Цитата Сообщение от qwertehok Посмотреть сообщение
так ты хотел просто получить колонки определенной таблицы?
Да, чтобы организовать поиск.
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 17:05 #21
а
Delphi
1
  ADOConnection1.GetFieldNames();
уже не работает?
1
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 17:16  [ТС] #22
Цитата Сообщение от qwertehok Посмотреть сообщение
уже не работает?
я от вас об этом узнал
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 17:24 #23
это похвально что вы пытаетесь что-то свое написать
но очень печально что доки никто не читает и свойства не смотрит
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 17:27  [ТС] #24
qwertehok,
Delphi
1
2
3
4
5
6
7
8
9
10
11
begin
With DataModule2.ADOQuery1 do
begin
Active:=false;
SQL.Clear;
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 :p1 = :p2;');
parameters.parambyname('p1').value:=Integer(Combobox2.Items.Objects[Combobox2.ItemIndex]);
parameters.parambyname('p2').value:=Edit2.text;
Showmessage(DataModule2.ADOQuery1.sql.text);
Active:=true;
end;
Почему они не видит параметры?
0
Миниатюры
Запрос на вывод наименований столбцов в таблице  
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 17:31  [ТС] #25
Цитата Сообщение от qwertehok Посмотреть сообщение
это похвально что вы пытаетесь что-то свое написать
но очень печально что доки никто не читает и свойства не смотрит
Просто нам дают задание, а как вы его сделаете и знаете как делать или нет их не волнует.
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 17:35 #26
а вы не можете почитать книжку по ADO или посмотреть в подсказке имеющиеся свойства?
вам нужен готовый код?

а на работе придет начальник и скажет мне нужен отчет вот такой-то. я вот его уже написал, откомпилируй и сдай как свой. я тебе за это заплачу.
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 17:48  [ТС] #27
Цитата Сообщение от qwertehok Посмотреть сообщение
а вы не можете почитать книжку по ADO или посмотреть в подсказке имеющиеся свойства?
вам нужен готовый код?
Нет, код не нужен. Просто не могу понять где ошибся. В интернете нашел конструкцию запроса, но тут уже данные известны, но мне нужно взять параметры из комбобокса и эдита
0
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 17:50 #28
в чем у вас сейчас проблема?
0
FierySoul
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 161
11.04.2016, 17:55  [ТС] #29
Цитата Сообщение от qwertehok Посмотреть сообщение
в чем у вас сейчас проблема?
Видимо в коде допустил ошибку скорее всего после WHERE, т.к. результатом запроса является пустая таблица, но данные вводил в поиск с помощью ctrl+c and ctrl+v и при
Delphi
1
Showmessage(DataModule2.ADOQuery1.sql.text);
он показывает 1 = 2, а не данные из комбобокса и эдита.
Delphi
1
2
3
4
5
6
7
8
9
10
11
begin
With DataModule2.ADOQuery1 do
begin
Active:=false;
SQL.Clear;
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 :p1 = :p2;');
parameters.parambyname('p1').value:=Integer(Combobox2.Items.Objects[Combobox2.ItemIndex]);
parameters.parambyname('p2').value:=Edit2.text;
Showmessage(DataModule2.ADOQuery1.sql.text);
Active:=true;
end;
0
Миниатюры
Запрос на вывод наименований столбцов в таблице  
qwertehok
1822 / 1813 / 409
Регистрация: 29.08.2013
Сообщений: 12,169
11.04.2016, 17:57 #30
Цитата Сообщение от FierySoul Посмотреть сообщение
FROM Arendator WHERE 1 = 2;
так делать нельзя
параметром может быть только значение

на Showmessage() значения параметров не отображаются
1
11.04.2016, 17:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.04.2016, 17:57
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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