| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 762 人关注过本帖
标题:弄了很久,还是搞不定它.
只看楼主 加入收藏
紫竹
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-3-30
收藏
 问题点数:0 回复次数:7 
弄了很久,还是搞不定它.

各位,你你好!我在系统里面做了个备份与恢复的功能,但是运行的时候恢复那里总是出现如图的错误,我怎么看都不懂,请各位高手指点.

图片附件: 游客没有浏览图片的权限,请 登录注册


恢复部分代码如下:
Private Sub CmdBackup_Click()
Dim S
If Option1.Value = True Then
'备份数据库
S = Dir1.Path & "\" & Date & ".BAK"
If Label1.Caption = S Then
MsgBox "数据备份卡已存在!"
Else
StrCnn.Open "Driver={SQL Server};Server=ADMIN;Database=wlst;Uid=sa;Pwd=123"
'备份SQL Server数据库
sql = "backup DATABASE wlst TO disk='" & S & "'"
StrCnn.Execute (sql) '执行SQL语句
StrCnn.Close
MsgBox "数据库备份成功!"
key = Date & ".BAK"
Set itmX = ListView1.ListItems.Add(, , key, 1)
End If
End If
If Option2.Value = True Then
'恢复指定路径下的数据库
If File1.ListCount <> 0 Then
If Label1.Caption <> "" Then
' StrCnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wlst;Data Source=" & Winsock1.LocalHostName
StrCnn.Open "Driver={SQL Server};Server=ADMIN;Database=wlst;Uid=sa;Pwd=123"
'StrCnn.Open
'数据恢复语句
sql = "RESTORE DATABASE wlst from disk='" & Label1.Caption

StrCnn.Execute (sql) '执行SQL语句 (提示这里出错)
StrCnn.Close
MsgBox "数据库恢复成功!"
Else
MsgBox "请选择要恢复的数据备份卡!"
End If
Else
MsgBox "请选择要恢复的数据备份卡!"
End If
End If
End Sub

搜索更多相关主题的帖子: SQL 数据库 Server 
2007-08-14 17:19
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 
sql = "RESTORE DATABASE wlst from disk='" & Label1.Caption + "'"
这样试试看成不成?

2007-08-14 17:27
紫竹
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-3-30
收藏
得分:0 
改了以后,错误提示改了,变成如下图,.但是提示错的地方一样.

图片附件: 游客没有浏览图片的权限,请 登录注册

2007-08-14 17:32
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
收藏
得分:0 
sql = "RESTORE DATABASE wlst from disk='" & Label1.Caption + "'"
后面也要加单引号。
另外,恢复时,必须独占才行。请关闭所有其他连接才能恢复的。
备份就不必了。


2007-08-15 08:02
紫竹
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-3-30
收藏
得分:0 
嗯,,谢谢.但是我怎么才能检查出我哪里还有连接没关闭呢?就间说我怎么才能使它独占啊?
2007-08-15 08:25
紫竹
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-3-30
收藏
得分:0 

我查了很久,,还是卡在这里,,请问还有哪位知道我要怎么解决这个错误的吗?

2007-08-15 14:35
紫竹
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-3-30
收藏
得分:0 

请各位帮帮忙啦,,小女子感激不尽,,在线等啊!

2007-08-16 07:42
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
收藏
得分:0 
看进程,到企来管理器中,管理,当前活动中看。
里机有当前的所有连接。
另外,停服务,再启动服务,一般所有连接一定断了。

2007-08-16 08:37
快速回复:弄了很久,还是搞不定它.
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033865 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved