PB9.0数据备份及还原

string ls_servername ,ls_passwd,ls_userid

ls_servername  = mle_server.text
ls_userid = mle_username.text
ls_passwd = mle_passwd.text

if isnull(ls_servername ) or ls_servername = '' then
messagebox('提示信息','请先输入服务器名称!')
return 0
end if

if isnull(ls_userid) or ls_userid = '' then
messagebox('提示信息','请输入用户名称!')
return 0
end if

// 连接数据库服务器，取得所有数据库的名称
transaction ltr_restore

ltr_restore = create transaction

ltr_restore.DBMS = "MSS Microsoft SQL Server 2000"
ltr_restore.Database = 'master'
ltr_restore.ServerName = ls_servername
ltr_restore.LogId = ls_userid
ltr_restore.LogPass = ls_passwd
ltr_restore.AutoCommit = true
ltr_restore.DBParm = ""

connect using ltr_restore;

if ltr_restore.sqlcode <> 0 then
     MessageBox ("无法连接数据库", ltr_restore.sqlerrtext)
     return
end if

//下面开始将数据库名称添加到下拉列表中
datastore lds_db
String ls_itemname,ls_itemdata
long ll_items,ll_i,ll_pos

ll_items = ddlb_database.TotalItems ( )
if ll_items < 0 then return 0

//清空列表
for ll_i = ll_items to 1 step -1
ddlb_database.DeleteItem ( ll_i )
next

lds_db = create datastore

lds_db.dataobject = 'dw_databases'
lds_db.SetTransObject(ltr_restore)
ll_items = lds_db.retrieve()

if ll_items < 1 then return

for ll_i = 1 to ll_items
ls_itemname = lds_db.GetItemString(ll_i,'name')
ll_pos =ddlb_database.AddItem ( ls_itemname )
next