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

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

Форум программистов > Delphi: Общие вопросы > Zeos Access

Автор: <Spawn> 26.6.2004, 18:16

Кто нибудь пользовался этими компонентами? Использую их для переброса нужных данных из Oracle в MySQL, но проблема в том, что срабатывает лишь первая операция(ExecSQL), до тех пор пока не сделать Disconnect и Connect снова. То есть если я, например, делаю 'INSERT INTO ...' - ExecSQL и так в цикле n-ое количество раз, то выполнится лишь первая операция. Есть у меня такая идея - делать SELECT при помощи ZQuery из нужной таблицы потом добавлять нужное количество записей и сохранять потом все на серваке(скорее всего так и сделаю). Но все же интересно, почему такой глюк происходит?
Добавлено @ 18:24
Ах да, вот код:

Код

function TMySQLDM.ExecuteQuery(const strSQL: string;
  const arParams: array of Variant; const QueryType: TQueryType): Boolean;
var
  intParams: integer;
begin
  try
    Result := CheckConnection;
    if not Result then
      Exit;
    with mysqlQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Text := strSQL;
      for intParams := 0 to High(arParams) do
        Params.Items[intParams].Value := arParams[intParams];
      case QueryType of
        qtSelect: Open;
        qtOther: ExecSQL;
      end;
    end;
  except
    on E: Exception do 
    begin
      Result := False;
      AddLog(E.Message);
    end;
  end;
end;