我的程序 在打开,编辑,排序,打印时一切正常,但是在备份时却出错,提示:
实时错误-214721790-(80040e14)'
无效的sql语句;期待'Delete','Insert','procedure','select',或'update'.
具体我的代码如下:
Dim strtemp As String, strbackup As String
cmdg1.DialogTitle = "FILE SAVE"
cmdg1.CancelError = False
cmdg1.Filter = "*.mdb"
cmdg1.FileName = ""
cmdg1.ShowSave
strtemp = cmdg1.FileName
If strtemp = "" Then Exit Sub
strbackup = "backup student to disk=" & strtemp
rs.Update
cnn.Execute (strbackup)
'rs.Save strtemp, adPersistADTG
DataGrid1.Refresh
Set DataGrid1.DataSource = Nothing
rs.Close
cnn.Close 注:student为数据库名
请大家帮忙看看!万分感谢中!
实时错误-214721790-(80040e14)'
无效的sql语句;期待'Delete','Insert','procedure','select',或'update'.
具体我的代码如下:
Dim strtemp As String, strbackup As String
cmdg1.DialogTitle = "FILE SAVE"
cmdg1.CancelError = False
cmdg1.Filter = "*.mdb"
cmdg1.FileName = ""
cmdg1.ShowSave
strtemp = cmdg1.FileName
If strtemp = "" Then Exit Sub
strbackup = "backup student to disk=" & strtemp
rs.Update
cnn.Execute (strbackup)
'rs.Save strtemp, adPersistADTG
DataGrid1.Refresh
Set DataGrid1.DataSource = Nothing
rs.Close
cnn.Close 注:student为数据库名
请大家帮忙看看!万分感谢中!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货