请问如何在线程中访问数据库？？？

Question

要用TSession，或者将Database的HandleShare设为True。
所有的MIDAS实例都是线程中访问数据库。在Demos\MIDAS下。

Answer 1

开个线程访问很简单的，uses adodb,db等
然后写程序访问就是

Answer 2

又是贴代码时间，这个问题我最少贴了5次代码，不过只有两个人给过分， >_<~~~~~~~{
以下是一个Thread的Unit代码，想停止这个Thread，请用
Thread.Suspend;
Thread.Free;
的格式。这样做才能在线程正在运行的进修中断。
}
unit TQueryThread_Unit;interfaceuses
  Classes,dbtables,db,Dialogs,Sysutils,DBGrids;type
  TSQLModelType = (stSelect,stExecute,stProcSelect);  TQueryThread = class(TThread)
  private
    { Private declarations }
    FQuery : TQuery;
    FSession : TSession;
    FDataBase : TDataBase;
    FDataSource : TDataSource;
    WarningMessage :String;
    procedure SetDBGrid;
    procedure ShowWarning;
  protected
    procedure Execute; override;
  public
    SQLText : String;
    SQLModel : TSQLModelType ;
    DBGrid : TDBGrid;
    constructor Create(AOwner:TComponent);
    destructor Destroy;override;
  end;implementationconstructor TQueryThread.Create(AOwner:TComponent);
begin
{一个Database只能让一个线程执行查询，所以要自己Create一个Session,
一个DataBase,一个Query，和一个DataSource，DataSource也是须的，
要不然在DBGrid指针的移动时候会等待直到SQL查询完毕。
如果有DataSource就不用等。线程会慢慢把数据放入DataSource，
然后在DBGrid上显示出来。}
    FSession := TSession.Create(AOwner) ;
    FSession.AutoSessionName := true ;
    FSession.KeepConnections := true ;
    FSession.Open;    FDataBase := TDatabase.Create(AOwner) ;
    FDataBase.SessionName := FSession.SessionName ;
    FDataBase.DatabaseName := 'DB_'+FSession.SessionName ;
    FDataBase.DriverName := 'MSSQL' ; {使用MS SQL Server作为后台数据库}
    FDataBase.LoginPrompt := False ;
    FDataBase.Params.Add('DATABASE NAME=test') ;{使用 SQL Server上的Test库}
    FDataBase.Params.Add('USER NAME=sa') ;
    FDataBase.Params.Add('PASSWORD=') ;
    FDataBase.Params.Add('SERVER NAME=dep') ;{这里请改为自己的服务器名字}    FQuery := TQuery.Create(AOwner) ;
    FQuery.SessionName := FSession.SessionName ;
    FQuery.DatabaseName := FDataBase.DatabaseName ;    FDataSource := TDataSource.Create( AOwner );
    FDataSource.DataSet := FQuery ;    FreeOnTerminate := False ;
    WarningMessage := '' ;
    SQLModel := stSelect ;
    inherited Create( True );
end;destructor TQueryThread.Destroy;
begin
    FSession.Close;
    //一定要先CloseFSession，然后才Free,要不然会等待直到SQL查询完毕。
    FSession.Free;
    FQuery.Free;
    FDataBase.Free;
    FDataSource.Free;
end;procedure TQueryThread.SetDBGrid;
Begin
    DBGrid.DataSource := FDataSource ;
end;procedure TQueryThread.ShowWarning;
Begin
    MessageDlg(  WarningMessage , mtWarning , [mbOK] ,0 );
end;procedure TQueryThread.Execute;
Var
    i : integer;
begin
try
    if SQLText = ''  then
    begin
        WarningMessage := '没有指定SQL查询语句.';
        Synchronize( ShowWarning );
    end
    else if (DBGrid = nil) then
    begin
        WarningMessage := '没有指定DBGrid.';
        Synchronize( ShowWarning );
    end
    else
    begin
        FQuery.Close;
        FQuery.SQL.Text := SQLText ;
        case SQLModel of
          stSelect ,stProcSelect:
                     Begin
                        FQuery.Open;
                        Synchronize( SetDBGrid );
                     End;
          stExecute: Begin
                        FQuery.ExecSQL;
                     End;
        end;
    end;
except
    on E:EDBEngineError do
    Begin
        WarningMessage := '数据库运行出错。' + #13 + '错误代码:' ;
        for  i:= 0 to E.ErrorCount -1 do
            WarningMessage := WarningMessage + #13+ IntToStr( E.Errors[i].ErrorCode ) +': ' + E.Errors[i].Message;
        Synchronize( ShowWarning );
    End
    else
        raise;
end;
end;end.