WEB开发网
开发学院软件开发Delphi 动态连接数据库及动态建立ODBC,DSN(ZT) 阅读

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

 2006-02-04 13:56:41 来源:WEB开发网   
核心提示:动态连接数 在ODBC数据源里配置数据库,通过这种方式,动态连接数据库及动态建立ODBC,DSN(ZT),应用程序的编写变的简单,只需要在应用程序里面指定已经配置好的数据源就可以连接,这时候,程序的使用人员也许会一筹莫展,访问数据库,但是
动态连接数

在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('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;

Tags:动态 连接 数据

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接