第一:怎么备份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;
第二:我在自己的机子上做好了程序,拿到别的机子上,服务应该怎么设置啊,难道还要修改源程序啊
解决方案 »
- 弹出IE窗口,如何禁用最小化
- 求delphi6开发的小商品管理软件源码和数据库
- 问题:为什么这条sql语句不行,应该很简单的
- 請問 published 定義的范圍?
- 请教delphi连接数据库时生成的临时文件相关问题
- 如何让form中 edit的大小随着form的变化也变化
- treeview的各节点是用adoquery查询数据库得到的,但数据库数据改变后如何刷新treeview?
- 偶用的table连接的access数据库,想请问用什么方法才能实现多字段查询
- 我的WD-20G硬盘坏了, 大家看看还有救么?
- websnap高手请进。。。。。。
- 最初级的问题??????有知者速解。
- 有关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文件里。这样比较好,如不会设置。给我发消息,给你源码