Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Эмулятор микроп... 65535
Бип из системно... 62592
Организация зап... 59771
Invision Power ... 59429
Приложение «Про... 58658
Оператор выбора... 57775
Модуль Forms 57716
Подключение Mic... 57062
Создание отчето... 56988
ТЕХНОЛОГИИ ДОСТ... 53281
Программируемая... 51052
Пример работы с... 49163
Имитационное мо... 48762
21 ошибка прогр... 43521
Реклама
Сейчас на сайте
Гостей: 13
На сайте нет зарегистрированных пользователей

Пользователей: 13,039
новичок: kaitlynt4yz
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование вычислительного центра на GPSS + Отчет + Блок схема
Изменения контуров и сортировка в двумерном массиве чисел на Turbo Pasca...
Диплом RSA, ЭЦП, сертификаты, шифрование на C#

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании

Организация запросов к БД (Delphi + Microsoft SQL Server)


Организация запросов к БД


Рассмотрим особенности вызова запросов к БД из приложения. Различают три вида запросов:
• Статические запросы – текст запроса полностью формируется на этапе разработки приложения;
• Параметрические запросы – текст запроса формируется на этапе разработки приложения и содержит несколько параметров, во время выполнения приложения можно задавать значения параметров;
• Динамические запросы – текст запроса полностью формируется на этапе выполнения приложения.
При использовании технологии BDE для выполнения запросов применяется компонент TQuery. При использовании технологии ADO для выполнения запросов могут применяться следующие компоненты:
• Компонент TADOQuery – аналог компонента TQuery. Является наиболее универсальным. Позволяет выполнять любые SQL запросы, включая операторы SELECT, INSERT, UPDATE, DELETE, CREATE TABLE, EXECUTE и др. Текст запроса размещается в свойстве SQL. Содержит свойство Active логического типа, позволяющее выполнить запрос, возвращающий набор данных (оператор SELECT). Метод ExecSQL позволяет выполнить запрос, не возвращающий набор данных.
• Компонент TADODataSet – специализированный компонент для организации запросов на выборку с использованием оператора SELECT. Компонент не позволяет выполнять операторы, не возвращающие наборы данных, такие как: INSERT, UPDATE, DELETE, CREATE TABLE и т.п. Содержит удобный редактор, упрощающий конструирование запросов на выборку. Для вызова редактора используется свойство CommandText. Для выполнения запроса используется свойство Active.
• Компонент TADOCommand – специализированный компонент для организации запросов, не возвращающих набор данных, таких как: INSERT, UPDATE, DELETE, CREATE TABLE и т.п. Компонент не позволяет выполнять оператор SELECT. Метод Execute позволяет выполнить запрос.
Далее рассмотрим порядок организации запросов из приложений БД на основе технологии ADO.

Технология доступа к базам данных ADO


Технология ADO (ActiveX Data Objects) обеспечивает более простое подключение к БД, чем технология BDE. Для подключения к БД не требуется создавать псевдоним, как в технологии BDE – достаточно правильно настроить соединение с помощью компонента TADOConnection.
Компонент TADOConnection содержит следующие основные свойства:
ConnectionString – позволяет задать параметры соединения с БД. Для удобства настройки параметров можно использовать специальный мастер.
Connected – активизирует соединение с БД при задании значения true.
LoginPrompt. Если задано значение false, то при подключении к БД не будет выводится диалоговое окно с требование ввести имя и пароль пользователя. Имя и пароль будет взято из свойства ConnectionString. Если задано значение true, то имя пользователя и пароль всегда будут запрашиваться с помощью диалогового окна.
Пусть требуется установить соединение с БД Supply. Настроем соединение с помощью компонента TADOConnection. Зайдем в мастер подключения, дважды щелкнув мышкой по компоненту. В открывшемся окне выберем радио кнопку Use Connection String и нажмем кнопку Build (можно также подгрузить параметры соединения из специального файла *.udl, выбрав радио кнопку Use Data Link File).
Далее в диалоговом окне на вкладке Поставщик данных выберем тип провайдера БД, в нашем случае Microsoft OLE DB Provider for SQL Server (рисунок 1). На вкладке Подключение зададим параметры соединения с БД: адрес SQL-сервера, имя и пароль пользователя, имя БД (рисунок 2). После задания настроек нажмем кнопку OK.
Для активизации соединения зададим значение true для свойства Connected.
Компоненты TADOQuery, TADODataSet и TADOCommand содержат свойство Connection, с помощью которого подключаются к компоненту TADOConnection.
Далее рассмотрим примеры организации различных видов запросов с помощью наиболее универсального компонента TADOQuery.



Выполнение статических запросов


Создадим приложение, позволяющее выполнять статический запрос. Например, вывести всю информацию о поставщике Иванов. Для этого выполним следующее:
1. В новом каталоге создадим новый проект.
2. Организуем статический запрос. Для этого необходимо:
• поместить на форму компоненты TADOConnection, TADOQuery, TDataSource и TDBGrid, задать им соответствующие имена, например, ADOConnection, QueryStatic, DataSource, DBGrid (рисунок 3);
• связать их между собой;
• связать компонент ADOConnection с БД Supply;
• задать свойство SQL компонента QueryStatic, введя в него текст запроса на выборку, например:
SELECT *
FROM Поставщики
WHERE Наименование=’Иванов’



• просмотреть результаты запроса, установив у компонента QueryStatic свойство Active = true;
• запустить приложение.



Выполнение параметрических запросов


Создадим приложение, позволяющее выполнять параметрический запрос. Например, вывести всю информацию о поставщике с заданной фамилией. Для этого выполним следующее:
1. В новом каталоге создадим новый проект.
2. Организуем параметрический запрос. Для этого необходимо:
• поместить на форму компоненты TADOConnection, TADOQuery, TDataSource и TDBGrid, TEdit и TButton задать им соответствующие имена, например, QueryParams, DataSource, DBGrid, EditParams, ButtonQuery;
• связать их между собой;
• связать компонент ADOConnection с БД Supply;
• задать свойство SQL компонента QueryParams, введя в него текст запроса на выборку, например:
SELECT *
FROM Поставщики
WHERE Наименование=:name



Обратите внимание, что имена параметров в SQL-запросе должны начинаться с двоеточия;
• для кнопки ButtonQuery написать обработчик, который, будет считывать значение параметра из поля ввода EditParams, присваивать значение параметру SQL-запроса и выполнять запрос.
Пример кода для Borland C++ Builder:
// Закрыть запрос
QueryParams->Close();
// Считать из поля ввода значение параметра
// под названием param
QueryParams->ParamByName("name")->AsString =
EditParams->Text;
try{
// Выполнить запрос
QueryParams->Open();
}
// Обработать возможные ошибки
// при выполнении запроса
catch(EDBEngineError*)
{
Application->MessageBox("Не могу выполнить
запрос", "Ошибка", MB_OK);
}




Пример кода для Borland Delphi:
// Закрыть запрос
QueryParams.Close;
// Считать из поля ввода значение параметра
// под названием param
QueryParams.Parameters.ParamByName('name').Value :=
EditParams.Text;
try
// Выполнить запрос
QueryParams.Open;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);
end;



• запустить приложение. Убедиться в работоспособности запроса. Результат выполнения приложения приведен на рисунке 4.



Выполнение динамических запросов


Создадим приложение, позволяющее выполнять динамический запрос. Например, вывести всю информацию о поставщике с заданной фамилией. Для этого выполним следующее:
1. В новом каталоге создадим новый проект.
2. Организуем динамический запрос. Для этого необходимо:
• поместить на форму компоненты TADOConnection, TADOQuery, TDataSource и TDBGrid, TEdit и TButton задать им соответствующие имена, например, ADOConnection, QueryDynamic, DataSource, DBGrid, EditName, ButtonQuery;
• связать их между собой;
• связать компонент ADOConnection с БД Supply;
• для кнопки ButtonQuery написать обработчик, который, будет считывать значение из поля ввода EditParams, формировать текст SQL-запроса на выборку для компонента QueryDynamic с учетом значения поля ввода и выполнять запрос.
Пример кода для Borland C++ Builder:

// Необходимо подключить заголовок библиотеки
// Для использования функции sprintf
#include "stdio.h"
//...
// Строка с текстом запроса
char sql[255];
// Закрыть запрос
QueryDynamic->Close();
// Очистить массив строк для размещения
// текста запроса
QueryDynamic->SQL->Clear();
// Сформировать строку с текстом запроса
sprintf(sql,"SELECT * FROM Поставщики
WHERE [Наименование] = '%s'",
EditName->Text.c_str());
// Вывести текст запроса на экран
Application->MessageBox(sql, "Текст запроса",
MB_OK);
// Добавить стоку с текстом запроса
QueryDynamic->SQL->Add(sql);
try{
// Выполнить запрос
QueryDynamic->Open();
}
// Обработать возможные ошибки
// при выполнении запроса
catch(EDBEngineError*){
Application->MessageBox(
"Не могу выполнить запрос", "Ошибка",MB_OK);
}




Пример кода для Borland Delphi:
// Строка с текстом запроса
sql:string;
begin
// Закрыть запрос
QueryDynamic.Close;
// Очистить массив строк для размещения
// текста запроса
QueryDynamic.SQL.Clear;
// Сформировать строку с текстом запроса
sql:= 'SELECT * FROM Поставщики WHERE [Наименование] = '''+ EditName.Text + '''';
// Вывести текст запроса на экран
application.MessageBox(PChar(sql), 'Текст запроса',MB_OK);
// Добавить стоку с текстом запроса
QueryDynamic.SQL.Add(sql);
try
// Выполнить запрос
QueryDynamic.Open;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox( 'Не могу выполнить запрос', 'Ошибка',MB_OK);
end;



• запустить приложение. Убедиться в работоспособности запроса. Обратите внимание, что в процессе выполнения обработчика кнопки выводится окно с текстом сформированного запроса (рисунок 5). Результат выполнения динамического запроса совпадает с результатом выполнения запроса с параметрами, приведенным на рисунке 4.




Опубликовал Kest March 25 2009 13:16:21 · 4 Комментариев · 59771 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Анна June 12 2010 15:40:02
Спасибо за эту информацию! А Вы не подскажете, как можно в приложении организовать выборку файлов с сервера ms sql? Очень надо. (Например, найти все файлы с именем log и вывести их и их дату создания)
спасибо!!!!!!!!!!!!!!!!!!!!!! November 09 2010 16:52:24
procedure TForm6.Button3Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('SELECT * FROM soz WHERE ru=:ru ');
ADOQuery1.Active:=True;
// Закрыть запрос
ADOQuery1.Close;
// Считать из поля ввода значение параметра
// под названием param
ADOQuery1.Parameters.ParamByName('ru').Value :=
Edit1.Text;
try
// Выполнить запрос
ADOQuery1.Open;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);
end;
end;



Artem March 30 2011 16:05:38
Статья помогла! Спасибо
Timon December 30 2011 15:12:50
5 баллов, спасибо!
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
CwstatusBar
Добавление басса ...
SysInfo [Исходник...
Архив Апгрейтов с...
BDEPack
Работа с матрицами
C++ Builder в за...
Платформа програм...
Delphi 2005 для W...
Векторный редакто...
PHP 5
Иллюстрированный ...
Error mod
База игр
Проигрыватель Mp3
База Allsubmitter...
Форма в форме
XPATComponents
С. Г. Горнаков - ...
Converter AMR<->W...

Топ загрузок
Приложение Клие... 100333
Delphi 7 Enterp... 79806
Converter AMR<-... 20025
Borland C++Buil... 10823
GPSS World Stud... 9726
Borland Delphi ... 7846
Turbo Pascal fo... 6910
Visual Studio 2... 4926
Калькулятор [Ис... 4123
FreeSMS v1.3.1 3488
Случайные статьи
Программирование в...
Как заработать на ...
Обратные сортировк...
Подключения к друг...
Запретные слова в ...
Реализация активно...
Сжатие данных
Набор плагинов, ре...
Инструменты Visual...
Мосты, которые при...
Руководство считае...
Создание рабочей к...
Cобытийное моделир...
Сколько времени по...
Это поможет избежа...
ГЛАВА 4. ВОЗВРАТ ...
клиентских машинах...
Каково значение ад...
Нахождение последн...
Минимальная модель...
Поддержка справочн...
Подписки на новую ...
TEST (ПРОВЕРИТЬ)
Терминалогия принц...
Клоакинг
Статистика



Друзья сайта
Программы, игры
приведу ссылку

  • Ткани Алматы сайт
  • satin.kz
Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?