Ik wil een functie maken waarbij ik een string (SQL Query) op kan geven en een string wat de naam moet worden van het recordset waar het resultaat in komt.
Ik dacht aan het volgende, maar krijg een foutmelding Cannot use parentheses when calling a Sub.
Ik zou hierna dus over moeten houden een RecordSet genaamd 'rsResult' met als inhoud het resultaat van de query zoals die in strQuery staat.
Iemand een helder idee ?
Ik dacht aan het volgende, maar krijg een foutmelding Cannot use parentheses when calling a Sub.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim dbConn
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionString = "deHeleZooi"
dbConn.Provider = "SQLOLEDB"
dbConn.Open
Public Function queryDB(strQuery, strRecordSet)
Execute("Dim " & strRecordSet)
Execute("Set " & strRecordSet & " = Server.CreateObject(""ADODB.RecordSet"")")
dbConn.Execute strQuery
Execute(strRecordSet & ".Open strQuery, dbConn")
End Function
strQuery = "SELECT * FROM pageorder ORDER BY positionRow, positionColumn"
queryDB(strQuery, "rsResult") |
Ik zou hierna dus over moeten houden een RecordSet genaamd 'rsResult' met als inhoud het resultaat van de query zoals die in strQuery staat.
Iemand een helder idee ?