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

人生本是一个不断学习的过程，在这个过程中，就是你们的好帮手，下面分享的动态连接数据库及动态建立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数据库的连接

:= False

:='STANDARD';

&#&#;] := ‘d:/data’; //填写数据库路径

:= True;

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

:= False

:= 'informix';

&# NAME'] := sServer;//数据库服务器名称

&# NAME'] := sUse ;//用户名称

&# NAME'] := ‘sysmaster;//数据库名称

&#&#;] := sPass ;//用户密码

:=True;

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

:= False

:= 'MSSQL';

&# NAME'] := sServer ;//数据库服务器名称

&# NAME'] := sUse ;//用户名称

&# NAME'] := ‘master;//数据库名称

&#&#;] := sPass ;//用户密码

:=True;

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

:= False

:= 'PostgreSQL';

&# DSN'] := 'PgSQL';/ /数据源名称

&# NAME'] := sServer ;//数据库服务器名称

&# NAME'] := sUse ;//用户名称

&# NAME'] := ‘master;//数据库名称

&#&#;] := sPass ;//用户密码

:=True;

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

附自动设置odbc代码:

// sDriName 驱动程序名 (PostgreSQL)

// sDsnName 数据源名

function CreateDSN(sDriName,): boolean;

var

regTmp: TRegistry;

sTmp: String;

begin

Result:= True;

regTmp:= ;

try

with regTmp do

begin

RootKey:= HKEY_LOCAL_MACHINE;

if openkey('&#+,) 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(' Data Sources',True) then

begin

if not ValueExists(sDsnName) then

WriteString(sDsnName,sDriName);

end

else

begin

result:= false;

exit;

end;

CloseKey;

if openkey('&#+,) 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

;

end;

end;

如果觉得《动态连接数据库及动态建立ODBC DSN(ZT)》对你有帮助，请点赞、收藏，并留下你的观点哦！