Wazig, ik heb de volgende code:
en verderop de functie:
en fnOpenRecordSet ziet er als volgt uit:
en dan voor de volledigheid fnGetRecords nog eventjes :):
De onderste twee functies zijn 100% ok. Het argument doorgegeven aan fnGetProfiel heeft ook een geldige waarde en de query in fnGetProfiel heb ik in Access getest en die doet het.
Nu wil het dat aan strRendement in het bovenste stukje code tmp(0,0) toewijs, ik dan een typemismatch krijg. VarType() op tmp levert code 8204 op, error dus. Maar ik zie niet in wat er nu fout is
(IsEmpty() en IsNull() op tmp leveren beiden false op, maar IsArray() daarentegen levert wel True op
)
code:
1
2
| tmp = fnGetProfiel(aResult(PROFIELID, i)) strRendement = tmp(0,0) |
en verderop de functie:
code:
1
2
3
4
5
6
7
| Function fnGetProfiel(rendement)
Dim strSQL
strSQL = "select profiel FROM profiel WHERE rendement = " & rendement
fnGetProfiel = fnOpenRecordSet(strSQL)
End Function |
en fnOpenRecordSet ziet er als volgt uit:
code:
1
2
3
4
5
6
7
8
9
10
| Function fnOpenRecordset(strSql)
Dim cnn
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open Application("connection")
fnOpenRecordset = fnGetRecords(strSQL,cnn)
cnn.Close
set cnn = Nothing
End Function |
en dan voor de volledigheid fnGetRecords nog eventjes :):
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Function fnGetRecords(strSQL,cnn)
Dim rs, tmperr
Set rs = Server.CreateObject("ADODB.RecordSet")
On Error Resume Next
rs.Open strSQL, cnn
tmperr = Err.Number
On Error Goto 0
If tmperr <> 0 Then
fnGetRecords = 0
Set rs = Nothing
Exit Function
End If
If rs.EOF Then
fnGetRecords = 0
Else
fnGetRecords = rs.GetRows
End If
rs.Close
Set rs = Nothing
End Function |
De onderste twee functies zijn 100% ok. Het argument doorgegeven aan fnGetProfiel heeft ook een geldige waarde en de query in fnGetProfiel heb ik in Access getest en die doet het.
Nu wil het dat aan strRendement in het bovenste stukje code tmp(0,0) toewijs, ik dan een typemismatch krijg. VarType() op tmp levert code 8204 op, error dus. Maar ik zie niet in wat er nu fout is
(IsEmpty() en IsNull() op tmp leveren beiden false op, maar IsArray() daarentegen levert wel True op