动态连接数据库.急~~~~~~~~~~~~~~~~~~~~

Question

用多层开发,如何动态连接数据库呀.也就是说注册过的应用程序服务器可以通过其它程序的DCOMCONNECTION组件动态连接SQL数据库.而别的程序可以直接调用了.

Answer 1

procedure Tform1.button1click(sender:Tobject);
begin
if key=#13 then
  begin
 ADoconn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;Password='+password+';Persist Security Info=True;User ID='+userid+';Data Source='+edit_servername.text+';Initial Catalog='+edit_dataname;
  end;
end;其它程序USE FORM1中的ADOCONN就行了