自动创建ODBC数据源(Access,Sql Server,DB2

现在的位置: 首页 > 综合 > 正文

自动创建ODBC数据源(Access,Sql Server,DB2

2013年10月09日 ⁄ 综合 ⁄ 共 8827字 ⁄ 字号小中大 ⁄ 评论关闭

{--------------------------------------------------------------------}
{                                                                    }
{   单元名：    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[i])<>0 then
          begin
            OraDriverName:=ODBCDriverNameList.Strings[i];
            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.

【上篇】PHP中header()立即重定向的不友好性
【下篇】使用J2ME搜索蓝牙设备，并与搜到的设备通信

作者: airstrike

该日志由 airstrike 于11年前发表在综合分类下，最后更新于 2013年10月09日.
转载请注明: 自动创建ODBC数据源(Access,Sql Server,DB2 | 学步园 +复制链接

抱歉!评论已关闭.

学步园

自动创建ODBC数据源(Access,Sql Server,DB2

作者: airstrike

书签

最新文章New

本站推荐

返回首页