在线等,,,高手进来帮忙
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控件需要关闭或什么的?