关于ADO连结Oracle

Question

谁能给我发一个ADO连结Oracle的代码，注意：不用控件。谢谢。

Answer 1

ConnectString:='Provider=' +cINIFile.sReadINI('DATABASE','Provider','') + ';' +'User ID='+ cINIFile.sReadINI('DATABASE','User ID','') + ';' + 'Password='+cINIFile.sReadINI('DATABASE','Password','') + ';' +'Data Source'+cINIFile.sReadINI('DATABASE','Data Source','');
      if systemDM.dbMain.connected=false then         //如果数据库没有打开
        begin
          systemDM.dbMain.ConnectionString:=ConnectString;
          systemDM.dbMain.LoginPrompt:=false;
          systemDM.dbMain.open;
        end;