:strip_exif()/u/66784/sjink_got_avatar.gif?f=community){kind=avatar}
Ik ben een datamodule class aan het bouwen in VBScript
Nu doe ik dus het volgende
Het probleem is dus het volgende... De objRS-recordset wordt mooi gevuld met data vanuit de execSQL methode. Mijn probleem is nu dat deze objRS nu geen methods ondersteunt zoals EOF en MoveNext e.d.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| <%
Class DataModule
'************** Properties **************
Private objConn
Private strSQL
'****************************************
'************ Property Let **************
Public Property Let SQL(ByVal pSQL)
strSQL = pSQL
End Property
'****************************************
'************ Property Get **************
Public Property Get SQL()
SQL = strSQL
End Property
'****************************************
'************** Methods *****************
Public Sub openConnection()
Dim strConn
strConn = "Provider=MSDAORA.1;" & _
"Password=*******;" & _
"User ID=******;" & _
"Data Source=******;" & _
"Persist Security Info=True"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
End Sub
Public Sub closeConnection()
objConn.Close
Set objConn = Nothing
End Sub
Public Function execSQL()
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
execSQL = objRS
End Function
'****************************************
End Class
%> |
Nu doe ik dus het volgende
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim objRS Dim DM Set DM = New DataModule DM.openConnection() DM.SQL = "SELECT * FROM employee WHERE searchcode = 'IEMAND'" Set objRS = DM.execSQL Response.Write(objRS.EOF) DM.closeConnection() |
Het probleem is dus het volgende... De objRS-recordset wordt mooi gevuld met data vanuit de execSQL methode. Mijn probleem is nu dat deze objRS nu geen methods ondersteunt zoals EOF en MoveNext e.d.
*blup*
