--------------------------------------------------------------------------------
//global external functions
FUNCTION boolean SetCurrentDirectory (ref string lpPathName) Library "KERNEL32.DLL" Alias for "SetCurrentDirectoryA"
//clicked
string docname='gzgl.bak', named
integer value
value = GetFileSaveName("請輸入備份檔案名", &
docname, named, "BAK", &
"Backup Files (*.BAK),*.BAK")
IF value = 1 THEN
sle_PATH.text = docname
SetCurrentDirectory(gs_path)
end if
//備份資料庫
string backup
STRING pathstring
pathstring =sle_PATH.TEXT
messagebox('系統資訊','請先關閉所有的視窗!',Exclamation!)
if pathstring = '' then
messagebox("提示","請輸入備份資料庫名稱!")
return
end if
//Disconnect USING sqlca;
// Profile master
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=master;UID=;PWD='"
connect using sqlca;
backup= "backup database gzgl to disk = " + "'" + pathstring + "'";
EXECUTE IMMEDIATE :backup;
if sqlca.sqlcode = 0 then
messagebox('恭喜','資料庫備份成功！')
else
messagebox("哎呀","出錯了+"+sqlca.sqlerrtext)
end if
//disconnect;
return
想不通為什么出現下面這個情況。。我用的是ASA是不是這個原因啊！！！
出錯了+sqlstate=37000
[sysbase][odbc driver][adaptive server anywhere]syntax error or access violation : near 'gzgl' in database [gzgl] to disk ='d:\....'
uj5u.com熱心網友回復：
backup= "backup database gzgl to disk = " + "'" + pathstring + "'";///////////////////////////////////
messagebox("提示",backup)
這把句內容檢查一下
不果，偶好像記得ASA應該是用: backup database to "c:\aa"
不用加資料名了吧
uj5u.com熱心網友回復：
寫錯了，應該用單引號backup database directory 'c;\bb'
這樣就會在C盤下，如果有BB這個目錄存在，則直接備份，如果沒有BB目錄，則創建后再備份
uj5u.com熱心網友回復：
lz要干嘛？uj5u.com熱心網友回復：
支持摟主，收藏轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/115141.html
標籤：數據庫相關