ADO Error Handling

[lszb75]

How can I handle the different ado error messages?
e.g. With the EDataBaseError I can't seperate the errors caused by postings. Can anyone help me?

 

[Zathras]

You should be able to use the Errors collection property of the TADOConnection component.

What DBMS are you using?

For example, with Gupta SQL Base, something like the following can be used (HMAIN is a TADOConnection):

   except
       on E:Exception do
       begin
         case HMAIN.Errors.Item[0].NativeError of
           404: sLastError := 'Invalid Password.';
           405: sLastError := 'Invalid User Name.'
         else
           sLastError := 'Login Failed.  Error number: '
                      + IntToStr(HMAIN.Errors.Item[0].NativeError)
                      +#13#10+e.message;
         end; {case}

 

[michaenh]

hi. connect to MS SQL

procedure TDataModul.ConnectMSSQL;
var
UserID: string;
Source: string;
begin
UserID := 'blabla';
Source := 'blaSOurce';

dbConnect := 'Provider=Sqloledb.1;Persist Security Info=False;' +
'User ID=' + UserID + ';Initial Catalog=InfoForm;Data Source=' + Source;

try
ConnectTables; //Call proc to connect wanted tables..
except
begin
//error connection..
MessageDlg('Can not connect to SQL base!' + #13#10 +
'Application close!', mtError, [mbOK], 0);
MainForm.Close;
end;
end;

end;