设为首页 收藏本站

运维网

 找回密码
 立即注册
查看: 586|回复: 0

[经验分享] 自动创建ODBC数据源(Access,Sql Server,DB2

[复制链接]
ispsh

尚未签到
发表于 2016-11-4 09:49:34 | 显示全部楼层 |阅读模式
　　{--------------------------------------------------------------------}
{ }
{ 单元名： CreateODBC }
{ }
{ 作者： 冀涛 }
{ }
{ 版本： V1.0 }
{ }
{ 日期： 2006-7-9 }
{ }
{ 用途与描述：自动创建Accsee、Sql Server、DB2、Oracle的数据源 }
{ }
{--------------------------------------------------------------------}
　　unit CreateODBC;
　　interface
uses
Windows,
SysUtils,
Registry,
Classes;
　　function CreateSQLServerDSN(const FDSN, FServer, FUser: string): boolean;
function CreateAccessDSN(const myDSN, strFileName: string): boolean;
function CreateDB2DSN(const FDSN: string): Boolean;
function CreateOracleDSN(const FDSN,FServer,Fuser:string):boolean;
　　imple****tion
　　function CreateSQLServerDSN(const FDSN, FServer, FUser: string): boolean;
var
RegisterTemp: TRegistry;
s: string;
begin
RegisterTemp := TRegistry.Create;
with RegisterTemp do
begin
RootKey := HKEY_LOCAL_MACHINE;
//首先判断此DSN是否已经存在，如在，则不用继续下去
if OpenKey('Software/ODBC/ODBC.INI/' + FDSN, False) then
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//判断SQL Server的驱动程序是否已经安装
if OpenKey('Software/ODBC/ODBCINST.INI/ODBC Drivers', False) then
begin
s := ReadString('SQL Server');
if UpperCase(S) <> 'INSTALLED' then
begin
CloseKey;
Result := False;
Free;
exit;
end;
end
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//寻找SQL Server的驱动程序路径
if OpenKey('Software/ODBC/ODBCINST.INI/SQL Server', False) then
begin
s := ReadString('Driver');
if S = '' then
begin
CloseKey;
Result := False;
Free;
exit;
end;
end
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//注册一个DSN名称
if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources', True) then
WriteString(FDSN, 'SQL Server')
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
if OpenKey('Software/ODBC/ODBC.INI/' + FDSN, True) then
begin
WriteString('Driver', S);
WriteString('LastUser', FUser);
WriteString('Server', FServer);
Result := True;
end
else
begin
CloseKey;
Result := False;
Free;
exit;
end;
CloseKey;
Free;
end;
end;
　　
function CreateAccessDSN(const myDSN, strFileName: string): boolean;
var
registerTemp: TRegistry;
bData: array[0..0] of byte;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey := HKEY_LOCAL_MACHINE; //设置根键值为HKEY_LOCAL_MACHINE
　　//找到Software/ODBC/ODBC.INI/ODBC Data Sources
if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources', True) then
begin //注册一个DSN名称
WriteString(myDSN, 'Microsoft Access Driver (*.mdb)');
end
else
begin //创建键值失败
Result := False;
exit;
end;
CloseKey;
　　//找到或创建Software/ODBC/ODBC.INI/MyAccess,写入DSN配置信息
if OpenKey('Software/ODBC/ODBC.INI/' + MyDSN, True) then
begin
WriteString('DBQ', strFileName); //数据库目录
WriteString('Description', '我的新数据源'); //数据源描述
WriteString('Driver', 'C:/WINNT/system32/odbcjt32.dll'); //驱动程序DLL文件
WriteInteger('DriverId', 25); //驱动程序标识
WriteString('FIL', 'Ms Access;'); //Filter依据
WriteInteger('SafeTransaction', 0); //支持的事务操作数目
WriteString('UID', ''); //用户名称
bData[0] := 0;
WriteBinaryData('Exclusive', bData, 1); //非独占方式
WriteBinaryData('ReadOnly', bData, 1); //非只读方式
end
else //创建键值失败
begin
Result := False;
exit;
end;
CloseKey;
//找到或创建Software/ODBC/ODBC.INI/MyAccess/Engines/Jet
//写入DSN数据库引擎配置信息
if OpenKey('Software/ODBC/ODBC.INI/' + MyDSN + '/Engines/Jet', True) then
begin
WriteString('ImplicitCommitSync', 'Yes');
WriteInteger('MaxBufferSize', 512); //缓冲区大小
WriteInteger('PageTimeout', 10); //页超时
WriteInteger('Threads', 8); //支持的线程数目
WriteString('UserCommitSync', 'Yes');
end
else //创建键值失败
begin
Result := False;
exit;
end;
CloseKey;
Result := True;
Free;
end;
end;
　　function CreateDB2DSN(const FDSN: string): Boolean;
var
RegisterTemp: TRegistry;
s: string;
begin
RegisterTemp := TRegistry.Create;
with RegisterTemp do
begin
RootKey := HKEY_LOCAL_MACHINE;
//首先判断此DSN是否已经存在，如在，则不用继续下去
if OpenKey('Software/ODBC/ODBC.INI/' + FDSN, False) then
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//判断DB2的驱动程序是否已经安装
if OpenKey('Software/ODBC/ODBCINST.INI/ODBC Drivers', False) then
begin
s := ReadString('IBM DB2 ODBC DRIVER');
if UpperCase(S) <> 'INSTALLED' then
begin
CloseKey;
Result := False;
Free;
exit;
end;
end
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//寻找DB2的驱动程序路径
if OpenKey('Software/ODBC/ODBCINST.INI/IBM DB2 ODBC DRIVER', False) then
begin
s := ReadString('Driver');
if S = '' then
begin
CloseKey;
Result := False;
Free;
exit;
end;
end
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
//注册一个DSN名称
if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources', True) then
WriteString(FDSN, 'IBM DB2 ODBC DRIVER')
else
begin
CloseKey;
Result := True;
Free;
exit;
end;
CloseKey;
if OpenKey('Software/ODBC/ODBC.INI/' + FDSN, True) then
begin
WriteString('Driver', S);
Result := True;
end
else
begin
CloseKey;
Result := False;
Free;
exit;
end;
CloseKey;
Free;
end;
end;
　　function createOracleDSN(const FDSN,FServer,Fuser:string):boolean;
var
RegisterTemp:TRegistry;
s:string;
ODBCDriverNameList:TStringList;
OraDriverName:string;
i:Integer;
begin
RegisterTemp:=Tregistry.Create;
　　RegisterTemp.RootKey:=HKEY_LOCAL_MACHINE;
　　//首先判断此DSN是否已经存在，如在，则不用继续下去
if registertemp.OpenKey('Software/ODBC/ODBC.INI/' + FDSN, False) then
begin
RegisterTemp.CloseKey;
Result := True;
RegisterTemp.Free;
exit;
end;
RegisterTemp.CloseKey;
//判断Oracle的驱动程序是否已经安装
if RegisterTemp.OpenKey('Software/ODBC/ODBCINST.INI/ODBC Drivers', False) then
begin
ODBCDriverNameList:=TStringList.Create;
RegisterTemp.GetValueNames(ODBCDriverNameList);
for i:=1 to ODBCDriverNameList.Count-1 do
begin
if AnsiPos('Oracle in OraHome',ODBCDriverNameList.Strings)<>0 then
begin
OraDriverName:=ODBCDriverNameList.Strings;
Break;
end;
end;
s := RegisterTemp.ReadString(OraDriverName);
if UpperCase(S) <> 'INSTALLED' then
begin
RegisterTemp.CloseKey;
Result := False;
RegisterTemp.Free;
exit;
end;
end
else
begin
RegisterTemp.CloseKey;
Result := True;
RegisterTemp.Free;
exit;
end;
RegisterTemp.CloseKey;
//寻找oracle的驱动程序路径
if RegisterTemp.OpenKey('Software/ODBC/ODBCINST.INI/'+OraDriverName, False) then
begin
s := RegisterTemp.ReadString('Driver');
if S = '' then
begin
RegisterTemp.CloseKey;
Result := False;
RegisterTemp.Free;
exit;
end;
end
else
begin
RegisterTemp.CloseKey;
Result := True;
RegisterTemp.Free;
exit;
end;
RegisterTemp.CloseKey;
//注册一个DSN名称
if RegisterTemp.OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources', True) then
RegisterTemp.WriteString(FDSN, OraDriverName)
else
begin
RegisterTemp.CloseKey;
Result := True;
RegisterTemp.Free;
exit;
end;
RegisterTemp.CloseKey;
if RegisterTemp.OpenKey('Software/ODBC/ODBC.INI/' + FDSN, True) then
begin
RegisterTemp.WriteString('Driver', S);
RegisterTemp.WriteString('UserID', FUser);
RegisterTemp.WriteString('ServerName', FServer);
RegisterTemp.WriteString('DNS', FDSN);
RegisterTemp.WriteString('Application Attributes','T');
RegisterTemp.WriteString('Attributes','W');
RegisterTemp.WriteString('BatchAutocommitMode','IfAllSuccessful');
RegisterTemp.WriteString('CloseCursor','F');
RegisterTemp.WriteString('Description','');
RegisterTemp.WriteString('DisableMTS','F');
RegisterTemp.WriteString('EXECSchemaOpt','');
RegisterTemp.WriteString('EXECSyntax','F');
RegisterTemp.WriteString('Failover','T');
RegisterTemp.WriteString('FailoverDelay','10');
RegisterTemp.WriteString('FailoverRetryCount','10');
RegisterTemp.WriteString('ForceWCHAR','F');
RegisterTemp.WriteString('Lobs','T');
RegisterTemp.WriteString('Longs','F');
RegisterTemp.WriteString('****dataIdDefault','T');
RegisterTemp.WriteString('Password','');
RegisterTemp.WriteString('PrefetchCount','10');
RegisterTemp.WriteString('QueryTimeout','T');
RegisterTemp.WriteString('ResultSets','T');
RegisterTemp.WriteString('Translation DLL','');
RegisterTemp.WriteString('Translation Option','0');
　　Result := True;
end
else
begin
RegisterTemp.CloseKey;
Result := False;
RegisterTemp.Free;
exit;
end;
RegisterTemp.CloseKey;
RegisterTemp.Free;
　　
end;
　　end.


运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表，该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有，请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意，请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息，一经发现立即删除。若您因此触犯法律，一切后果自负，我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集，我们仅提供一个展示、介绍、观摩学习的平台，我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责，亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏，不得用于商业或者其他用途，否则，一切后果均由您自己承担，我们对此不承担任何法律责任
7、如涉及侵犯版权等问题，请您及时通知我们，我们将立即采取措施予以解决
8、联系人Email：admin@iyunv.com 网址：www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址：https://www.yunweiku.com/thread-295633-1-1.html 上篇帖子： SQL Server数据库程序设计知识总结 下篇帖子： 在SQL Server中用索引视图查看性能状况
回复

使用道具 举报

返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群，最新一手资源尽在官方微信交流群！快快加入我们吧...

扫描微信二维码查看详情

客服 E-mail:iyunvcom@gmail.com

本站由青云提供云计算服务

运维网--中国最专业的运维工程师交流社区

豫ICP备20007574号-1 Copyright © 2012-2025

关于我们

发展历程

联系我们

关注我们

广告服务

广告案例

隐私条款

免责声明

用户登录

用户注册

版主守则

申请版主

手机版

金币获取

帮助中心

每日签到

Good Good

Study

Day Day

UP


客服E-mail:kefu@iyunv.com 客服QQ：1061981298


QQ群⑦：运维网交流群⑦ QQ群⑧：运维网交流群⑧ k8s群：运维网kubernetes交流群


提醒：禁止发布任何违反国家法律、法规的言论与图片等内容；本站内容均来自个人观点与网络等信息，非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来，其版权均归原作者及其网站所有，我们尊重他人的合法权益，如有内容侵犯您的合法权益，请及时与我们联系进行核实删除！



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表