Excel -> StringGrid -> Access

[evgenmil]

Здравствуйте!
Делаю программу "Взаимодействие Магазин-Склад", и один из ее моментов, это перемещение данных из готового Excel-файла в существующую Аccess базу (с которой и работает основная программа). Посмотрел ответы на КС попытался сделать тоже самое... но при этом у меня выдается ошибка, что поля в базе не найдено, делаю и через ADOQuery и через DataSet. Программа в файле.
Прошу вашей помощи, мне очень нужно этот модуль сделать работоспособным!
ссылка - http://evgenmil.gimnaziya-nt.ho-stin..._to_access.rar

[Evgeniy26]

  ADOConnection1.Connected:=true;
  AQ.SQL.Text:='Insert into list(pole1, pole2) values (:v1,:v2)';
  AQ.Prepared;
  for i:=1 to sg.RowCount-1 do begin
    AQ.Parameters.ParamByName('1').Value:=sg.Cells[i,1];
    AQ.ExecSQL;
  end;

Зайдите в базу и отредоктируите поля соответственно: pole1, pole2.
Вы пишите values (:v1,:v2), а сдесь AQ.Parameters.ParamByName('1') пишите AQ.Parameters.ParamByName('v1').
p.s В Access есть возможность загонять данные из Excel в базу.

[evgenmil]

Сообщение от Evgeniy26

  ADOConnection1.Connected:=true;
  AQ.SQL.Text:='Insert into list(pole1, pole2) values (:v1,:v2)';
  AQ.Prepared;
  for i:=1 to sg.RowCount-1 do begin
    AQ.Parameters.ParamByName('1').Value:=sg.Cells[i,1];
    AQ.ExecSQL;
  end;

Зайдите в базу и отредоктируите поля соответственно: pole1, pole2.
Вы пишите values (:v1,:v2), а сдесь AQ.Parameters.ParamByName('1') пишите AQ.Parameters.ParamByName('v1').
p.s В Access есть возможность загонять данные из Excel в базу.

Может быть вы мне сразу подскажите, как с остальными столбцами в StringGrid делать, т.е. заносить в базу... (желательно примерчик)

[Evgeniy26]

var
  i: Integer;
begin
  ADOConnection1.Connected:=true;
  AQ.SQL.Text:='Insert into list(1, 2) values (:v1,:v2)';
  AQ.Prepared;
  for i:=1 to sg.RowCount - 1 do
  begin
    AQ.Parameters.ParamByName('v1').Value := sg.Cells[1, i];
    AQ.Parameters.ParamByName('v2').Value := StrToDate(sg.Cells[2, i]);
    AQ.ExecSQL;
  end;
end;

[evgenmil]

Сообщение от Evgeniy26

var
  i: Integer;
begin
  ADOConnection1.Connected:=true;
  AQ.SQL.Text:='Insert into list(1, 2) values (:v1,:v2)';
  AQ.Prepared;
  for i:=1 to sg.RowCount - 1 do
  begin
    AQ.Parameters.ParamByName('v1').Value := sg.Cells[1, i];
    AQ.Parameters.ParamByName('v2').Value := StrToDate(sg.Cells[2, i]);
    AQ.ExecSQL;
  end;
end;

Как ни крути))) но этот код у меня не работает, как только пытаюсь добавить больше одно столбца, сразу вылетает ошибка: "Несоответствие типов...". А с добавлением одного столбца, все прекрасно работает...

[Evgeniy26]

Зайдите в базу и оставте там поля (1, 2). Второе поле сделайте типа дата.

[evgenmil]

Сообщение от Evgeniy26

Зайдите в базу и оставте там поля (1, 2). Второе поле сделайте типа дата.

Спасибо! Все работает, разобрался...