函数调用问题,请进.....

ezyw 2001-11-30 03:20:40
模块中定义了如下函数:
Sub initRSTemp(ByRef rs As ADODB.Recordset, ByVal strSql As String)
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cnnMain, 3, 3
End Sub

在窗体中调用:
Dim Path As New FileSystemObject
Dim rsTemp As New ADODB.Recordset
Dim strFilePath, strFileName
initRSTemp rsTemp, "select filename from admin where lev='1'"
Do While Not rsTemp.EOF
strFilePath = "Model 1_" & rsTemp.Fields(0).Value
If Not Path.FolderExists(strFilePath) Then
Path.CreateFolder (strFilePath)
End If
rsTemp.MoveNext
Loop

有何错误?????
...全文
80 回复 打赏 收藏 转发到动态 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐

7,703

社区成员

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