Hy
We use .NET for programming the user interface, OpenClient 9 to create COM dll's, appserver9 to connect to the progress database (9.1.).
We have written a simple program to return values of a temptable. Returning the column names is no problem. The moment we try to return the field values we get the "Cannot access a closed result set 7180" error. Is there anyone that can help in solving this issue? We think there is someting wrong with the temptable...Below is the .NET code. Second question: does anyone know how to get to the variables defined as output parameters in the progress procedure?
Thx
Tom
Dim temptable As New ProO4glActiveXLib.CProTempTable()
Dim records As ProO4glActiveXLib.CFields
Dim fields(14) As ProO4glActiveXLib.CField
Dim columncount As Integer
Dim ploginpar As String
Dim pArtikelnr As String
Dim pArtDesc As String
Dim i As Integer
ap.OC_Connect("appserver://xxxx:xxx/asbroker1", "", "", "")
ploginpar = "001;002;test"
pArtikelnr = "0B657899"
ap.offinq1tst(ploginpar, pArtikelnr, pArtDesc, temptable)
temptable.MoveNext()
records = temptable.Fields
columncount = records.Count
Response.Write("Number of fields found:<b>" & columncount & "</b><br>")
fields(1) = records.Item(1)
Response.Write(fields(1).Name & "<br>")
Response.Write(fields(1).Value) --> this line gives the error
temptable.Close()
ap.OC_Release()
We use .NET for programming the user interface, OpenClient 9 to create COM dll's, appserver9 to connect to the progress database (9.1.).
We have written a simple program to return values of a temptable. Returning the column names is no problem. The moment we try to return the field values we get the "Cannot access a closed result set 7180" error. Is there anyone that can help in solving this issue? We think there is someting wrong with the temptable...Below is the .NET code. Second question: does anyone know how to get to the variables defined as output parameters in the progress procedure?
Thx
Tom
Dim temptable As New ProO4glActiveXLib.CProTempTable()
Dim records As ProO4glActiveXLib.CFields
Dim fields(14) As ProO4glActiveXLib.CField
Dim columncount As Integer
Dim ploginpar As String
Dim pArtikelnr As String
Dim pArtDesc As String
Dim i As Integer
ap.OC_Connect("appserver://xxxx:xxx/asbroker1", "", "", "")
ploginpar = "001;002;test"
pArtikelnr = "0B657899"
ap.offinq1tst(ploginpar, pArtikelnr, pArtDesc, temptable)
temptable.MoveNext()
records = temptable.Fields
columncount = records.Count
Response.Write("Number of fields found:<b>" & columncount & "</b><br>")
fields(1) = records.Item(1)
Response.Write(fields(1).Name & "<br>")
Response.Write(fields(1).Value) --> this line gives the error
temptable.Close()
ap.OC_Release()