ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
7 сообщений из 7, страница 1 из 1
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077076
AndreiM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreiM
Гость
Например, есть запрос
try
with ADOQuery1 do
begin
if ADOQuery1.Active then ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Assign(q1);
ADOQuery1.Open;
end;
except
ShowMessage('Ошибка выполнения запрорса');
end;

q1 - запрос, который выдаёт Count, т.е.
select count(*)
from docs
where dtip = 2

Нужна функия(метод), которая возвращала бы это значение, т.е. у нас Integer.

Спасибо за внимамние.
...
Рейтинг: 0 / 0
08.12.2002, 13:06
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077078
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
function GetCount (ASQL :string) :Integer;
begin
  Result :=  0 ;
  try 
    with ADOQuery1 do 
    begin 
      Close; 
      SQL.Clear; 
      SQL.Assign (ASQL); 
      Open;
      if Field.Count >=  1 
       then raise;
      Resut := Fields [ 0 ].AsInteger;
    end; 
  except 
    ShowMessage('Ошибка выполнения запрорса'); 
  end; 
end;
...
Рейтинг: 0 / 0
08.12.2002, 13:18
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077080
AndreiM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreiM
Гость
спасибо!
...
Рейтинг: 0 / 0
08.12.2002, 13:35
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077081
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Тока вместо:
Код: plaintext
1.
SQL.Assign (ASQL);

Код: plaintext
1.
SQL.Add (ASQL);
...
Рейтинг: 0 / 0
08.12.2002, 13:41
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077135
Alex Alexeev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex Alexeev
Гость
Код: plaintext
1.
  if Field.Count >=  1        then raise;

Не поднимет ли ошибку в любом случае ???
...
Рейтинг: 0 / 0
09.12.2002, 07:28
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077279
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
2 AndreiM
А книжку по Delphi почитать не пробовали. Ну так, хотя бы для интереса, чтобы лишние вопросы не задавать.
...
Рейтинг: 0 / 0
09.12.2002, 12:05
| Ответить | Цитировать | Написать  
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
    #32077312
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
> Alex Alexeev
Поднимет, поднимет.
Я на вскидку писал. Виноват - надо было еще и откомпеллить, протестировать.
Какой вопрос - такой ответ. Вы уж извените )))
...
Рейтинг: 0 / 0
09.12.2002, 12:40
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]