动态连接数据库及动态建立ODBC,DSN(ZT)
来源:互联网 发布:淘宝客鹊桥安全不 编辑:程序博客网 时间:2024/06/06 19:44
在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;
- 动态连接数据库及动态建立ODBC,DSN(ZT)
- 动态连接数据库及动态建立ODBC,DSN(ZT) 选择自 SafeF8 的 Blog
- 动态连接数据库及动态建立odbc’dsn的delphi实现
- MFC odbc 连接MySQL 的 (SQLConfigDataSource动态DSN)
- ODBC连接数据库使用动态密码
- VB6.0动态添加、修改、删除ODBC的DSN
- VB6.0动态添加、修改、删除ODBC的DSN
- VC动态建立ODBC数据源
- PDO连接数据库及DSN详解
- 几种ADO连接方式:ODBC DSN,ODBC DSN-Less
- ODBC动态创建access数据库
- 动态配置数据源(DSN)
- 关于动态注册ASA数据库ODBC数据源
- 动态建立Ado连接串
- 动态连接数据库
- 动态连接数据库
- mybatis动态连接数据库
- mysql动态连接数据库
- 一个站长对黑客的血泪控诉
- 国际上负责音视频编码标准化的组织有哪些?
- 视频编码新标准H.264中抗误码技术的研究
- 视频编码标准的发展:从H.261到H.264
- 如何用java语言控制短信设备实现短信收发?
- 动态连接数据库及动态建立ODBC,DSN(ZT)
- 下一代压缩视频标准性能及其技术特征
- VC++编程实现网络嗅探器
- RAR 命令行语法
- 调用Winrar.exe压缩和解压缩
- 视频发展小知识!
- 转:java的IO系统
- iFilter
- java中的分页处理