Курсовая горит, БД в Делфи, отчёт не выдаёт:(

[Stanly392]

Пишет "Активные транзакции отсутствуют!
Помогите, на сдачу осталось около недели(

[ByAlex]

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

Пишет "Активные транзакции отсутствуют!
Помогите, на сдачу осталось около недели(

А где же исходники???

[Stanly392]

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, OleServer, WordXP, ExcelXP;

type
  TForm11 = class(TForm)
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    ExcelApplication1: TExcelApplication;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}
uses Unit1,Unit2, ComObj;


procedure TForm11.Button1Click(Sender: TObject);
var xl:OleVariant; i:Integer;
begin
  if (DBLookupComboBox1.Text<>'') then
    begin
      try
        xl:= CreateOleObject('excel.application');
        xl.workbooks.add;
        xl.Visible:= true;
        with   DataModule2 do
          begin
            Otchet1.Parameters.ParamByName('@ID_Crew').Value:= DBLookupComboBox1.KeyValue;
            Otchet1.Parameters.ParamByName('@ID_Pozition').Value:= DBLookupComboBox1.KeyValue;
            Otchet1.Active:= true;
            Otchet1.First;
            i:= 1;
            xl.workbooks[1].worksheets[1].cells[i,1]:= 'ФИО футболиста';
            while not Otchet1.Eof do
              begin
                inc(i);
                xl.workbooks[1].worksheets[1].cells[i,1]:= Otchet1FIO.AsString;

                Otchet1.Next;
              end;
            Otchet1.Active:= False;
          end;
        Close;
      except
        DataModule2.rigorous.RollbackTrans;
        ShowMessage('Невозможно выполнить. Повторите.');
      end;
    end
  else
    ShowMessage('Не все поля заполнены');
end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
b[11]:= false;
end;

[Stilet]

DataModule2.rigorous.RollbackTrans;

Это если ты через ExecSQL выполняешь команду, не возвращающую запроса. Убери из кода.

[Stanly392]

Когда обычно вообще такая ошибка встречается?
Вся программа работает, и при попытке выполнения отчёта, не вылетает, а просто выдает "Активные транзакции отсутствуют"???

[=master=]

Такая ситуация бывает когда "Активные транзакции отсутствуют".
Что тут не понятно? транзакций нет, а вы хотите с ними работать, как можно работать с тем чего нет?

[Stanly392]

И что делать?

[=master=]

Не работать с тем чего нет, логично?

[Stilet]

И что делать?

То что я сказал выполнено?