动态连接数据库及动态建立ODBC,DSN(ZT)

【 tulaoshi.com - 编程语言 】

　　在ODBC数据源里配置数据库，通过这种方式，应用程序的编写变的简单。只需要在应用程序里面指定已经配置好的数据源就可以连接，访问数据库。但是，这种方式也有一定的局限性，需要手工的在ODBC数据源里面配置。需要教会程序的使用者如何去配置，而且，如果一不小心更改了ODBC数据源的配置（也许是无意的）。就会造成连接数据库失败。这时候，程序的使用人员也许会一筹莫展，束手无策。
　　在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('softwareODBCODBCINST.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('softwareODBCODBC.INIODBC Data Sources',True) then

　　      begin

　　        if not ValueExists(sDsnName) then

　　          WriteString(sDsnName,sDriName);
　　      end

　　      else

　　      begin

　　        result:= false;

　　        exit;

　　      end;

　　      CloseKey;

　　      if openkey('softwareODBCODBC.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;