VPF::Изменить строку в базе? - Форум программистов

Nicholas

Дата 14.5.2005, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 0

Код


procedure TfrmMain.AddRecordToMSAccessDB;
var
  lADOQuery: TADOQuery;
  lUniqueNumber: Integer;
begin
  if Trim(EditTextBox.Text) <> '' then
  begin
    lADOQuery := TADOQuery.Create(nil); 
    with lADOQuery do
    begin 
      ConnectionString := Global_DBConnection_String;
      SQL.Text         := 
        'SELECT Number from Users';
      Open;
      Last;
      // Generate Unique Number (AutoNumber in Access)
      Try
      lUniqueNumber := 1 + StrToInt(FieldByName('Number').AsString);
      Except
      lUniqueNumber := 1;
      end;
      Close;
      // Insert Record into MSAccess DB using SQL
      SQL.Text :=
        'INSERT INTO Users Values (' +
        IntToStr(lUniqueNumber) + ',' +
        QuotedStr(UpperCase(EditTextBox.Text)) + ',' +
        QuotedStr(IntToStr(lUniqueNumber)) + ')';
      ExecSQL;
      Close;
      // This Refreshes the Grid Automatically
      Timer1.Interval := 5000;
      Timer1.Enabled  := True;
    end;
  end;
end;

А как строку изменить? Я в запросе пишу:
UPDATE Users SET User='New' WHERE LOWER(User) = "Old';

Delphi говорит LOWER эту функцию не знаю!
Ок, убераю ее, новая ошибка синтаксис UPDATE не верный!??

Покажите пример правильной функции изменения строки на подобии вышеуказанной.
smile

DimW

Дата 14.5.2005, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44

Код


UPDATE USERS
SET
USER = 'NEW'
WHERE USER = 'OLD'

Добавлено @ 12:06
Сори... Все из за того что USER зарезирвированное слово.
замени имя поля (USER) таблицы на что нить....
smile

Nicholas

Дата 15.5.2005, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 0

Цитата(DimW @ 14.5.2005, 11:57)

Все из за того что USER зарезирвированное слово

Изменил, но работает только без Lower - почему же эту функцию не узнает?

Vit

Дата 15.5.2005, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Где-то в Program files/Common Files/Microsoft есть файл jetsql40.chm или как-то похоже называющийся где приведены все поддерживающиеся конструкции SQL для MS Access

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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