在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;
[SyBase]ODBC文件DSN的结构 [Access]Access无需DSN文件快速连接SQLServer的方法!
|