Changeset 134 for oup/current/DataAccess/Access_OUP_ADB.pas

Timestamp:

Mar 28, 2007, 7:53:54 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/DataAccess/Access_OUP_ADB.pas (modified) (1 diff)

oup/current/DataAccess/Access_OUP_ADB.pas

@@ -67 +67 @@
 
   FDatabase := TABSDatabase.Create(nil);
+  FDatabase.Exclusive := True;
+  FDatabase.MultiUser := False;
   FDatabase.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
   FDatabase.DatabaseFileName := DBFilename;
   FDatabase.Open;
   FQuery := TABSQuery.Create(FDatabase);
+  FQuery.DisableControls;
   FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID);
   FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC';