[mono-vb] VBNC error

Barnett, James K jim_barnett at uhc.com
Fri May 2 10:42:20 EDT 2008


Hello again,
 
Getting another VBNC compilation error.
 
I am trying to move some asp.net pages from windows to linux on the
mainframe.
We are running Sles 9.3 in 64bit mode under z/VM 5.3 on an IBM z/10.
 
I upgraded to mono-basic 1.9 but am at 1.2.5.1 for everything else.
Another Comp Error posted on the list,   recommended getting everything
at up to 1.2.5 which I am already at or beyond.
However,  I am wondering if I should get everything to 1.9 and see if
the error is still there.
 
Thanks.  Let me know what you think.
 
 Here is the error I receive.
 

Server Error in '/test2' Application

________________________________


Compilation Error


Description: Error compiling a resource required to service this
request. Review your source file and modify it to fix this error. 

Error message: 

/tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb(118,44) : error
VBNC30456: 'DropDownListA' is not a member of 'ASP.emstest_aspx'.
/tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb(162,16) : error
VBNC30456: 'DropDownListA' is not a member of 'ASP.emstest_aspx'.


File name: /EMSASP/Emily/EMSTEST.aspx

Source File: /tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb

Line 1:
'-----------------------------------------------------------------------
-------
Line 2: ' <autogenerated>
Line 3: '     This code was generated by a tool.
Line 4: '     Mono Runtime Version: 2.0.50727.42
Line 5: '
Line 6: '     Changes to this file may cause incorrect behavior and will
be lost if 
Line 7: '     the code is regenerated.
Line 8: ' </autogenerated>
Line 9:
'-----------------------------------------------------------------------
-------
Line 10: 
Line 11: Option Explicit On
Line 12: Option Strict Off
Line 13: 
Line 14: Imports System
Line 15: Imports System.Collections
Line 16: Imports System.Collections.Specialized
Line 17: Imports System.Configuration
Line 18: Imports System.Text
Line 19: Imports System.Text.RegularExpressions
Line 20: Imports System.Web
Line 21: Imports System.Web.Caching
Line 22: Imports System.Web.SessionState
Line 23: Imports System.Web.Security
Line 24: Imports System.Web.Profile
Line 25: Imports System.Web.UI
Line 26: Imports System.Web.UI.WebControls
Line 27: Imports System.Web.UI.WebControls.WebParts
Line 28: Imports System.Web.UI.HtmlControls
Line 29: 
Line 30: Namespace ASP
Line 31:     
Line 32:     Public Class emstest_aspx
Line 33:         Inherits _Default
Line 34:         Implements
System.Web.SessionState.IRequiresSessionState
Line 35:         
Line 36:         Private Shared __initialized As Boolean = false
Line 37:         
Line 38:         Protected _bctrl_47 As
System.Web.UI.HtmlControls.HtmlHead
Line 39:         
Line 40:         Protected _bctrl_48 As
System.Web.UI.HtmlControls.HtmlTitle
Line 41:         
Line 42:         Protected _bctrl_49 As
System.Web.UI.WebControls.ListItemCollection
Line 43:         
Line 44:         Public Sub New()
Line 45:             MyBase.New
Line 46:             CType(Me, _Default).AppRelativeVirtualPath =
"~/test2/EMSTEST.aspx"
Line 47:             If (ASP.emstest_aspx.__initialized = false) Then
Line 48:                 ASP.emstest_aspx.__initialized = true
Line 49:             End If
Line 50:         End Sub
Line 51:         
Line 52:         Protected Overrides ReadOnly Property
SupportAutoEvents() As Boolean
Line 53:             Get
Line 54:                 Return false
Line 55:             End Get
Line 56:         End Property
Line 57:         
Line 58:         Protected ReadOnly Property ApplicationInstance() As
System.Web.HttpApplication
Line 59:             Get
Line 60:                 Return CType(Me.Context.ApplicationInstance,
System.Web.HttpApplication)
Line 61:             End Get
Line 62:         End Property
Line 63:         
Line 64:         Protected ReadOnly Property Profile() As
System.Web.Profile.DefaultProfile
Line 65:             Get
Line 66:                 Return CType(Me.Context.Profile,
System.Web.Profile.DefaultProfile)
Line 67:             End Get
Line 68:         End Property
Line 69:         
Line 70:         Private Sub __BuildControlTree(ByVal __ctrl As
emstest_aspx)
Line 71:             Me.InitializeCulture()
Line 72:             Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 73:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML
1.0 Transitional//EN""
""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Microsoft.
VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(10)&"<html
xmlns=""http://www.w3.org/1999/xhtml""
>"&Microsoft.VisualBasic.ChrW(10)))
Line 74:             Me.__BuildControl__bctrl_47()
Line 75:             __parser.AddParsedSubObject(Me._bctrl_47)
Line 76:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"<body>"&
Microsoft.VisualBasic.ChrW(10)&"    "))
Line 77:             Me.__BuildControl_form1()
Line 78:             __parser.AddParsedSubObject(Me.form1)
Line 79:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"</body>"
&Microsoft.VisualBasic.ChrW(10)&"</html>"&Microsoft.VisualBasic.ChrW(10)
))
Line 80:         End Sub
Line 81:         
Line 82:         Private Function __BuildControl__bctrl_47() As
System.Web.UI.Control
Line 83:             Dim __ctrl As System.Web.UI.HtmlControls.HtmlHead
Line 84:             __ctrl = New
System.Web.UI.HtmlControls.HtmlHead("head")
Line 85:             Me._bctrl_47 = __ctrl
Line 86:             Me.__BuildControl__bctrl_48()
Line 87:             Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 88:             __parser.AddParsedSubObject(Me._bctrl_48)
Line 89:             Return __ctrl
Line 90:         End Function
Line 91:         
Line 92:         Private Function __BuildControl__bctrl_48() As
System.Web.UI.Control
Line 93:             Dim __ctrl As System.Web.UI.HtmlControls.HtmlTitle
Line 94:             __ctrl = New System.Web.UI.HtmlControls.HtmlTitle()
Line 95:             Me._bctrl_48 = __ctrl
Line 96:             Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 97:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("Untitled Page"))
Line 98:             Return __ctrl
Line 99:         End Function
Line 100:         
Line 101:         Private Function __BuildControl_form1() As
System.Web.UI.Control
Line 102:             Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
Line 103:             __ctrl = New System.Web.UI.HtmlControls.HtmlForm()
Line 104:             Me.form1 = __ctrl
Line 105:             __ctrl.ID = "form1"
Line 106:             Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 107:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
<div>"&Microsoft.VisualBasic.ChrW(10)&"
"&Microsoft.VisualBasic.ChrW(10)&"
</div>"&Microsoft.VisualBasic.ChrW(10)&"        <table border=""0""
cellpadding=""0"" cellspacing=""0"" style=""width: 100%; height:
100%"">"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&"                <td
align=""center"" style=""height:
20px"">"&Microsoft.VisualBasic.ChrW(10)&"                    "))
Line 108:             Me.__BuildControl_HeadingLabel()
Line 109:             __parser.AddParsedSubObject(Me.HeadingLabel)
Line 110:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&"                <td
style=""height: 50px"" valign=""top"">"&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 111:             Me.__BuildControl_inputTextBox()
Line 112:             __parser.AddParsedSubObject(Me.inputTextBox)
Line 113:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 114:             Me.__BuildControl_submitButton()
Line 115:             __parser.AddParsedSubObject(Me.submitButton)
Line 116:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("&nbsp;"&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 117:             Me.__BuildControl_DropDownListA()
Line 118:             __parser.AddParsedSubObject(Me.DropDownListA)
Line 119:             Me.__BuildControl_SqlDataSource1()
Line 120:             __parser.AddParsedSubObject(Me.SqlDataSource1)
Line 121:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&"                <td
valign=""top"">"&Microsoft.VisualBasic.ChrW(10)&"                    "))
Line 122:             Me.__BuildControl_resultTextBox()
Line 123:             __parser.AddParsedSubObject(Me.resultTextBox)
Line 124:             __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
</table>"&Microsoft.VisualBasic.ChrW(10)&"    "))
Line 125:             Return __ctrl
Line 126:         End Function
Line 127:         
Line 128:         Private Function __BuildControl_HeadingLabel() As
System.Web.UI.Control
Line 129:             Dim __ctrl As System.Web.UI.WebControls.Label
Line 130:             __ctrl = New System.Web.UI.WebControls.Label()
Line 131:             Me.HeadingLabel = __ctrl
Line 132:             __ctrl.ApplyStyleSheetSkin(Me)
Line 133:             __ctrl.Text = "EMS System"
Line 134:             __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New
System.Web.UI.WebControls.Unit(15,
System.Web.UI.WebControls.UnitType.Point))
Line 135:             __ctrl.ID = "HeadingLabel"
Line 136:             Return __ctrl
Line 137:         End Function
Line 138:         
Line 139:         Private Function __BuildControl_inputTextBox() As
System.Web.UI.Control
Line 140:             Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 141:             __ctrl = New System.Web.UI.WebControls.TextBox()
Line 142:             Me.inputTextBox = __ctrl
Line 143:             __ctrl.ApplyStyleSheetSkin(Me)
Line 144:             __ctrl.Width = New
System.Web.UI.WebControls.Unit(200,
System.Web.UI.WebControls.UnitType.Pixel)
Line 145:             __ctrl.ID = "inputTextBox"
Line 146:             Return __ctrl
Line 147:         End Function
Line 148:         
Line 149:         Private Function __BuildControl_submitButton() As
System.Web.UI.Control
Line 150:             Dim __ctrl As System.Web.UI.WebControls.Button
Line 151:             __ctrl = New System.Web.UI.WebControls.Button()
Line 152:             Me.submitButton = __ctrl
Line 153:             __ctrl.ApplyStyleSheetSkin(Me)
Line 154:             __ctrl.Text = "Submit"
Line 155:             __ctrl.ID = "submitButton"
Line 156:             Return __ctrl
Line 157:         End Function
Line 158:         
Line 159:         Private Function __BuildControl_DropDownListA() As
System.Web.UI.Control
Line 160:             Dim __ctrl As
System.Web.UI.WebControls.DropDownList
Line 161:             __ctrl = New
System.Web.UI.WebControls.DropDownList()
Line 162:             Me.DropDownListA = __ctrl
Line 163:             __ctrl.ApplyStyleSheetSkin(Me)
Line 164:             __ctrl.DataTextField = "IS_ACCT_CD"
Line 165:             __ctrl.DataSourceID = "SqlDataSource1"
Line 166:             __ctrl.DataValueField = "IS_ACCT_CD"
Line 167:             __ctrl.ID = "DropDownListA"
Line 168:             Me.__BuildControl__bctrl_49(__ctrl.Items)
Line 169:             Return __ctrl
Line 170:         End Function
Line 171:         
Line 172:         Private Sub __BuildControl__bctrl_49(ByVal __ctrl As
System.Web.UI.WebControls.ListItemCollection)
Line 173:         End Sub
Line 174:         
Line 175:         Private Function __BuildControl_SqlDataSource1() As
System.Web.UI.Control
Line 176:             Dim __ctrl As
System.Web.UI.WebControls.SqlDataSource
Line 177:             __ctrl = New
System.Web.UI.WebControls.SqlDataSource()
Line 178:             Me.SqlDataSource1 = __ctrl
Line 179:             __ctrl.SelectCommand = "SELECT IS_ACCT_CD FROM
D5717CHG.IS_ACCOUNT"
Line 180:             __ctrl.ConnectionString =
System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionS
tring("ConnectionString3")
Line 181:             __ctrl.ProviderName =
System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionS
tringProviderName("ConnectionString3")
Line 182:             __ctrl.ID = "SqlDataSource1"
Line 183:             Return __ctrl
Line 184:         End Function
Line 185:         
Line 186:         Private Function __BuildControl_resultTextBox() As
System.Web.UI.Control
Line 187:             Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 188:             __ctrl = New System.Web.UI.WebControls.TextBox()
Line 189:             Me.resultTextBox = __ctrl
Line 190:             __ctrl.ApplyStyleSheetSkin(Me)
Line 191:             __ctrl.Width = New
System.Web.UI.WebControls.Unit(600,
System.Web.UI.WebControls.UnitType.Pixel)
Line 192:             __ctrl.TextMode =
System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 193:             __ctrl.Visible = false
Line 194:             __ctrl.Height = New
System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Pixel)
Line 195:             __ctrl.ReadOnly = true
Line 196:             __ctrl.ID = "resultTextBox"
Line 197:             Return __ctrl
Line 198:         End Function
Line 199:         
Line 200:         Protected Overrides Sub FrameworkInitialize()
Line 201:             MyBase.FrameworkInitialize()
Line 202:             Me.TraceModeValue =
System.Web.TraceMode.SortByTime
Line 203:             Me.Request.ValidateInput()
Line 204:             Me.__BuildControlTree(Me)
Line 205:         End Sub
Line 206:         
Line 207:         Public Overrides Function GetTypeHashCode() As Integer
Line 208:             Return 2120311146
Line 209:         End Function
Line 210:     End Class
Line 211: End Namespace
 
Jim Barnett

United Health Technologies

Mainframe Systems

763-744-3066

email: jim_barnett at uhc.com

 


This e-mail, including attachments, may include confidential and/or 
proprietary information, and may be used only by the person or entity to 
which it is addressed. If the reader of this e-mail is not the intended 
recipient or his or her authorized agent, the reader is hereby notified 
that any dissemination, distribution or copying of this e-mail is 
prohibited. If you have received this e-mail in error, please notify the 
sender by replying to this message and delete this e-mail immediately.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.ximian.com/pipermail/mono-vb/attachments/20080502/341131e8/attachment-0001.html 


More information about the Mono-vb mailing list