Навигация
Главная
Поиск
Форум
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
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Invision Power ... 65291
Организация зап... 63944
Модуль Forms 60856
Создание отчето... 60723
ТЕХНОЛОГИИ ДОСТ... 57045
Создание потоко... 56394
Пример работы с... 54284
Имитационное мо... 52493
Реклама
Сейчас на сайте
Гостей: 17
На сайте нет зарегистрированных пользователей

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

Обратное размещение элементов ЭВС на Delphi + Пояснительная записка
Моделирование работы узла коммутации сообщений на GPSS + Пояснительная з...
Информационная система - транспортный парк на Turbo Pascal (База данных)...

Реклама



Подписывайся на 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 Комментариев · 63944 Прочтений · Для печати

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


Комментарии
Анна June 12 2010 14: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 15:05:38
Статья помогла! Спасибо
Timon December 30 2011 14: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...
Шаблон для новост...

Случайные загрузки
Tank [Исходник на...
C# в кратком изло...
Применение фильтр...
TrayComp
DiZsubmit
PHP 5. Практика с...
AlignEdit
32 урока по Delphi
Assembler. Практикум
Printgrid
AJAX и PHP. разра...
Электронный магаз...
BSButton
Панель случайной ...
Задача о 8ми ладьях
Формирование отче...
PDA версия сайта
Dreamsoft Progres...
StartMark
Язык программиров...

Топ загрузок
Приложение Клие... 100376
Delphi 7 Enterp... 83096
Converter AMR<-... 20046
Borland C++Buil... 11180
GPSS World Stud... 10915
Borland Delphi ... 8128
Turbo Pascal fo... 6973
Visual Studio 2... 4963
Калькулятор [Ис... 4360
FreeSMS v1.3.1 3510
Случайные статьи
Относительно небол...
5-9).contoso.
Создание приложения
Объектные модели M...
Управление механиз...
6.13. Наблюдение...
кол источ- источ- ...
Local object types...
УТВЕРЖДЕНИЯ БАЗЫ З...
Арматурный магазин
Все идентификаторы...
В предыдущих верси...
Квартира в Новой У...
Регулярные выражения
8.1. Расположение...
Решения к главе 11
Динамическая компо...
Этап концептуализации
Разбиения множества
Какую из масок выб...
Для внутренних зап...
Многоязычность в РНР
Простейшие алгорит...
Информеры, зачем о...
При хакинге Xbox п...
Статистика



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

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