Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.01.2008, 22:28
гость

 
Сообщений: n/a

SQL-запрос. Помогите найти ошибку!
Пожалуйста помогите найти ошибку!
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('Exam="programmirovanie"');
Query1.SQL.Add('Ball="3"');
Query1.Open;
DataSource1.DataSet:=Query1;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('Â ÁÄ íåò çàïèñåé óäîâëåòâîðÿþùèõ çàïðîñó.');
DataSource1.DataSet:=Table1;
end;
end;
Заранее спасибо!
  #2  
Старый 11.01.2008, 07:39
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

end лишний в середине, остальное не смотрел
  #3  
Старый 11.01.2008, 15:25
гость

 
Сообщений: n/a

Он выдает ошибку в условии!
  #4  
Старый 12.01.2008, 00:13
гость

 
Сообщений: n/a

Задача решена!
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите найти алгоритм rotoZOOM Задачи 9 11.12.2009 01:20
Помогите найти программку Срочно!!! Хрустишка Оффтопик 0 06.12.2007 11:42
Помогите найти ошибку в Bat файле гость Реализация, исходники, языки 1 26.11.2007 19:23
помогите найти алгоритм (теория чисел) Владимир Задачи 3 16.03.2007 09:58
помогите найти helium Графы 1 28.11.2006 08:52