VPF::Как задать строковой переменной значение ячейки БД

Black_Joker

Дата 26.10.2005, 14:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Не работает:

Код


ADOTable1.First;
For I:= 0 to *** do            begin
begin Name:= VarToStr(ADOTable1.FieldValues['Имя']);
if (Pos(‘dfgdfgdfg’, Name) > 0)  then
 begin
************
  end;
ADOTable1.next;              end;

Что можно сделать в этом случае?

Marriage

Дата 26.10.2005, 15:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Может я чего-то не пойму , то вот отрезок кода

Код


ADOTable1.First;
For I:= 0 to *** do 
   begin 
    begin 
      Name:= VarToStr(ADOTable1.FieldValues['Имя']);
      if (Pos(‘dfgdfgdfg’, Name) > 0)  then
       begin
          ************
       end;
     ADOTable1.next;              
   end;

3 begin и 2 end - не порядок.
Может так ?? За правильность не ручаюсь , не проверял ..

Код


ADOTable1.First;
while not ADOTable1.EOF do 
     begin 
       Name:= VarToStr(ADOTable1.FieldValues['Имя']);
       if (Pos(‘dfgdfgdfg’, Name) > 0)  then
        begin
           ************
        end;
      ADOTable1.next;              
    end;

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

Praemonitus, praemunitus

-Black_Joker-

Дата 27.10.2005, 13:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Накосячил с 2-я бегинами - признаю. В программе стоит правильно, но тем не менее, не работает.

Переслать даные в метку получается. А переслать данные в переменную - нет.

NNicolas

Дата 28.10.2005, 16:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Если к примеру у тебя поле 'Имя' физически называется Name, то такая строка точно работает:
Name := ADOTable1Name.AsString;

offline

Дата 28.10.2005, 21:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Name := ADOTable1.FieldByName('имя поля').AsString;

Это сообщение отредактировал(а) kirilllius - 28.10.2005, 21:10

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