Delphi Как Правильно Подключиться К Базе (решение Тут!)

  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
1 Мар 2015
1,117
215
155
VK
#1
Код:
var s,path: string;
i, j: integer;
AdoQuery: TADOQuery;
begin
  cntopt := 0;
  minprice := 100000000000;
  path := ExtractFilePath(Application.ExeName)+'eat.mdb';
  s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  ADOConnection1.ConnectionString := s;
  ADOTable1.Close;
  ADOTable1.TableName := 'table1';
  ADOTable1.Open;
  AdoQuery := TADOQuery.Create(nil);
  try
    AdoQuery.Connection := ADOConnection1;
    AdoQuery.SQL.Add('SELECT * FROM table1');
    AdoQuery.Open;
    i := 1;
    fldcount := ADOQuery.FieldCount;
    while not AdoQuery.eof do begin
      for j := 2 to fldcount do begin
        arr[i][j-1] := AdoQuery.Fields[j-1].AsFloat;
      end;
      names[i] := AdoQuery.Fields[0].AsString;
      AdoQuery.Next;
      Inc(i);
    end;
    count := i - 1;
  finally
    AdoQuery.Free;
  end;