Пользователь

Добро пожаловать,

Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?

Ник:
Пароль:

Меню сайта




Ваше мнение
Оцените дизайн сайта

Супер
Симпатично
Пойдет
Ничего хорошего
Просто клиника


Результаты
Другие опросы

Всего голосов: 891
Комментарии: 2


Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Статьи и обзоры



Использование языка SQL в Delphi

Статьи по объектно-ориентированному программированию на языке Pascal и в среде программирования Delphi. Примеры работающего кода, тексты компонентов и классов, советы мастеров. Представляю краткую справочную информацию по использованию языка SQL в среде программирования Delphi. Для использования в программе команд языка SQL необходимо поместить на форму объект TQuery. Назовем его MyQuery. А поместив на форму объекты TDBGrid и TDataSource и связав все три объекта между собой, получим возможность видеть в объекте TDBGrid результаты SQL запросов.




Создание таблицы с помощью SQL запроса
Перед выполнением запроса должны быть определены следующие переменные строкового типа:

tbl - файл таблицы, например: 'c:programsdelphisqlfirst.dbf'; fld1, fld2 - название создаваемых полей; tp1, tp2 - типы создаваемых полей таблицы.

Приведенный ниже запрос создает таблицу состоящую из двух полей указанного типа:

Код
with MyQuery do
begin
Active:=False;
SQL.Clear;
SQL.Add('CREATE TABLE "'+tbl+'"');
SQL.Add('('+fld1+' '+tp1+', '+'fld2'+' '+tp2+')');
SQL;
end;

.
.
.
.
.
.
.
.
.
.
Типы поля могут быть: int, float, char(10).


Добавление записи в таблицу
Добавление записи в таблицу посредством SQL запроса выполняется следующим способом:

Код
with MyQuery do
begin
Active:=False;
SQL.Clear;
SQL.Add(' INTO "'+Tbl+'"');
SQL.Add('VALUES ('+val1+', '+val2+', "'+val3+'")');
SQL;
end;



Здесь val1, val2 - добавляемое значение целого или вещественного типа; val3 - добавляемое значение строкового типа.

Последовательность расположения добавляемых значений в тексте запроса важна и должна соответствовать порядку следования полей таблицы.


SQL запрос на выборку
Для выполнения простого SQL запроса на выборку всех записей из указанной таблицы достаточно следующего кода:

Код
with MyQuery do
begin
Active:=False;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM "'+Tbl+'"');
Active:=True;
end;



переменная tbl содержит название таблицы, а лучше - полный путь к таблице, например: 'c:programsdelphisqlfirst.dbf'. Свойство MyQuery.RecordCount содержит число записей, выбранных из таблицы SQL запросом.






Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.



Статьи и обзоры Delphi и TurboPascal Использование языка SQL в Delphi Представляю краткую справочную информацию по использованию языка среде программирования Delphi Для использования программе команд необходимо поместить на форму объект TQuery Назовем его MyQuery поместив объекты TDBGrid TDataSource связав все три объекта между собой получим возможность видеть объекте результаты запросов Создание таблицы помощью запроса Перед выполнением должны быть определены следующие переменные