全面征集Anywhere数据库备份方案~！

[tainy]

全面征集Anywhere数据库备份方案~！

[banalman]

数据库备份　dbbackup.exe
　os 备份　　　api

[oftenfail]

你看看这样行不行
//函数名：of_backupsqlserver(string arg_path ,string arg_dbname)


string ls_exec,ls_device


ls_exec = "EXECUTE ('USE master')"
EXECUTE IMMEDIATE :ls_exec;

SQLCA.AutoCommit = TRUE


if right(arg_path,1) = "\" then arg_path = left(arg_path,len(arg_path) - 1)
ls_device = arg_path + "\" + arg_dbname + ".dat"

if SQLCA.SQLCode >= 0 then
messagebox("提示信息","开始备份数据库！")
else
messagebox("提示信息","数据库联接错误！")
end if

ls_exec = "EXECUTE sp_addumpdevice 'disk','" + arg_dbname + "','" + ls_device + "'"
EXECUTE IMMEDIATE :ls_exec;


ls_exec = "BACKUP DATABASE " + arg_dbname + " TO " + arg_dbname +" with init"
EXECUTE IMMEDIATE :ls_exec;

ls_exec = "EXECUTE sp_dropdevice '" + arg_dbname + "'"
EXECUTE IMMEDIATE :ls_exec;

SQLCA.AutoCommit = FALSE

if SQLCA.SQLCode >= 0 then
messagebox("提示信息","执行完全备份数据库成功！~r~n备份文件保存在" + arg_path + "\")
end if

[oftenfail]

1、另外觉得直接copy .db and .log 比较方便。pb8以前要用api函数CopyFileA(ref string cfrom,ref string cto,boolean flag) LIBRARY "DERNEL32.DLL" PB8提供了FileCopy(sourcefile,targetfile{,replace})//sourcefile 源文件名称；targetfile 目标文件名称；replace当目标文件存在时，设置是否覆盖目标文件。
2、c:\sqlany50\win32\dbbackup.exe -c uid=xx;pwd=xx -t -y > \\servername\sharename\directory
对于路径pb8以前用GetCurrentDirectoryA()这个API，PB8可以用GetCurrentDirectory()

[xiaobzg]

1、拷贝；2、dbbackup.exe

[tainy]

up

[kfh666]

up

[qwen]

copy,恢复时同样采用拷贝，这样代码可重复，简单。哈哈

[wg2000happy]

用winapi函数，来实现copy

[圣殿骑士18]

dbbackup.exe很好用

[xiaoxianhe]

1、copy (使用API，拷贝时Disconnect)
2、dbbackup