函数调用问题,请进.....
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
有何错误?????