Навигация
Главная
Поиск
Форум
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
Бип из системно... 61063
Организация зап... 58730
Invision Power ... 58715
Приложение «Про... 57174
Модуль Forms 57135
Оператор выбора... 56647
Создание отчето... 56104
Подключение Mic... 56082
ТЕХНОЛОГИИ ДОСТ... 52320
Программируемая... 49813
Пример работы с... 48165
Имитационное мо... 47857
21 ошибка прогр... 42806
Реклама
Сейчас на сайте
Гостей: 14
На сайте нет зарегистрированных пользователей

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

Моделирование работы крупного аэропорта на GPSS + Пояснительная записка
Моделирование процесса обработки заданий на вычислительном центре на GP...
Программа тестирования и обучающая программа по математике на Turbo Pasc...

Реклама

Организация запросов к БД (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 Комментариев · 58730 Прочтений · Для печати

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


Комментарии
Анна 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...
Шаблон для новост...

Случайные загрузки
Srinilist
Delphi 2005 для .NET
Библия для програ...
Blib [Исходник на...
De Knop
Панель Календарь
Самоучитель C++
Apollovcl61
Degisy Data Acces...
Пример работы с ф...
Print Grid
IconCut [Исходник...
Клавиатурный трен...
Tenis [Исходник н...
Delphi. Учимся на...
CS:Source - монит...
Система баннеро...
Программирование ...
Crystal Button
mmmJlabel

Топ загрузок
Приложение Клие... 100308
Delphi 7 Enterp... 78147
Converter AMR<-... 20021
Borland C++Buil... 10705
GPSS World Stud... 9317
Borland Delphi ... 7677
Turbo Pascal fo... 6885
Visual Studio 2... 4906
Калькулятор [Ис... 4010
FreeSMS v1.3.1 3486
Случайные статьи
Сейшелы
Элемент ввода hidd...
Расчет токов корот...
Элементы управлени...
Функция проверяюща...
Смысл разработки и...
Invalid combinatio...
В задаче строим сл...
Продолжение
Заманчивые перспек...
Удаление узлов в D...
Стандартные типы м...
Основные комбинаторы
Удостоверьтесь, чт...
Удаление ранее вве...
Уход за компьютеро...
Создание файла сод...
ЭТАП 1. ИДЕНТИФИКА...
Постоянная интеграция
Используемые в DLL...
Агрегированные кон...
Определение параме...
Популярная механика
Кучи
Этап 3 - сколемизация
Статистика



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

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