Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как задать строковой переменной значение ячейки БД

Автор: Black_Joker 26.10.2005, 14:02

Не работает:

Код


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

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

Код


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;

Автор: -Black_Joker- 27.10.2005, 13:48

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

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

Автор: NNicolas 28.10.2005, 16:34

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

Автор: offline 28.10.2005, 21:06

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