数据库备份有点问题,请教各位大哥,急的

xhzhang 2003-11-12 11:32:50
backup database chongjia to disk='c:\chongjia.bak'

该语句在 SQL 2000 的查询分析器中能够备份完成,但在 VB6.0 中却不能完成,不知是何原因?

错误提示是:"在关键字'Database' 附近有语法错误"

下面是程序:

盼!!!盼!!!

Private Function Backup_Data()
Dim sFile As String
Dim l1 As String
Dim MainCn As New ADODB.Connection
Dim cdata As String
Dim cuid As String
Dim cserver As String
Dim cpassword As String
Dim StrTemp As String

On Error GoTo saveerr
cserver = Trim(Text1.Text)
cdata = Trim(Text2.Text)
cuid = "SA"
cpassword = ""

StrTemp = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & CStr(cuid) & ";pwd=" & CStr(cpassword) & ";Initial Catalog=" & CStr(cdata) & ";Data Source=" & CStr(cserver)

MainCn.Open StrTemp

Start_date = Format(Now, "hh:mm:ss")
MainCn.CommandTimeout = 1000 ' ADOConnection.CommandTimeout = 1000
str1 = "backup database chongjia to disk= 'chongjia' "

MainCn.CursorLocation = adUseServer
MainCn.Execute str1
MainCn.CommandTimeout = 30 ' ADOConnection.CommandTimeout = 1000
MainCn.Close
Set MainCn = Nothing
Exit Function
saveerr:
Set MainCn = Nothing
MsgBox "FrmSetGZ_cmdApply" & Chr(13) & Chr(10) & _
"错误号:" & Err.Number & Chr(13) & Chr(10) & _
"错误内容:" & Err.Description, vbExclamation, Me.Caption
End Function
...全文
24 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjcxc 2003-12-09
  • 打赏
  • 举报
回复
文件名的问题.
xhzhang 2003-11-12
  • 打赏
  • 举报
回复
错误提示是:"在关键字'Database' 附近有语法错误",不知是何原因

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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