如何动态创建ODBC驱动？

Question

在注册表中加入几个表项就ok啦！！
他的位置是HKEY_LOCAL_MACHINE\Software\ODBC\odbc.ini
在此下建立几个子项，建哪几个??你试着加一个odbc数据源然后看看这个位置多了什么东东就Ok啦！！不要我多say了吧??

Answer 1

var
  registertemp:TRegistry;
....
begin
    registerTemp := TRegistry.Create;
    with registerTemp do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      if not openkey('software\odbc\odbc.ini\yourdatasourcename',false) then
      begin        if OpenKey('Software\ODBC\ODBC.INI',True) then
          WriteString( 'yourdatasourcename', 'SQL Server' )
        else
        begin
          MessageBox(Handle, '增加ODBC数据源失败!', '错误', 16);
          exit;
        end;
        CloseKey;        if OpenKey('Software\ODBC\ODBC.INI\yourdatasourcename',True) then
        begin
          WriteString( 'Database', 'yourdatasourcename' );
          WriteString( 'Driver', 'C:\WINNT\SYSTEM32\SQLSRV32.dll' );
          Writestring( 'LastUser', 'sa' );
          WriteString( 'Server', '(local)' );
        end
        else
        begin
          MessageBox(Handle, '增加ODBC数据源失败!', '错误', 16);
          exit;
        end;
        CloseKey;        if OpenKey('Software\ODBC\ODBC.INI\odbc data sources',True) then
          WriteString( 'yourdatasourcename', 'SQL Server' )
        else
        begin
          MessageBox(Handle, '增加ODBC数据源失败!', '错误', 16);
          exit;
        end;
        CloseKey;        Application.MessageBox('数据源添加成功','正常',MB_OK);
      end;
      Free;
    end;
这只是建立sql数据库的，access又不同了！