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

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

有何错误?????
...全文
78 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-30 03:20
社区公告
暂无公告