用ODAC控件怎样连接数据库?小弟菜鸟一个,希望各位大虾帮忙.在线等.....

Question

最好是能写一下详细说明或是有实例,可以发到我的信箱里: [email protected]    谢谢各位大虾了。

Answer 1

是连接Oracle数据库的说明或者实例

Answer 2

function TdmMain.ConnectDataBase(var ErrorMsg: String): Boolean;
Var
   sOrgPass: String;
begin
   ErrorMsg:='';
   Result:=False;
      gsSERVER_NAME := GetIniParam('Config.ini', 'DataBase', 'SERVER_NAME', '', TRUE);
      gsSERVER_PORT := GetIniParam('Config.ini', 'DataBase', 'SERVER_PORT', '', TRUE);
      gsSERVICE_NAME := GetIniParam('Config.ini', 'DataBase', 'SERVICE_NAME', '', TRUE);
      gsUSER_NAME := GetIniParam('Config.ini', 'DataBase', 'USER_NAME', '', TRUE);
      gsPASS_WORD := GetIniParam('Config.ini', 'DataBase', 'PASS_WORD', '', TRUE);
      gsSEC_LOGIN := GetIniParam('Config.ini', 'DataBase', 'SEC_LOGIN', '1', TRUE) = '1';      With OraSession1 do
      begin
         Connected := False;
         ConnectPrompt := False;
         Options.Net := True;
         Server := gsSERVER_NAME + ':' + gsSERVER_PORT + ':' + gsSERVICE_NAME;
         USERNAME := gsUSER_NAME;
         PASSWORD := gsPASS_WORD;
         Try
            Connected := True;
         Except
            On E:Exception do
            begin
               ErrorMsg := '在连接数据库时发生错误，错误消息；' + E.Message;
               Exit;
            end;
         end;
      end;
   end;
   Result:=True;
end;