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

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控件需要关闭或什么的?
...全文
71 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

7,785

社区成员

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

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