Sorry
Die Fehlermeldung lautet:
" Ein Parameterobjekt ist nicht ordnungsgemäß definiert.
Inkonsistente oder unvollständige Informationen wurden eingegeben"
Eine Fehlerbehandlung habe ich auch.
Hatte sie nur nicht mit im Code kopiert.
Code:
// Funktionierende Version
try
with ADOQ1 do
begin
ProgressBar2.Position := 50;
SQL.clear;
SQL.Text := 'restore database :DBName from '
+'Disk = :BakPfadName ';
Parameters.ParamByName('BakPfadName').Value := sTemp;
Parameters.ParamByName('DBName').Value := sDBName;
ExecSQL();
end; (*with*)
except
on E:
Exception do
messagedlg(E.Message, mtError, [mbok], 0);