Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса / 7 сообщений из 7, страница 1 из 1
08.12.2002, 13:06
    #32077076
AndreiM
AndreiM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
Например, есть запрос
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:18
    #32077078
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
Код: 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:35
    #32077080
AndreiM
AndreiM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2002, 13:41
    #32077081
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как писать функции(методы), которые выдавали бы результат выполнения SQL запроса
Тока вместо:
Код: plaintext
1.
SQL.Assign (ASQL);

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

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


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