*******请问如何用ADO动态连接SQLServer,请给出一个用ConnectionString连接远程SQLServer的例子?************

Question

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String Pass,User,Source,Initial,Provider,Persist;
    AnsiString Conn_String ;
    try
    {
        TIniFile *ini;
        ini = new TIniFile(
        ChangeFileExt( Application->ExeName, ".INI" ) );
        Pass    =  ini->ReadString( "Connection", "Password","");
        User    =  ini->ReadString( "Connection", "User ID", "sa");
        Source  =  ini->ReadString( "Connection", "Data Source",
                               "soft-server" );
        Initial =  ini->ReadString( "Connection", "Initial Catalog",
                               "Database_1");
        Provider=  ini->ReadString( "Connection", "Provider",
                               "SQLOLEDB.1");
        Persist =  ini->ReadString( "Connection","Persist Security Info",
                               "True");
        delete ini;
        Conn_String = "Provider="+Provider+";Password="+'"'+Pass+'"'+";Persist Security Info="+Persist+";User ID="
                    +User+";Initial Catalog="+Initial+";Data Source="+Source;
        ADOConnection1->ConnectionString = Conn_String;
        ADOConnection1->LoginPrompt = false ;
        ADOConnection1->Open();
        ShowMessage("成功。");
    }
    catch(...)
    {
        ShowMessage("");
    }
}
答案满意吗？如果满意请给我加分！

Answer 1

你先在设计时填好，然后将connectionstring复制下来
在程序里给它赋值

Answer 2

在软件启动时设置AdoConnection控件的connectionstring ：procedure TMainForm.FormCreate(Sender: TObject);
var
S:String;
begin
with ADOConnection do
Begin
Connected:=false;
S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+ExtractFilePath(Application.ExeName);//这是路径
S:=S+'Student.mdb";Mode=Share Deny None;Extended Properties="";';
S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;';
S:=S+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
S:=S+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
ConnectionString:=S;Connected:=true;
End;
ADODataSet.Active:=true;
end;