大急问题，马上结帐!

Question

用ADO连接出现错误要抛出异常,代码怎么写?

Answer 1

 str:= ExtractFileDir(Application.ExeName) + '\Table\GD_BJKZ.mdb';
 Pwd := ';Jet OLEDB:Database Password = GD_BJKZ';
 path := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + str + Pwd + ';Mode=ReadWrite|Share Deny None';
try   ADOConnection1.Connected := false;
   ADOConnection1.ConnectionString := path;
   ADOConnection1.Connected := true;except on E:Exception do
begin
    e := E.ClassName();
   Application.MessageBoxA(e.c_str(),"连接指定数据库失败！",MB_OK);
   Application.Terminate();
end

Answer 2

procedure TFormmain.ClientDataSetMgDataReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError;
  UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  HandleReconcileError(Dataset,UpdateKind,E);
end;

Answer 3

string stry
  adoconnect1.connectstring='连接串';
  adoconnect1.open;
except
  s := adoconnect1.Errors[0].Description
  application.messagebox(pchar(s),'连接错误')
end