请问怎么根据输入的用户名密码，实时动态的改变ADO连接字符串？谢谢

Question

请问怎么根据输入的用户名密码，实时动态的改变ADO连接字符串？谢谢

Answer 1

根据用户名和密码改变 数据库连接字符串？你说的是连数据库如sql的用户名和密码么？若是，每次更改可以写入到ini文件中再读取..

Answer 2

这个很简单呀当你改变了用户名和密码后,就把adoconnection1.Connected:=False;
adoconnection1.ConnectionString:=你新的串;
adoconnection1.Connected:=true;这样就可以了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Password=admin;Persist Security Info=True;User ID=admin;Data Source=ora10g';
  ADOConnection1.LoginPrompt := False;
  ADOConnection1.Open;
  //知道怎么改了吧
end;

Answer 4

谢谢楼上两位
还想再问一下，怎么来测试这个连接是可以连接成功的
如果能连接成功，然后返回一个值给form上的文本输入框，比如'Y'表示连接成功，'N'表示连接失败

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Password=admin;Persist Security Info=True;User ID=admin;Data Source=ora10g';
  ADOConnection1.LoginPrompt := False;
  try
    ADOConnection1.Open;
  except
     报告异常不能打开
  //知道怎么改了吧
end;

Answer 6

谢谢 dunzimu 
我很菜的，才学delphi
我怎么得到异常信息呢？然后把异常信息传给窗体的TEXT里
我不希望程序自动弹出异常信息，而希望自己把异常信息打印在窗体上

Answer 7

except  on e: Exception do ShowMessage(e.ErrorMessage)如此~
具体自己看书~别什么都问人嘛