在线等,,,高手进来帮忙

naka 2006-04-20 07:21:41
Private Sub OUT_CLICKED()
OpenDlg.ShowOpen
fnum = FreeFile
file_name = OpenDlg.FileName
On Error GoTo MiscError

Open file_name For Output As fnum
strsql="select * from weihu where name='"& waiwainame &"'"
Set rs = cm.OpenResultset(strsql, 1, , 64)


Do While Not rs.EOF
num_processed = num_processed + 1

Print #fnum, b10
rs.MoveNext
Loop
rs.Close
Close fnum
MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close
Exit Sub

MiscError:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description

End Sub

把一个查询结果导成文本文件,其中,OpenDlg为commondialog控件
问题:为何在我导第一次是对的,导完后直接再导一次就会出错?
是不是commondialog控件需要关闭或什么的?
...全文
46 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
faysky2 2006-04-20
MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close ' <------------把这句去掉再试
Exit Sub
  • 打赏
  • 举报
回复
truewill 2006-04-20
会不会是num_processed 没有初始化
  • 打赏
  • 举报
回复
danielinbiti 2006-04-20
MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close
Close #fnum
Exit Sub
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7547

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2006-04-20 07:21
社区公告
暂无公告