动态连接数据库及动态建立odbc’dsn的delphi实现

在form或Data Modules上放置Tdatabase控件,属性设置如下:

  object dbWork: TDatabase

    DatabaseName = 'work'

    LoginPrompt = False

    SessionName = 'Default'

    TransIsolation = tiDirtyRead

    Left = 32

    Top = 16

  End

 

1)   Paradox数据库的连接

  dbWork.Connected    := False
  dbWork.DriverName   :='STANDARD';
  dbWork.Params.Values['PATH']  := ‘d:/data’; //填写数据库路径
  dbWork.Connected    := True;

 2)         Informix数据库的连接(BDE连接)

  dbWork.Connected    := False
  dbWork.DriverName  := 'informix';
  dbWork.Params.Values['SERVER NAME'] := sServer ;//数据库服务器名称
  dbWork.Params.Values['USER NAME'] := sUse ;//用户名称
  dbWork.Params.Values['DATABASE NAME'] := ‘sysmaster;//数据库名称
  dbWork.Params.Values['PASSWORD'] := sPass ;//用户密码
  dbWork.Connected:=True;

3)        SQL Server数据库的连接(与informix一样)

  dbWork.Connected    := False
  dbWork.DriverName  := 'MSSQL';
  dbWork.Params.Values['SERVER NAME'] := sServer ;//数据库服务器名称
  dbWork.Params.Values['USER NAME'] := sUse ;//用户名称
   dbWork.Params.Values['DATABASE NAME'] := ‘master;//数据库名称
   dbWork.Params.Values['PASSWORD'] := sPass ;//用户密码
  dbWork.Connected:=True;

4)        Postgrd SQL数据库的连接(ODBC连接)

  dbWork.Connected    := False
  dbWork.DriverName  := 'PostgreSQL';
 dbWork.Params.Values['ODBC DSN'] := 'PgSQL';/ /数据源名称
  dbWork.Params.Values['SERVER NAME'] := sServer ;//数据库服务器名称
  dbWork.Params.Values['USER NAME'] := sUse ;//用户名称
  dbWork.Params.Values['DATABASE NAME'] := ‘master;//数据库名称
  dbWork.Params.Values['PASSWORD'] := sPass ;//用户密码
  dbWork.Connected:=True;

 PS:ODBC连接时,请保证odbc驱动安装正确;并且有设置odbc;

附自动设置odbc代码:

// sDriName 驱动程序名 (PostgreSQL)

// sDsnName 数据源名

function CreateDSN(sDriName,sDsnName:string): boolean;

var

  regTmp: TRegistry;

  sTmp: String;

begin

  Result:= True;

  regTmp:= TRegistry.Create;

  try

    with regTmp do

    begin

      RootKey:= HKEY_LOCAL_MACHINE;

      if openkey('software/ODBC/ODBCINST.INI/'+sDriName,false) then

      begin

        sTmp:= ReadString('driver');

        if sTmp = '' then

        begin

          result:= false;

          exit;

        end;

      end

      else

      begin

        result:= false;

        exit;

      end;

      CloseKey;

      RootKey:= HKEY_CURRENT_USER;

      if openkey('software/ODBC/ODBC.INI/ODBC Data Sources',True) then

      begin

        if not ValueExists(sDsnName) then

          WriteString(sDsnName,sDriName);

      end

      else

      begin

        result:= false;

        exit;

      end;

      CloseKey;

      if openkey('software/ODBC/ODBC.INI/'+sDsnName,True) then

      begin

        if not ValueExists('ServerName') then

          writeString('ServerName','');

        if not ValueExists('DataBase') then

          writeString('DataBase','');

        if not ValueExists('UserName') then

          writeString('UserName','');

        if not ValueExists('Password') then

          writeString('Password','');

        if not ValueExists('Description') then

          writeString('Description','DoWhat Create');

        if not ValueExists('driver') then

          writeString('driver',sTmp);

      end

      else

      begin

        result:= false;

        exit;

      end;

    end;

  finally

    regTmp.CloseKey;

  end;

end;