动态连接数据库及动态建立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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有