各位前辈，我的问题是，delphi 用‘restore database..’ 后，我的program不可以直接access 任何table, 报告 ‘invalid object name’,但exit 我的program,重新run
后，就可以直接access 任何table，不知我的错误在那里。下边是malanlk的restoreDB,及我的部分program
Reference: http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=77945
From malanlk
function TFrmBackup.RestoreDB(strDBName,strFileName: string): boolean;
var
strSQL: string;
begin
Result := false;
strSQL := 'RESTORE DATABASE [' strDBName '] FROM DISK = N''' strFileName ''' WITH FILE = 1, NOUNLOAD , STATS = 10, RECOVERY, REPLACE';
try
ADODataSetWho.Recordset := connAdo_res.Execute('sp_who');
ADODataSetWho.First;
while not ADODataSetWho.Eof do
begin
if ADODataSetWho.FieldByName('dbname').AsString = strDBName then
begin
MessageBox(Application.Handle,Pchar('Database ' strDBName 'is in use by ' ADODataSetWho.FieldByName('loginame').AsString '!'),'Restore Error',MB_OK MB_ICONERROR);
Exit;
end;
ADODataSetWho.Next;
end;
connAdo_res.Execute(strSQL);
except
MessageBox(Application.Handle,'Restore Database Error!','It Is Error',MB_OK MB_ICONERROR);
Exit;
end;
Result := true;
end;
----- following are parts of my program ------
....
RestoreDB('MyDBSQL', 'd:\Shared\EmptyDB.bak');
//Re-connect again after restore
ADOConnectionOne.Close;
try
ADOConnectionOne.Open;
except
on Exception do begin
...
end;
end;
//test
if ADOConnectionOne.Connected then begin
ADOQueryIt.Close;
ADOQueryIt.SQL.Clear;
ADOQueryIt.SQL.Add('SELECT * FROM Sales WHERE TotalAmt <> 0');
ADOQueryIt.Open;
end;

when stepping into ADOQueryIt.Open; 'Invalid object name' shows

谢谢

I detach the Backup/Restore from the program, to make it alone to avoid above problem.maybe that is a easier way to make the program work.