Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сократить код, ADO mdb 
V
    Опции темы
AlanFree
Дата 2.11.2006, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
В своем проекте я часто использую запросы INSERT и UPDATE. После этого чтобы бы обновить даные грида пишу
Код

With FrmTov.ADOQuery do
begin
SQL.Clear;
SQL.Add('SELECT* From Tov');
Open;
end;

Этот участок кода повторяется уменя на разных формах раз 6-7.
Я Написал Глобальную процедуру в форме FrmTov
Код

var
  FrmTov: TFrmTov;
  procedure GridUpdate(var Q:TADOQuery; const xTable:string);

implementation

{$R *.dfm}

procedure GridUpdate(var Q:TADOQuery; const xTable:string);
begin
Q.SQL.Clear;
Q.SQL.Add('SELECT* From '+ xTable);
Q.Open;
end;


На форме FrmTov работает нормально. С другой формы я ее так вызываю (FrmTov и FrmNak_Prih есть ADOQuery). На других формах эта процедура не работает... В чем моя ошибка?
Код

procedure TFrmNak_Prih.Button1Click(Sender: TObject);
begin
GridUpdate(ADOQuery, 'Nak_Prih')
end;



Это сообщение отредактировал(а) AlanFree - 2.11.2006, 10:55
PM MAIL   Вверх
Akella
Дата 2.11.2006, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Цитата(AlanFree @  2.11.2006,  10:51 Найти цитируемый пост)
не работает

блиииин,  smile  ну что значит не работает, а?
ну нет у нас на форуме штатных телепатов, когда же вы научитесь вопросы правильно задавать?
PM MAIL   Вверх
AlanFree
Дата 2.11.2006, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Akella,  выдает ошибку, что я еще могу сказать?
Правильно ли я все объявил?

Это сообщение отредактировал(а) AlanFree - 2.11.2006, 11:43
PM MAIL   Вверх
Rodman
Дата 2.11.2006, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
а твои гриды все связаны с этим запросм???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Akella
Дата 2.11.2006, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Цитата(AlanFree @  2.11.2006,  11:42 Найти цитируемый пост)
Akella,  выдает ошибку, что я еще могу сказать?

ТЫ МОЖЕШЬ СКАЗАТЬ КАКУЮ ОШИБКУ И НА КАКОЙ СТРОКЕ

Добавлено @ 12:28 
ты делаешь ссылки в uses на модули?
PM MAIL   Вверх
AlanFree
Дата 2.11.2006, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Akella,  там всего одна строка

Код

procedure TFrmNak_Prih.Button1Click(Sender: TObject);
begin
GridUpdate(ADOQuery, 'Nak_Prih')
end;


Цитата(Akella @  2.11.2006,  12:27 Найти цитируемый пост)
Добавлено @ 12:28 
ты делаешь ссылки в uses на модули?


да делаю

Ошибку сейчас сказать не могу код не со мной сейчас, если шо сегодня дома выпишу ошибку и перепешу
PM MAIL   Вверх
Akella
Дата 2.11.2006, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
как одна? а здесь?
Код

procedure GridUpdate(var Q:TADOQuery; const xTable:string);
begin
  Q.SQL.Clear;
  Q.SQL.Add('SELECT* From '+ xTable);
  Q.Open;
end;


наверное ругается на запрос SELECT* From '+ xTable - пробел потерял перед звёздочкой

Добавлено @ 13:26 
и знаешь что ещё?
сделай так, т.е. объяви без Var
Код

procedure GridUpdate(Q:TADOQuery; const xTable:string);


Это сообщение отредактировал(а) Akella - 2.11.2006, 13:25
PM MAIL   Вверх
AlanFree
Дата 2.11.2006, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Цитата(Akella @  2.11.2006,  13:25 Найти цитируемый пост)
наверное ругается на запрос SELECT* From '+ xTable - пробел потерял перед звёздочкой

Но ведь если вызываю с формы FrmTov то работает.

Цитата(Akella @  2.11.2006,  13:25 Найти цитируемый пост)
сделай так, т.е. объяви без Var

Код    
procedure GridUpdate(Q:TADOQuery; const xTable:string)


пробывал так 
Код

GridUpdate(const Q:TADOQuery; const xTable:string)


Не помогло.

Влюбом случае дома поставлю пробел и объявлю без var.
Если не поможет завтра выпишу ошибку.

Добавлено @ 13:43 
Rodman, 
Цитата(Rodman @  2.11.2006,  12:23 Найти цитируемый пост)
а твои гриды все связаны с этим запросм???

Конечно!
PM MAIL   Вверх
Akella
Дата 2.11.2006, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
AlanFree, ты не понял?
Цитата

GridUpdate(const Q:TADOQuery; const xTable:string)

зачем const?

я ж показал как:
Код
procedure GridUpdate(Q:TADOQuery; const xTable:string);
PM MAIL   Вверх
AlanFree
Дата 2.11.2006, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Цитата(Akella @  2.11.2006,  16:06 Найти цитируемый пост)
procedure GridUpdate(Q:TADOQuery; const xTable:string);

так и сделаю
PM MAIL   Вверх
AlanFree
Дата 3.11.2006, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Akella,  убрал var и теперь все работает smile 
Спасибо за помощь.
PM MAIL   Вверх
Vas
Дата 3.11.2006, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Постоянные объекты не могут быть переданы как переменные параметры, то бишь с использованием Var! Потому что переменная объекта это уже указатель на объект!


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Akella
Дата 3.11.2006, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Vas, ты думаешь он поймёт?
я и сам не понял  smile 
PM MAIL   Вверх
AlanFree
Дата 3.11.2006, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Akella,  я так понял: Если объявляем с var значит переменная может изменятся в процедуре...
PM MAIL   Вверх
Akella
Дата 3.11.2006, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
да
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0544 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.