sqlite - Opening and closing database connections in multiuser environment -
this multiuser application (multithreaded) various departments access own database.the database sqlite , using firedac.for each department have assigned separate adconnection dont unexpected locks.
which connection activated (active) depends solely on number produced adquery3. done on mainform show because needs way (which gets shown after successfull login). able close every connection on formclose run bad issues when multiusers use same database , log in , out.so ask if right programming logic doing or done in better way?
also have never used many begin end else , wondering how proceed this?
i mean when need check if number of department came up, if datamodule1.adquery3.fieldbyname('department').asstring = '12' next else come up?
procedure tmainform.formshow(sender: tobject); begin if datamodule1.adquery3.fieldbyname('department').asstring = '13' begin try if datamodule1.1_connection.connected = true datamodule1.1_connection.connected := false else datamodule1.1_connection.drivername:= 'sqlite'; datamodule1.1_connection.params.values['database']:= extractfilepath(application.exename)+ 'mydatabase.db'; datamodule1.1_connection.connected := true; datamodule1.adtable1.tablename :='dept_13'; datamodule1.dept_13.active:=true; cxgrid1.activelevel.gridview := dept_13; except on e: exception begin showmessage('there error... : ' + e.message); end; end; end;
Comments
Post a Comment