!!!!!!!vb实时错误424 要求对象.有分跪求帮忙啊!!!!!!!!!

好心人帮帮忙!!!!!!!
Private Sub Cmd_BackUp_Click()
Cmd_BackUp.Enabled = False
Me.MousePointer = 11
If Text1.Text = "" Then
MsgBox "请您选择数据库备份的路径!", 64, "提示信息"
Else
Dim connter As Integer
Dim sql, workarea(6) As String
ProgressBar1.Visible = True
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = "initial value" & connter
ProgressBar1.Value = connter
StrCnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\khgl.mdb;Persist Security Info=False"
sql = "backup DATABASE db_CService TO disk='" & Text1.Text & "'"
StrCnn.Execute (sql) '执行SQL语句
StrCnn.Close
Next connter
ProgressBar1.Value = ProgressBar1.Min
MsgBox "数据库备份成功!!", 64, "提示信息"
Cmd_BackUp.Enabled = True
Me.MousePointer = 0
End If
End Sub
Private Sub Cmd_cancel_Click()
frm_main.Show

Unload Me
End Sub
Private Sub Cmd_Select_Click()
CommonDialog1.Filter = "备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.*"
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub
程序的这句话有毛病StrCnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\khgl.mdb;Persist Security Info=False"

一、在“工程”->“引用”中，钩选"Microsoft ActiveX Data Objects 2.0 Library"，或更高版本。
二、在Cmd_BackUp_Click中加入StrCnn的定义：
Dim StrCnn As New ADODB.Connection

你代码有两处错误,请按我说明修改: 1 对于ADO方法操作数据库,在使用strcnn变量连接数据库时,需要首先引用"Microsoft ActiveX Data Objects 2.0 Library"或更高(已经有人提到了): 2 对于引用后,需要你定义strcnn为ADO连接属性, 属性格式为Set strcnn = New ADODB.Connection (该句可放CMD 结构内 也可放在外部.如果使用教多 我们就放sub()外部) 补充: 3 Provider=Microsoft.Jet.OLEDB.3.51 针对你引用的数据库引擎为3.51这个教早的版本,存在大量的BUG,比较问题和与access兼容性较高的为Provider=Microsoft.Jet.OLEDB.4.0 ,在access数据库几个版本中使用 最好使用4.0.否则在2003下将无法正确识别部分数据库.

StrCnn在哪儿? 是不是应该有个StrCnn.asp呀

错误码不知道，而且大小写不区分的。 但是当我看到是局域网工具时，突然想起以前我也做过，也是失败告终的。原因是一些服务没有打开（貌似和net这命令有关）。你百度一下（net send）或者（无法发送局域网信息），应该有解决方案。 额。。。。这个问题是很久以前遇到过的了，而且也没有深钻下去，所以只给你说了一下思路，你看看吧

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息