Как присвоить результаты sql запроса на выборку переменной в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

var
  Query: TADOQuery; // объявляем объект для выполнения запросов к базе данных
  ResultString: string; // объявляем переменную для хранения результата запроса
begin
  Query := TADOQuery.Create(nil); // создаем объект запроса
  try
    Query.Connection := MyDatabaseConnection; // устанавливаем соединение с базой данных
    Query.SQL.Text := 'SELECT MyColumn FROM MyTable'; // задаем текст запроса на выборку
    Query.Open; // выполняем запрос и получаем результат

    ResultString := Query.FieldByName('MyColumn').AsString; // получаем значение поля и присваиваем его переменной

    // далее можно использовать переменную ResultString для дальнейших операций

  finally
    Query.Free; // освобождаем объект запроса
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

var
  Query: TADOQuery;
  ResultString: string;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := MyDatabaseConnection;
    Query.SQL.Text := 'SELECT MyColumn FROM MyTable';
    Query.Open;

    if not Query.IsEmpty then begin
      ResultString := Query.Fields[0].AsString;
    end;

    // далее можно использовать переменную ResultString для дальнейших операций

  finally
    Query.Free;
  end;
end;