Readygo技术搜索引擎 网络搜索 efish 2008-1-17 9:39:51

高手请进！请问用oracle数据库的连接问题，在线等待，立即送分

楼主east_asp（强兵）2004-02-17 09:38:32 在 Oracle / 基础和管理 提问

我没有用过oracle的数据库，我用delphi中ado写的程序，数据库为sqlserver，请问怎样能够让他们通用，客户要求用配置文件  
  客户要求为： 系统设置：数据库服务器的IP地址，数据库名，数据库用户名，数据库用户密码，端口等连接信息的配置，建议编写注册表文件导入注册表，使以上配置修改时容易操作，不至于需要修改程序代码。也可以采用其他的方式，但是要在不修改源代码的情况下使系统配置可以并且容易修改。  
  我得程序为  
    vConnectStr   :   WideString;  
              vIniFile   :   TIniFile;  
              vServer,   vDatabaseName,   vUser,   vPassWord   :   String;  
  begin  
            IsContinue   :=   True;  
              vIniFile   :=   TIniFile.Create(ExtractFilePath(Application.ExeName)   +   "database.ini");  
              vServer   :=   vIniFile.ReadString("database",   "server","");  
              vDatabaseName   :=   vIniFile.ReadString("database",   "databasename",   "");  
              pDateBase   :=   vDatabaseName;  
              vUser   :=   vIniFile.ReadString("database",   "user",   "");  
              vPassWord   :=   vIniFile.ReadString("database",   "password",   "");  
              vIniFile.Free;  
              if   vServer   =   ""   then  
              begin  
                          Application.MessageBox("     没有设定数据库服务器!请运行数据库设置程序!","提示",MB_OK+MB_ICONINFORMATION);  
                          Application.Terminate;  
                          IsContinue   :=   False;  
              end;  
              vConnectStr   :=   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID="   +   vUser   +   ";PassWord="   +   vPassWord;  
              vConnectStr   :=   vConnectStr   +   ";Initial   Catalog="   +   vDatabaseName   +   ";Data   Source="   +   vServer;  
              if   kelong.Connected   then   kelong.Connected   :=   false;  
              kelong.ConnectionString   :=   vConnectStr;  
              Try  
                          kelong.Connected   :=   True;  
              except  
                          Application.MessageBox("   数据库连接失败!请检查数据库的设置!","提示",MB_OK+MB_ICONINFORMATION)     ;  
                          IsContinue   :=   False;  
                          Application.Terminate;  
              end;  
  我用的ini配置文件，  
  server=.  
  databasename=  
  password=  
  1请问在oracle   下面能否通用，2是否还有别的好的方式     注名：本人没有用oracle 问题点数：100、回复次数：6Top

1 楼eastasp（东东）回复于 2004-04-18 21:13:19 得分 90

1、如果没有安装ODAC的话，需要安装Oracle客户端  
  2、我用的是以下连接字符串，测试过正常！Provider=OraOLEDB.Oracle.1;plsqlrset=1;Password=bbb;Persist   Security   Info=True;User   ID=aaa;Data   Source=dbsvr  
  Top

2 楼beckhambobo（beckham）回复于 2004-04-18 23:19:45 得分 10

Provider=MSDAORA.1;Password=pass;User   ID=user;Data   Source=afis;Persist   Security   Info=TrueTop