一个菜问题：怎样在ini文件中设置ADO的Connectstring最合适，在delphi中连接所得的connectstring太多了，可能有些没用吧，我不知道，想问问大家你们平时只设置那些参数的

Question

老兄哪用ini设置它，写一个函数不OK？
//这是用ODBC连的ACCESS
                          //文件     密码，Access 的dsn文件在哪.
function InitADOAccessString(FilePath,Pass,AppPath:string):string;
var str:string;
begin
    str:='';
    str:=str+'Provider=MSDASQL.1;';
    if pass<>'' then
       str:=str+'Password='+Pass+';Persist Security Info=True;'
    else
       Str:=Str+'Persist Security Info=False;';
    str:=str+'Mode=Read|Write;';
    str:=str+'Extended Properties="DSN=MS Access 97 Database;DBQ='+FilePath;
    str:=str+';'+'DefaultDir='+ExtractFileDir(FilePath)+';';
    str:=str+'DriverId=281;';
    str:=str+'FIL=MS Access;FILEDSN='+AppPath+'\Sources\MS Access 97 Database (not sharable).dsn;';
    str:=str+'MaxBufferSize=2048;PageTimeout=5;';
    str:=str+'UID=admin;"';
    result:=str;
end;
//这是连SQL的SQL数据库
                     //服务器名，SQL数据库名，用户，密码.
function InitADOSQLString(SName,AccName,User,Password:string):string;
var str:string;
begin
   str:='';
   str:=str+'Provider=SQLOLEDB.1;';
   if password<>'' then
   begin
     str:=str+'PassWord='+Password+';';
     str:=str+'Persist Security Info=True;';
   end
   else
     str:=str+'Persist Security Info=False;';
   str:=str+'User ID='+User+';';
   str:=str+'Initial Catalog='+AccName+';';
   str:=str+'Data Source='+SName;
   result:=str;
end;还有其它的你就先连好，再copy下来慢慢“烟酒烟酒”。