第一:怎么备份SQL数据库,如果是ACCESS数据库可以用下面的代码实现拷贝备份,但SQL怎么实现啊procedure Tfrm_main.Button1Click(Sender: TObject);
var filename,backupname:string;
begin
filename:=ExpandFileName('db.mdb');
BackupName :=ChangeFileExt('备份/','db.mdb');
copyfile(pchar(filename),pchar(BackupName),false);
end;
第二:我在自己的机子上做好了程序,拿到别的机子上,服务应该怎么设置啊,难道还要修改源程序啊
解决方案 »
- █ █ 新手求教DELPHI问题:关于DBGRID的查询统计(对列求和)█ █
- 棘手的问题!!!
- 极有难度问题,这种功能怎么实践?
- 局域网内2台计算机或同台计算机不同进程间用什么方法传输数据最快,请高手指教!!
- 如何实现DBGrid的单元格可以下拉选择?并且dbgrid的数据修改之后如何保存到数据库中?
- 做了几个系统,突然有想开放源代码的想法,请大家给点意见好吗?
- ADO+ACCESS
- 如何在线程内动态创建并显示窗口?
- delphi制作的active form发布到网页后,客户端无法注册使用
- 各路大虾侠留步
- 最初级的问题??????有知者速解。
- 有关ClientDataSet和XML的一个小问题?
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;第二个问题你应该这样:
1如果不想再改程序,你应该把服务器与你的电脑设置成一样(不建议采用此方法)
2,把连接设置存在ini文件里。这样比较好,如不会设置。给我发消息,给你源码