请尽快解决回复,必有大分相送
解决方案 »
- 怎样使listview的item获得的焦点持久?
- 远程连接 本机用ADSL上网后获取的外网IP
- 奇怪,我写的SQL语句执行成功了,但是数据库中的记录并没有发生改变!
- 在DBGridEh控件中自定义一列,属性设置成checkboxes,但是运行的时候是灰色的不可选的,怎么回事啊!?
- 谁知道他最后说的那个技巧是什么吗
- 谁用过armadillo3.01?
- 广交天下朋友,来者有分,留下联系方式吧!!!我白天全在
- 请教delphi中字符中切割的解决办法(同vb中split函数的功能)
- 一个主从表输入的问题!!!(高分伺候!)
- ?????快帮帮忙吧,一个有关打印的问题!?????
- ado连接通过adsl上网的服务器的问题!
- 计时
TADOConnection连接到Master数据库上
1. ADOConnection1 连接你的业务数据库。
2. ADOConnection2 连接 MASTER 数据库。
3. ADOCommand1.Connection := ADOConnection2;
假设你的数据库名为: DataBaseName
Button.OnClick:
begin
ADOConnection1.Connected := False;
ADOCommand1.CommandText := 'BACKUP DATABASE DataBaseName TO DISK = ' + #39 + 'C:\KKK.BAK' + #39;
ADOCommand1.Execute;
ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET OFFLINE WITH ROLLBACK IMMEDIATE';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'RESTORE DATABASE DataBaseName FROM DISK = ' + #39 + 'C:\KKK.BAK' + #39;
ADOCommand1.Execute;
ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET ONLINE WITH ROLLBACK IMMEDIATE';
ADOCommand1.Execute;
ADOConnection1.Connected := True;
ADOTable1.Active := true;
end;
ADOCommand1用于执行SQL语句
备份恢复数据库的SQL语法可查看sqlserver 的帮助,都有详细说明