关于设置ado

Question

用ado联接sqlserver的例子，读写INI文件
procedure Tmain_DM.DataModuleCreate(Sender: TObject);
const
    strDataSource = 'Provider=SQLOLEDB.1;' +
                    'Persist Security Info=False;' +
                    'User ID=%S;'+
                    'Initial Catalog=%S;' +
                    'Data Source=%S';
var
    iniDataSource :TIniFile;
    sUserID, sInitCata, sDataS :String;
begin
    iniDataSource := TIniFile.Create(ExtractFileDir(Application.ExeName) +'\lab.ini');
    try
        with iniDataSource do
        begin
            sUserID := iniDataSource.ReadString('DATASOURCE', 'User ID','');
            sInitCata := iniDataSource.ReadString('DATASOURCE', 'Initial Catalog','');
            sDataS := iniDataSource.ReadString('DATASOURCE', 'Data Source','');
        end;
        with dd_ADOCon do
        begin
            Connected := False;
            ConnectionString := Format(strDataSource, [sUserID, sInitCata, sDataS]);
            Connected := True;
        end;
    finally
        iniDataSource.Free;
        if not dd_ADOCon.Connected then
        begin
            Application.MessageBox('连接不到数据库！请检查网络', '警告', MB_OK+MB_ICONWARNING);
            Application.Terminate;
        end;
    end;
end;

Answer 1

还可以采用弹出连接对话窗的方式，可以在Demo/ADO中找到。

Answer 2

同意楼上的，
只要设置好ADOCONNECTION的CONNECTIONSTRING就可以了，试试就知道了。

Answer 3

ADO,无需通过ＢＤＥ和ＯＤＢＣ连接ＳＱＬ　Ｓｅｒｖｅｒ的，楼上不是提供方法给你了吗？

Answer 4

用ado连接数据库，比较方便，可以静态连接，在form中添加一个adoconnection控件，设置他的connectionstring，就可以了。
也可以动态连接，在程序中设置connectionstring的值。
如果需要程序可移植性强，可以采用设置注册表的一个键，用程序读注册表的键，得到连接字符串。

Answer 5

一个使用ado的类（TADOAcc）的初始化过程。 
function TADOAcc.InitADODataSet(var IADODataSet: TADODataSet;
          ICommandText: string): Boolean;
begin
  Result:=True;
  IADODataSet:=TADODataSet.Create(Owner);
  IADODataSet.ConnectionString:=
  'Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=tiger9;Initial Catalog=aio;Data Source=AIO';
  //连接数据库  IADODataSet.CommandText:=ICommandText;
  //设置命令
  try
    IADODataSet.locktype:=ltReadOnly;
    IADODataSet.Open;
  except
    Result:=False;
  end;
  //打开数据库
end;