在delphi中使用ADOConnection动态连接oracle数据库

Question

我使用的是delphi 7和oracle。我想用TADOConnection通过delphi动态连接oracle。我已经创建了一个表单，其中包含3个编辑框的服务器名称，用户名，密码和一个按钮‘连接’。我试图通过构建ConnectionString来静态连接。现在，我正在尝试根据用户在服务器、用户名和密码中输入的值，点击“连接”按钮进行连接。我该怎么做呢。有什么建议吗。谢谢你的帮助。

Answer 1

您必须更改TAdoConnection组件的ConnectionString属性，您可以从ConnectionStrings网站获得正确的属性

下面是ADO与Microsoft provider的连接：

Provider =msdaora; Data Source =MyOracleDB; User Id =myUsername; Password =myPassword;

对于UserID和Password，您必须将它们替换为您的编辑框。

更新：

对于代码，你可以这样写：

AdoConnection.Close;
AdoConnection.ConnectionString := format('Provider=msdaora; Data Source =MyOracleDB; User Id = %s; Password = %s',edtUserName.Text,edtPassword.Text]);
';
AdoConnection.Open;

Answer 2

假设您已经安装了oracle客户端(Oracle为OLEDB提供)，有一个可用的tnsname等。因此，例如，要连接到实例"ORCL“，以用户"HR”的身份登录，密码为" password "，连接字符串应如下所示：

Provider=OraOLEDB.Oracle.1;Data Source=ORCL;User ID=HR;Password=password

从组件中提取字符串，如下所示：

Procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString:= 'Provider=OraOLEDB.Oracle.1;' +
    'Data Source=' + Edit1.Text + ';' + 
    'Data Source=' + Edit2.Text + ';' + 
    'Password=' + Edit3.Text;
  ADOConnection1.LoginPrompt:= False;
  ADOConnection1.Connected:= True;
end;