高手请进！帮我看看这段数据库备份的程序！！！

akai5831 2006-12-15 10:32:23
开发环境是PB8＋SQLServer2000，
string ls_dbms,ls_database,ls_server,ls_username,ls_passwd,ls_dbparm;
int ls_fileExist=0

string sql,ls_use;
string path,file,pathfile;
int flag=0

// is_date=string(today())
file=trim(sle_name.text)+'.sql'
path=trim(sle_path.text)
pathfile=path+file

IF Trim(sle_name.Text)='' THEN
MessageBox('提示','请输入正确的文件名称')
RETURN 0
END IF

IF trim(sle_path.text)='' THEN
MessageBox('提示','请输入正确的路径')
RETURN 0
END IF

//从database.ini里读出数据库连接参数
ls_dbms =profilestring("database.INI","DATABASE","DBMS","")
ls_database =profilestring("database.INI","DATABASE","DataBase","") //当前连接的数据库
ls_username =profilestring("database.INI","DATABASE","LogID","")
ls_passwd =profilestring("database.INI","DATABASE","LogPass","")
ls_server =profilestring("database.INI","DATABASE","ServerName","")
//SQLCA.dbparm=profilestring("database.INI","DATABASE","DBParm","")

disconnect using sqlca; //断开当前的数据库hq1

connect using sqlca_master; //连接master数据库
if sqlca_master.sqlcode <> 0 then
messagebox('提示信息!','请检查database.INI文件，参数有误，系统无法连接到master数据库!')
return -1
end if

IF FileExists(pathfile) THEN //检查指定的文件是否存在
ls_fileExist=Messagebox('系统提示','系统发现文件"'+pathfile+'"已经存在.~r~n~n要替换它吗?',Question!,YesNo!)
IF ls_fileExist= 1 THEN //press yes button
FileDelete(pathfile) //删除指定的文件
else //如果press no button，则需要返回备份界面重新输入路径或文件名
disconnect using sqlca_master; //断开master数据库

connect using sqlca; //连接用户数据库hq1
return
END IF
END IF

//设置鼠标指针
SetPointer(HourGlass!)//---开始备份---
st_note.text ='正在备份数据库，请稍等...'
st_note.visible=true
This.Enabled =FALSE //当前对话框变成不能编辑模式
ls_use = 'EXEC' + '(' + "'" + ls_database + SQLCA.Database + "'" + ')' //crm为数据库名
EXECUTE IMMEDIATE :ls_use ;

// ls_use = 'EXEC' + '(' + " ' " + ls_database + sqlca_master.Database + "'" + ')' //SQLCA.Database此时为master
// EXECUTE IMMEDIATE :ls_use ;
SQLCA.AutoCommit = True //??????????????????????

sql="EXEC sp_addumpdevice 'disk','mydisk',' "+ pathfile+ " ' " //数据库备份设备的创建
EXECUTE IMMEDIATE : sql ;

if sqlca_master.sqlcode <> 0 then
messagebox("sp_addumpdevice",sqlca.sqlerrtext);
end if
sql='BACKUP DATABASE ' + ls_database + ' TO mydisk ' //开始 备份
EXECUTE IMMEDIATE : sql ;

IF sqlca_master.SQLCODE = -1 THEN
Messagebox("系统信息!","数据库备份失败!~r~n~n请检查路径正确与否!",Stopsign!)
this.enabled = TRUE
st_note.visible=false
sqlca.sqlcode = 0
sqlca.sqldbcode = 0

ls_use="EXEC sp_dropdevice @logicalname='mydisk' @delfile ='delfile' " //除去数据库设备或备份设备，从 master.dbo.sysdevices 删除该项
EXECUTE IMMEDIATE : ls_use ;
disconnect using sqlca_master; //断开master数据库

connect using sqlca; //连接hq1数据库
RETURN
END IF

ls_use = "EXEC sp_dropdevice @logicalname='mydisk' " //除去数据库设备或备份设备，从 master.dbo.sysdevices 删除该项
EXECUTE IMMEDIATE : ls_use ;

运行都没有什么错误，就是没有生成备份的文件！！！麻烦高手赐教！！！谢谢！！！
...全文
428 26 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
26 条回复
切换为时间正序
请发表友善的回复…
发表回复
WOFEIYANG 2006-12-26
  • 打赏
  • 举报
 回复
ls_dbms =profilestring("database.INI","DATABASE","DBMS","")

因为你进行一次备份后，文件的路径已经变掉了．你再去读路径改变之后的database.INI文件就找不到了．备份完成之后，将当前路径重新设回去，就可以了．因为你在调试环境下你的当前路径使终在你应用程序路径下的，因此在那环境下是不会有问题的．
WOFEIYANG 2006-12-26
  • 打赏
  • 举报
 回复
ls_dbms =profilestring("database.INI","DATABASE","DBMS","")

因为你进行一次备份后，文件的路径已经变掉了．你再去改变之后的文件路径去读database.INI文件就找不到了．备份完成之后，将当前路径重新设回去．
akai5831 2006-12-22
  • 打赏
  • 举报
 回复
我试过了，系统没有问题，其它的数据库发布都没有问题，可能是我代码里面用了getfileopenname()的原因（谢谢sdhylj(青锋) 的提醒！！！），等查明真正的原因后就结帐！
谢谢各位！！！
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
请问安装PB8 的时候要求输入License seat 和License type的时候填什么啊！
默认License seat是1 License type有两个：concurrent seat model 和networked seat model
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
我现在把程序最开始的代码改成下面的了：
// Profile hq1
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "hq1"
SQLCA.ServerName = "(local)"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect using sqlca;

if sqlca.sqlcode<>0 then
messagebox("Database connect","数据库hq1连接出错!请检查hq1是否附加正确!",stopsign!)
halt close
end if

open(w_login)

怎么生产EXE文件后打开就连不上数据库，调试的时候还没有问题的
青锋-SS 2006-12-20
  • 打赏
  • 举报
 回复
没碰到过,应该是系统的问题吧,找另外的机子试试.
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
我用过GetFolder（）和GetFileOpenName（），但那是在界面里面啊，不打开那个界面就应该不会影响啊，现在连最开始的连接数据库都有问题
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
sql="backup database hq1 to disk='"+pathfile+"'"
execute immediate :sql using sqlca_master ;
青锋-SS 2006-12-20
  • 打赏
  • 举报
 回复
ls_dbms =profilestring("database.INI","DATABASE","DBMS","")
再请问高手,上面这句语句为何在生成EXE文件后读不出来信息,一直为NULL,但调试的时候却没有问题!
-------------
如果你程序中调用了getfileopenname()之类的函数的话就会更改默认的操作目录,也就是说当前路径不在是你exe程序所在的文件夹,往往是由此引起的,可以用changedirectory()更改到程序所在路径.
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
我已经改过了，我现在数据库备份和恢复的代码就是这么做的，没用前面的代码！
青锋-SS 2006-12-20
  • 打赏
  • 举报
 回复
告你个简单的(其实liubocy(天道酬勤)已经说了):

string ls_sql

sqlca.autocommit = true
ls_sql = "backup database kq to disk='c:\kq.bak'"
execute immediate :ls_sql;
-----------
注:kq是所备份的数据库名称,后面的文件路径及名称根据自己的要求更改就可以了.
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
调试的时候什么问题也没有，我只要一生成EXE文件就不行，连接不上数据库，都折腾了一个多星期了，PB8也装了两回了还是这样，真郁闷啊！
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
怎么会要求安装 IE5.5，我的机器上就有IE6啊！
青锋-SS 2006-12-20
  • 打赏
  • 举报
 回复
怎么出来Java的东西了,JVM.
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
每次打开PB8都会弹出下面的对话框，麻烦看看是不是这个原因：
could not instantiate the webtarget applet info java class- error code %d

this is most likely caused by not having the microsoft java VM installed. you can install this VM through the "custom" install in IE5.5
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
是不是我的编译环境有问题啊，我装的是PB8
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
对啊，我最后改成确定的路径都不行
yangjianw2004 2006-12-20
  • 打赏
  • 举报
 回复
你的database.INI 文件放大路径对吗？
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
调试的时候连接数据库没有问题，等生成EXE之后就连不上数据库了，不知道为何，高手帮我啊！！！
akai5831 2006-12-20
  • 打赏
  • 举报
 回复
自己顶，高手帮忙啊！
为何生成EXE后就读不出来信息啊！
ls_dbms =profilestring("database.INI","DATABASE","DBMS","")
加载更多回复（6）
数据库备份与SQL语句
文章目录数据库备份数据库常用备份方案mysql备份工具mysqldump差异备份与恢复SQL语句group by 使用自然连接INNER JOIN联合连接（UNION JOIN）外连接 数据库备份 数据库常用备份方案 全量备份 增量备份 差异备份 备份方案 特点 全量备份 全量备份就是指对某一个时间点上的所有数据或应用进行的一个完全拷贝。 数据恢复快。 备份时间长 增量备份 增量备份是指在一次全备份或上一次增量备份后，以后每次的备份只需备份 与前一次相比增加和者被修改的文件。这就意味
达梦数据库备份
联机备份和脱机备份 联机备份：数据库处于运行状态、并正常提供数据库服务情况下进行的备份操作。 从V2.0 版本开始，使用 DMRMAN 工具进行脱机备份，并且支持对异常关闭的数据库进 行脱机库备份。备份异常关闭的数据库，要求配置了本地归档，如果本地归档不完整，则需要先修复本地归档，再进行备份。 脱机备份：数据库处于关闭状态时进行的备份操作 联机备份则使用客户端工具连接到服务器实例后，通过执行 SQL 语句进行；也可以通 过配置作业，定时完成自动备份。联机备份不影响数据库正常提供服务，是最常用的备份手
进阶数据库系列（二十）：PostgreSQL 数据库备份与恢复
点击下方名片，设为星标！回复“1024”获取2TB学习资源！前面介绍了PostgreSQL事务与并发控制、主从复制、高可用方案、基于 Patroni 高可用架构部署及故障切换、基于 repmgr 高可用架构实践、基于 pgpool 实现读写分离实践等相关的知识点，今天我将详细的为大家介绍 PostgreSQL 数据库备份与恢复相关知识，希望大家能够从中收获多多！如有帮助，请点在看、转发支持一...
浅谈MySQL数据库备份的几种方法
mysql常见的备份方式有:mysqldump、mysqlhotcopy、BACKUP TABLE 、SELECT INTO OUTFILE，又或者备份二进制日志（binlog），还可以是直接拷贝数据文件和相关的配置文件。MyISAM 表是保存成文件的形式，因此相对比较容易备份，上面提到的几种方法都可以使用。Innodb 所有的表都保存在同一个数据文件 ibdata1 中（也可能是多个文件，或
渗透测试-CMS网站数据库备份漏洞
背景环境 背景介绍 安全工程师"墨者"的朋友搭建一个emlog个人博客系统，为了确保该系统的安全性，请你检测该系统是否存在安全漏洞。 实训目标 1、了解验证码绕过的相关知识； 2、了解后台地址扫描及其他相关漏洞资料； 3、了解后台常用账户密码的利用方式； 解题方向 进入后台，找到后台中可利用的地方getshell。 攻击过程 墨者学院在线靶机（动态地址）： http://219.153.49.2...
PowerBuilder

1,108

社区成员

66,453

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章