Ik heb een pagina waarin de detailgegevens worden getoond en kunnen worden gewijzigd van een bepaald geregistreerd software pakket. Als onderdele van deze pagina worden ook de mogelijke leveranciers opgehaald uit de database.
Na het ophalen van de leveranciers zijn bepaalde velden in mijn hoofd recordset hun waarde kwijt.
Code om te testen
output van de code
Komt dit wellicht door het hergebruik van het command object of zie ik iets anders over het hoofd?
Na het ophalen van de leveranciers zijn bepaalde velden in mijn hoofd recordset hun waarde kwijt.
Code om te testen
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
| <!-- #include file="../../includes/hdtool.inc" -->
<%
openDB
objCmd.ActiveConnection = objCn
objCmd.CommandText = "qryCMDBEntryDetail"
objCmd.Parameters.Append objCmd.CreateParameter("intID", adDouble, adParamInput, 1,1)
objCmd.CommandType = adCmdStoredProc
Set objRs = objCMD.Execute
Dim field
Response.Write "<hr>"
For Each Field in objRs.Fields
Response.Write Field.Name & ": " & Field.Value & "<br>"
Next
Set objCmd = Nothing
Set objCmd = Server.CreateObject("ADODB.Command")
Dim objRs_Manufacturers
Set objRs_Manufacturers = Server.CreateObject("ADODB.Recordset")
objCmd.ActiveConnection = objCn
objCmd.CommandText = "qryProvidersAll" 'get all possible manufacturers
objCmd.CommandType = adCmdStoredProc
Set objRs_Manufacturers = objCmd.Execute
Response.Write "<hr>"
For Each Field in objRs.Fields
Response.Write Field.Name & ": " & Field.Value & "<br>"
Next
CloseDb
%> |
output van de code
Zoals je kan zien zijn cmdbDesc en cmdbSpecElements hun waarde kwijt. In de MS SQL Database zijn dit ntext velden.ID: 1
cmdbName: test
cmdbDesc: test
cmdbNumber: test
cmdbManufacturer: 1
cmdbSupplier: 0
cmdbType: 2
cmdbInfra: 0
cmdbSerial: test
cmdbActive: True
cmdbSpecElements: one=test two=test three=test
typeName: Desktops
--------------------------------------------------------------------------------
ID: 1
cmdbName: test
cmdbDesc:
cmdbNumber: test
cmdbManufacturer: 1
cmdbSupplier: 0
cmdbType: 2
cmdbInfra: 0
cmdbSerial: test
cmdbActive: True
cmdbSpecElements:
typeName: Desktops
Komt dit wellicht door het hergebruik van het command object of zie ik iets anders over het hoofd?