怎么用pb在程序里备份及恢复数据库

可以用动态的数据窗口来实现将数据表中的信息存放到文本文件和dbf文件进行备份，然后再进行导入即数据恢复。具体的做法为：

1、在窗口中添加一个数据窗口控件，如数据窗口控件命名为dw_pip

2、在窗口中添加一个名为SAVE的保存按钮。在SAVE按钮中添加程序如下：

string sql_syntax,dwsyntax_str

string errors,S_filnam

string table_name

//编写数据查寻条件

sql_syntax=查询条件

//检索数据窗口内容

dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax,"style(type=grid)" , ERRORS)

dw_pip.Create(dwsyntax_str, ERRORS)

dw_pip.SetTransObject(SQLCA)

dw_pip.retrieve()

S_filnam="d:\del\test_del.txt" //要存放的文件名（自己可以设定，但必须保证该路径存在），若存为dbf类型，则将.txt后缀改为.dbf后缀

dw_pip.SaveAs(S_filnam, Text! , FALSE)

3、在窗口中添加名为import导入按钮，在本按钮中添加以下程序

string sql_syntax,dwsyntax_str

string errors,S_filnam

sql_syntax =要插入的数据表检索条件

dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax,"style(type=grid)" , ERRORS)

dw_pip.Create(dwsyntax_str, ERRORS)

dw_pip.SetTransObject(SQLCA)

dw_pip.retrieve()

//导入文件内容

ii=dw_pip.ImportFile("D:\del\test_del.TXT") //文件名为SAVE按钮中生成的文件名

dw_pip.update(true,true)

4、结束，调试运行

sql数据库质疑是设置错误造成的，解决方法为：

1、通过DBCC CHECKCB('DBName') 来检测数据库异常的原因，如果可以检测到数据库的异常，其中红色部分即时数据目前存在的问题，我们也在检测结果最后看到数据的总体的错误情况的汇总。

2、如果数据库的整体结果没有问题，只是部分表的数据结构、索引、存储出现异常，可以通过DBCC CheckTable('DBName.dbo.tablename')来进行检测。

3、通过sql命令或者 *** 作，将数据库设置为“单用户”模式，然后打开查询分析器，准备进行修改。

4、打开查询分析器器，选择Master数据库，通过DBCC CheckDB('DBName',REPAIR_ALLOW_DATA_LOSS）命令，进行数据库的全面修复，该命令可能会导致数据库中的数据丢失，请注意。

5、处理之后，我们还需要将用户模式恢复为多用户模式，可以选择命令，可以是所使用使用数据库管理工具，进行多用户回复：命令： ALTER DATABASE DBName SET MULTI_USER。

6、重启数据库服务，查看数据库异常是否修复，在控制面板找到sql服务进行重启，如果为sql2000，点击屏幕有下家的数据库服务器工具，进行重新启动。

ASA是Sybase为PB配的单机版的数据库，我个人认为它的性能与ACCESS差不多，一般不安装它！

如果程序是别人的，这个程序连接的数据库是ASA，你却没有安装它；

如果程序是自己编写的，你可能在PB中建立的ASA的DB Profile。如果ASA数据库与你的程序无关，就删除DB Profile中的ASA。

另外ASA数据库的文件扩展名为*.db。

---