Поиск записи по нескольким полям

[Лера.К]

В Edit1 ввожу индекс и по этому условию находит Область, Город и улицу:
if Edit1.Text <> '' then
ADOTable1.Locate('индекс',Edit1.Tex t,[loPartialKey,loCaseInsensitive]);
А вот чтобы по области, городу и улице находил индекс не получается.
При поиске по нескольким полям ищет по последнему полю, помогите пожалуйста

[Аватар]

      if ADOTable1.Locate('fieldname1;fieldname2;fieldname3',VarArrayOf([value1,value2,value3]),[]) then ...

[Лера.К]

Вылезла такая ошибка, это может быть из-за того что слишком большой объём БД Access?

[eval]

зачем же вы всю базу в память пихаете?

[Аватар]

Возможно, а может и в проге супер-пупер массивы объявлены. А какой объем той таблицы? В мегабайтах. С помощью чего соединяетесь с базой?

[Лера.К]

Таблица очень большая 72,6 мб (более 300 тыс записей)
Соединение с помощью ADOConnection, ADOTable и DataSource.
Я только учусь работать с БД в Delphi , поэтому заранее извиняюсь за возможно глупые вопросы)

[eval]

ADOTable выбросить и забыть, использовать ADOCommand
пользователю показываьб только то что ему надо, 72,6 мб ему явно не надо, он пошлет куда подальше и будет прав

[Аватар]

С помощью чего соединяетесь с базой?

Ну то, что ADOConnection, я догадался Строку соединения покажите. И 70Мб далеко не очень большая база. И про возможные массивы в памяти ни чего не ответили

[Лера.К]

Я в общем просто всё от начала до конца кидаю, но тут наверняка много ошибок

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, StdCtrls, DBCtrls, Buttons;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DBText4: TDBText;
    BitBtn1: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
If Edit1.Text <> '' then
ADOTable1.Locate('Index', Edit1.Text,[loPartialKey, loCaseInsensitive]);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ADOTable1.Locate('Oblast;Gorod;Ulica',VarArrayOf([Edit2.Text, Edit3.Text, Edit4.Text]),[loPartialKey, loCaseInsensitive]) then
begin
ADOTable1.Locate('Index', Edit1.Text,[loPartialKey, loCaseInsensitive]);
end;
end;
end.

Ещё я добавляла Form2, тоже на всякий случай кидаю, вдруг что не так

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form2.Update;
  Form2.ShowModal;
  Application.Run;
end.