Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2009, 00:42   #11
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

как и предполагалось его значение равно тому, которое я выставляю.
Нажал на 3, значение равно '3'.
Нажал на 1, значение равно '1'.
Вот что я делаю не так))))?
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 13.12.2009, 00:55   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Та-а-а-к-с...
Ну тогда осталось подставить в запрос QuotedStr(Win2kAppForm.C.TEXT)
mihali4 вне форума Ответить с цитированием
Старый 13.12.2009, 01:03   #13
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

не фурычит ☻
я пробовал и так :
Код:
Svyaz_Table.DataSet.CommandText:='SELECT * FROM SVYAZ WHERE CODE_HOBBI='+chr($27)+
Win2kAppForm.C.TEXT+chr($27) + ';';
и так :
Код:
Svyaz_Table.DataSet.CommandText:='SELECT * FROM SVYAZ WHERE CODE_HOBBI='+ chr($27) + chr($27) + Win2kAppForm.C.TEXT+chr($27)+chr($27) + ';';
как я понял это тоже самое что и функция QuotedStr?

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось mihali4; 25.12.2009 в 13:19.
Rin вне форума Ответить с цитированием
Старый 25.12.2009, 10:18   #14
GX_h10
Пользователь
 
Регистрация: 20.04.2009
Сообщений: 28
По умолчанию

Я в Интербэйсе не шарю, но при MSSQL сделал бы так:
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  sql:string;
begin
  Screen.Cursor := crSQLWait;
  try
    if ComboBox1.ItemIndex = 0 then                  
    begin
      sql := 'select * from where ' + QuotedStr(здесь какая-либо переменная); 
    end;
    if ComboBox1.ItemIndex = 1 etc... 
	
    ADOQuery.Close;
    ADOQuery.SQL.SetText(PChar(sql));
    ADOQuery.Open;
	
  finally
    Screen.Cursor := crDefault;
  end;
end;
GX_h10 вне форума Ответить с цитированием
Старый 25.12.2009, 18:21   #15
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

спасибо , помогли)))
MihalbI4 : прошу прощенья. Буду соблюдать!
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать так, чтобы в DBGrid выводилась таблица Excel Илюха БД в Delphi 10 06.05.2010 15:59
как связать таблицы в access, чтобы данные автоматически копировались? rudess Microsoft Office Access 1 15.08.2009 16:22
Как сделать так чтобы dBCOMBOBOX...... Gareevbo Общие вопросы Delphi 1 08.06.2009 19:59
Как сделать чтобы во время поиска по таблице не было видно перемещения по dbgrid? alxsev БД в Delphi 4 10.04.2009 19:03
связать прогу с outlook, чтобы автоматически отбирались письма с определенной темой Katrin Общие вопросы Delphi 1 02.07.2007 13:29