var hfsjk: TADOQuery;
bfmc:string;
begin
if self.OpenDialog1.Execute then
begin
mydata.ADOConnection1.Close; //ADOConnection1,连在 dslfwxt 这个上的
mydata.ADOConnection1.Connected:=false;
bfmc:=self.OpenDialog1.FileName;
hfsjk:= TADOQuery.Create(self);
hfsjk.Connection:=mydata.ADOConnection2;
mydata.ADOConnection1.Connected:=false;
hfsjk.SQL.Clear;
hfsjk.SQL.Add('restore database dslfwxt from disk='+#39+bfmc+#39);
if hfsjk.ExecSQL<>0 then
begin
mydata.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;User ID=sa;Initial Catalog=dslfwxt;Data Source=TYP';
mydata.ADOConnection1.Connected:=true;
end;
end;
我把 dslfwxt 删掉就可以,现在我要在上面覆盖,就不不可以阿,提示,正在访问,不能获得排他访问权
bfmc:string;
begin
if self.OpenDialog1.Execute then
begin
mydata.ADOConnection1.Close; //ADOConnection1,连在 dslfwxt 这个上的
mydata.ADOConnection1.Connected:=false;
bfmc:=self.OpenDialog1.FileName;
hfsjk:= TADOQuery.Create(self);
hfsjk.Connection:=mydata.ADOConnection2;
mydata.ADOConnection1.Connected:=false;
hfsjk.SQL.Clear;
hfsjk.SQL.Add('restore database dslfwxt from disk='+#39+bfmc+#39);
if hfsjk.ExecSQL<>0 then
begin
mydata.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;User ID=sa;Initial Catalog=dslfwxt;Data Source=TYP';
mydata.ADOConnection1.Connected:=true;
end;
end;
我把 dslfwxt 删掉就可以,现在我要在上面覆盖,就不不可以阿,提示,正在访问,不能获得排他访问权
解决方案 »
- 菜鸟初级问题(求救)
- 改行卖玉器了!大家多多捧场!水翠阁开业酬宾!!!
- 请问各位大虾,偶用的是D版的Dephi7,以前编译都没问题,刚刚编译说 lince is invalid or has expired,请问除了重装外,有什么简单的办
- 菜鸟问题---如何将字符串的最后一个字符去掉?
- 多线程发文件问题?
- 页面刷新指教
- 关于F1book6打印预览的问题的讨论,MAIL和网速快的同志为大家出一次手吧!up有分
- delphi5调试问题
- 如何让鼠标带有动画效果!!
- DCOM问题?
- 各位,帮我解决一个问题,进度条的问题
- 把报表导成EXCEL、WORD、HTM的这个功能是自己做的,还是报表本身提供的??谁有这个的源码?谢谢了
adoconnection2 连 master