BorlandTalk.com

Stark · Guest

When reindexing a Table, I get a message error due to the table being BUSY,
though I JUST CLOSED it. This is a piece of my coding:

procedure ReindexTable(aTable);
with aTable do begin
Close;
ReadOnly:= False;
// Make sure the table is open exclusively so we can get the db
handle...
Exclusive:= True;
// REINDEXING
Open; <==== HERE I GET THE ERROR !!!
..........
end;

I should say that I get to the reindexing routine with the statement
"ReindexTable(MyTable)" from a ServiceForm form called from a MainForm. At
the same time, this MainForm is still showing that table in a DBGrid. I can
see the DBGrid still showing the table while trying to reindex. I don't know
whether the close statement should affect the DBGrid or not. But why it
doesn't CLOSE ??

Stark · Guest

Of course, it is some time that I am working on this problem, and I will go
on until I solve it.. but I wonder why a "close" statement doesn't close the
table. I have a Close, two more statement (ReadOnly and Exclusive..) and the
Open statement where the program fails with the "busy" message. I just can't
see what's wrong (obviously, something is wrong).

"Bjørge Sæther" <bjorge (AT) hahaha_itte (DOT) no> ha scritto nel messaggio
news:PygEb.6472$n31.108832 (AT) news2 (DOT) e.nsc.no...

pr · Guest

"Stark" <starkwedder (AT) virgilio (DOT) it> wrote

Stark · Guest

I actually open the Dataset in the MainForm, where I show it n the DBGrid.
From the MainForm I call the ServiceForm without closing neither the
MainFrom, nor the Table. I then try the close the table in the ServiceFrom,
where I define a specific Table component (associated to the same phisical
table). Is this the problem ? Did I understand well ?
Anyway I will try Bjorge suggestion and try again. BTW, why is the construct
"with xxxx do"'s be a source of error?

"Bjørge Sæther" <bjorge (AT) hahaha_itte (DOT) no> ha scritto nel messaggio
news:FJyEb.6657$n31.111132 (AT) news2 (DOT) e.nsc.no...

Stark · Guest

Following Bjørge advice, I Put a BeforeOpen event handler on both table
components. The statement that closes the Table fires the BeforeClose event;
nevertheless I can still see my DBGrid underneath (may be becuase is not
repainted?).
I also introduced a test "if MyTable.Active.." just after the Close which
shows the table is closed, but nevertheless the program still halts with a
"table is busy" message after the following statements:
ReadOnly:= False;
Exclusive:= True;
Open; <==== HERE I GET THE ERROR !!!

I noticed in the recent past that I had a similar problem opening the
DatabaseDesktop while programming my application. Though at the moment my
application was not running, I was unable to get into the table to
restructure it because tha table was busy. I had to close Delphi and reopen
it and it was all right ? Has this something to do with the present problem
?

"Bjørge Sæther" news:FJyEb.6657$n31.111132 (AT) news2 (DOT) e.nsc.no...

pr · Guest

"Stark" <starkwedder (AT) virgilio (DOT) it> wrote

Nicholas Ring · Guest

Just a thought but is the table active within the IDE?

Does it happen outside of Delphi (with Delphi close)?

Cheers,
Nick

Frank · Guest

Ok, yes, the table is active within the IDE, but as soon as i open my
MainForm, it is closed before opeing it. I thought this would take care of
the fact that the table may be open in the IDE...

"Nicholas Ring" <Nicholas.Ring (AT) NOSPAM (DOT) smf.com.au> ha scritto nel messaggio
news:Xns945962CC3C4EBNickForAlison (AT) 203 (DOT) 50.2.94...

Frank · Guest

I am going on with my tests with no result. I am almost desperate...
- I did set my table not active while running my program from the IDE got
the same "busy" message.
- Then I tried to run it outside the IDE. Same result!
- There must be something I can't see! So here is my code: I just hope
someone has a better sight...

THIS IS THE MainForm event from where the FormServices is called:
-----------------------------------------------------------------------
procedure TFormMain.BtnServicesClick(Sender: TObject);
begin
FormServices := TFormServices.Create(Self);
try
FormServices.ShowModal;
finally
FormServices.Free;
end;
end;

THIS IS THE FormSevices EVENT THAT CALLS THE REINDEXING routine:
-----------------------------------------------------------------------
procedure TFormServices.BtnRepairClick(Sender: TObject);
begin

BiblioDataModule.BooksTable.Close; <= added to make sure...
.................
ReindexAll;
.................
end;

procedure TFormServices.ReindexAll;
begin

.................
with BiblioDataModule do begin
if not ReindexTbl(BooksTable,msg) then
showmessage('Books-'+msg);
....
end;
end;

THIS IS THE REINDEXING FUNCTION:
function ReindexTbl(aTable: TTable; var StatusMsg: string): boolean;
var
rslt: DBIResult;
szErrMsg: DBIMSG;
bExclusive: Boolean;
bActive: Boolean;
bReadOnly: Boolean;
isdBASE: boolean;
tmpTablename: string;
begin
Result:= False;
StatusMsg:= '';
with aTable do begin
if TableType = ttDefault then begin
tmpTablename:= tablename;
tmpTablename:= lowercase(tmpTablename);
isDBASE:= pos('.dbf', tmpTablename)>0;
end else
isDBASE:= TableType = ttDBASE;

if isdBASE then begin
//Memorizza lo stato attuale
bReadOnly:= ReadOnly;
bExclusive:= Exclusive;
bActive:= Active;
// DisableControls;
Close;

//added for debugging purposes
if BiblioDM.BooksTable.Active then showmessage('BooksTable active');
//added for debugging purposes
if aTable.Active then
showmessage('aTable active')
else
showmessage('aTable NOT active =
'+aTable.DatabaseName+aTable.TableName);
//end
ReadOnly:= False;
Exclusive:= True;
Open; <======= BUSY MESSAGE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rslt:= DBIRegenIndexes(Handle);
if rslt <> DBIERR_NONE then begin
dbiGetErrorString(rslt, szErrMsg);
statusMsg:= szErrMsg;
end else
result:= True;
Close;
ReadOnly:= bReadOnly;
Exclusive:= bExclusive;
Active:= bActive;
EnableControls;
end else begin
StatusMsg:= 'Invalid table type for reindexing.';
exit;
end;
end; //with aTable
end;

"pr" <shin (AT) netactive (DOT) co.za> ha scritto nel messaggio
news:3fe51a5b.0 (AT) news1 (DOT) mweb.co.za...

Frank · Guest

I am going on with my tests with no result. I am almost desperate...
- I did set my table not active while running my program from the IDE got
the same "busy" message.
- Then I tried to run it outside the IDE. Same result!
- There must be something I can't see! So here is my code: I just hope
someone has a better sight...

THIS IS THE MainForm event from where the FormServices is called:
-----------------------------------------------------------------------
procedure TFormMain.BtnServicesClick(Sender: TObject);
begin
FormServices := TFormServices.Create(Self);
try
FormServices.ShowModal;
finally
FormServices.Free;
end;
end;

THIS IS THE FormSevices EVENT THAT CALLS THE REINDEXING routine:
-----------------------------------------------------------------------
procedure TFormServices.BtnRepairClick(Sender: TObject);
begin

BiblioDataModule.BooksTable.Close; <= added to make sure...
.................
ReindexAll;
.................
end;

procedure TFormServices.ReindexAll;
begin

.................
with BiblioDataModule do begin
if not ReindexTbl(BooksTable,msg) then
showmessage('Books-'+msg);
....
end;
end;

THIS IS THE REINDEXING FUNCTION:
function ReindexTbl(aTable: TTable; var StatusMsg: string): boolean;
var
rslt: DBIResult;
szErrMsg: DBIMSG;
bExclusive: Boolean;
bActive: Boolean;
bReadOnly: Boolean;
isdBASE: boolean;
tmpTablename: string;
begin
Result:= False;
StatusMsg:= '';
with aTable do begin
if TableType = ttDefault then begin
tmpTablename:= tablename;
tmpTablename:= lowercase(tmpTablename);
isDBASE:= pos('.dbf', tmpTablename)>0;
end else
isDBASE:= TableType = ttDBASE;

if isdBASE then begin
//Memorizza lo stato attuale
bReadOnly:= ReadOnly;
bExclusive:= Exclusive;
bActive:= Active;
// DisableControls;
Close;

//added for debugging purposes
if BiblioDM.BooksTable.Active then showmessage('BooksTable active');
//added for debugging purposes
if aTable.Active then
showmessage('aTable active')
else
showmessage('aTable NOT active =
'+aTable.DatabaseName+aTable.TableName);
//end
ReadOnly:= False;
Exclusive:= True;
Open; <======= BUSY MESSAGE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rslt:= DBIRegenIndexes(Handle);
if rslt <> DBIERR_NONE then begin
dbiGetErrorString(rslt, szErrMsg);
statusMsg:= szErrMsg;
end else
result:= True;
Close;
ReadOnly:= bReadOnly;
Exclusive:= bExclusive;
Active:= bActive;
EnableControls;
end else begin
StatusMsg:= 'Invalid table type for reindexing.';
exit;
end;
end; //with aTable
end;

"Bjørge Sæther" <bjorge (AT) hahaha_itte (DOT) no> ha scritto nel messaggio
news:PygEb.6472$n31.108832 (AT) news2 (DOT) e.nsc.no...

Frank · Guest

I am going on with my tests with no result. I am almost desperate...
- I did set my table not active while running my program from the IDE got
the same "busy" message.
- Then I tried to run it outside the IDE. Same result!
- There must be something I can't see! So here is my code: I just hope
someone has a better sight...

THIS IS THE MainForm event from where the FormServices is called:
-----------------------------------------------------------------------
procedure TFormMain.BtnServicesClick(Sender: TObject);
begin
FormServices := TFormServices.Create(Self);
try
FormServices.ShowModal;
finally
FormServices.Free;
end;
end;

THIS IS THE FormSevices EVENT THAT CALLS THE REINDEXING routine:
-----------------------------------------------------------------------
procedure TFormServices.BtnRepairClick(Sender: TObject);
begin

BiblioDataModule.BooksTable.Close; <= added to make sure...
.................
ReindexAll;
.................
end;

procedure TFormServices.ReindexAll;
begin

.................
with BiblioDataModule do begin
if not ReindexTbl(BooksTable,msg) then
showmessage('Books-'+msg);
....
end;
end;

THIS IS THE REINDEXING FUNCTION:
function ReindexTbl(aTable: TTable; var StatusMsg: string): boolean;
var
rslt: DBIResult;
szErrMsg: DBIMSG;
bExclusive: Boolean;
bActive: Boolean;
bReadOnly: Boolean;
isdBASE: boolean;
tmpTablename: string;
begin
Result:= False;
StatusMsg:= '';
with aTable do begin
if TableType = ttDefault then begin
tmpTablename:= tablename;
tmpTablename:= lowercase(tmpTablename);
isDBASE:= pos('.dbf', tmpTablename)>0;
end else
isDBASE:= TableType = ttDBASE;

if isdBASE then begin
//Memorizza lo stato attuale
bReadOnly:= ReadOnly;
bExclusive:= Exclusive;
bActive:= Active;
// DisableControls;
Close;

//added for debugging purposes
if BiblioDM.BooksTable.Active then showmessage('BooksTable active');
//added for debugging purposes
if aTable.Active then
showmessage('aTable active')
else
showmessage('aTable NOT active =
'+aTable.DatabaseName+aTable.TableName);
//end
ReadOnly:= False;
Exclusive:= True;
Open; <======= BUSY MESSAGE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rslt:= DBIRegenIndexes(Handle);
if rslt <> DBIERR_NONE then begin
dbiGetErrorString(rslt, szErrMsg);
statusMsg:= szErrMsg;
end else
result:= True;
Close;
ReadOnly:= bReadOnly;
Exclusive:= bExclusive;
Active:= bActive;
EnableControls;
end else begin
StatusMsg:= 'Invalid table type for reindexing.';
exit;
end;
end; //with aTable
end;

Nicholas Ring · Guest

"Frank" <iuesei (AT) virgilio (DOT) it> wrote in
news:4rDFb.25588$wM.2070118 (AT) news1 (DOT) tin.it:

Vinnie Murdico · Guest

You may want to try disabling Opportunistic Locking if the data file is
stored on a Windows NT/2000/XP computer. Here's a link with more
information on OpLocks: http://www.bdesupport.com/stability.htm.

--
Vinnie Murdico
Software with Brains, Inc.
SWBTracker - Professional Bug Tracking Software
http://www.softwarewithbrains.com

Frank · Guest

I closed it in the IDE, I think: What I did was to get into the table
component in my Data module and set the active property false.
( Is this that you mean when you say the table is active in the IDE ? )
But I am still getting the same "busy" message...

"Nicholas Ring" <Nicholas.Ring (AT) NOSPAM (DOT) smf.com.au> ha scritto nel messaggio
news:Xns945A51516C9A6NickForAlison (AT) 203 (DOT) 50.2.94...

Frank · Guest

I will look into the link you suggest. But what does it mean "disabling
Opportunistic Locking" ?

"Vinnie Murdico" <vinnie.murdico (AT) softwarewithbrainsSPAMKILL (DOT) com> ha scritto
nel messaggio news:r0JFb.584$NZ1.245 (AT) nwrddc02 (DOT) gnilink.net...