那位有自动创建Orancle ODBC数据源的代码！

Question

希望对你有所帮助:
http://www.csdn.net/expert/topic/605/605112.xml?temp=.5527155
http://www.csdn.net/expert/topic/642/642426.xml?temp=.1544001

Answer 1

那是sql的设置方法，有orancle的吗？

Answer 2

您可以直接去修改注册表步骤：
1、通过“控制面板”中的“数据源（ODBC）”建立与ORACLE连接的ODBC源2、打开注册表（REGEDIT）查找您将要建立的ODBC源名称（注：您所建立的ODBC源名称在注册表是树节点）2、请将树节点中的内容记下来（可以相应的修改）3、用编程工具开发自动注册ODBC源，以下以DELPHI为例：
Function OpRegister(Path: String; ValuesName: String; OpearteStyle: Integer = 0; Values: String = ''): String;
Var
  Reg: TRegistry;  //声明
Begin
  OpRegister := '';
  Try
    Reg := TRegistry.Create;  //建立
    Reg.RootKey := HKEY_LOCAL_MACHINE;  //定义根
    Reg.OpenKey(Trim(Path), True);  //打开主节点，如果节点不存在，则建立
    If OpearteStyle = 0 Then
      OpRegister := Reg.ReadString(Trim(ValuesName))   //读取节点内指定的名称值
    Else
      Reg.WriteString(Trim(ValuesName), Trim(Values)); //将变量值写及节点内
  Finally
    Reg.CloseKey;
    Reg.Free;
  End;
End;
您可以相应修改。

Answer 3

如果还需要更加的关于DELPHI技术问题，请至www.cty99.com网站去逛一逛，可能对您有很大的帮助。注：要好好利用www.cty99.com网站技术资料的高级查询。

Answer 4

1.delphi6+oracle7x测试通过,如还存在问题2天内可通知我:[email protected]
  记住:uses Registry
  在HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI下添加odbc信息就是system  dsn,在HKEY_CURRENT_USER\Software\ODBC\ODBC.INI下添加就是user dsn!
2.说明:
在这两行中
  if OpenKey('Software\ODBC\ODBC.INI\MyOracleConn',True) then
     begin
       WriteString( 'Driver', 'sqo32_73.dll' );
       WriteString( 'Server','jf');
     end
'sqo32_73.dll'值取决于你的oracle版本,不要照抄我的,如果你不知道可以到注册表HKEY_LOCAL_MACHINE->Software->odbc->ODBCINST.INI->oracle***下找driver的键值，我的是:C:\ORAWIN95\ODBC250\sqo32_73.dll,你只需要把最后这个dll文件名称添入WriteString( 'Driver', 'sqo32_73.dll' )中即可!
第二句WriteString( 'Server','jf')中jf是我在sql net easy config中配置的别名，你把它改成你的就可以了,OK!3.代码:
procedure TForm1.Button1Click(Sender: TObject);
var
   MyRegister:TRegistry;
 begin
   try
     MyRegister := TRegistry.Create;
     with MyRegister do
        begin
          RootKey:=HKEY_LOCAL_MACHINE;                     try
            if OpenKey('Software\ODBC\ODBC.INI\MyOracleConn',True) then
               begin
                 WriteString( 'Driver', 'sqo32_73.dll' );
                 WriteString( 'Server','jf');
               end
          except
            Raise Exception.Create('向注册表写入自定义dsn失败!');
            exit;
          end;
          CloseKey;
          try
            if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',false) then
               begin
                 WriteString('MyOracleConn','Oracle73 Ver 2.5');
               end
          except
            Raise Exception.Create('向注册表ODBC Data Sources写入键值失败!');
            exit;
          end;
          CloseKey;
          Application.MessageBox('成功添加Oracle数据源!','正常',MB_OK);
        end;
   finally
     MyRegister.Free;
   end;
 end;