如何动态创建ODBC驱动？

在ADO连接中，使用ODBC连接，如何动态创建？各位大虾，请帮忙，我先谢了！ 问题点数：20、回复次数：8Top

1 楼leo555（狮子555）回复于 2001-11-06 13:42:12 得分 0

没有人知道吗？只要有人能回答，我给100分啦！Top

2 楼ocean617（海洋）回复于 2001-11-06 13:46:52 得分 5

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

3 楼leo555（狮子555）回复于 2001-11-06 13:51:36 得分 0

谢谢！能详细一点吗？Top

4 楼hamerlove（小丸子）回复于 2001-11-06 13:52:40 得分 15

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又不同了！Top

5 楼leo555（狮子555）回复于 2001-11-06 13:58:42 得分 0

有什么不同？Top

6 楼leo555（狮子555）回复于 2001-11-06 14:22:45 得分 0

小丸子，access怎么用？Top

7 楼hlilna（Bulls）回复于 2001-11-06 14:45:46 得分 0

收藏Top

8 楼leo555（狮子555）回复于 2001-11-06 15:34:10 得分 0

原来如此好解决！Top

相关问题

• 数据
• software
• server
• odbc
• yourdatasourcename
• registertemp
• writestring
• openkey
• ini
• 数据源

• 帖主：leo555
• ocean617
• hamerlove

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载