C
CodeGenre
Guest
Hi There Everyone!
I have a problem again regarding on these lines..
Option Strict Off
Option Explicit On
<System.Runtime.InteropServices.ProgId("AnnualReports_NET.AnnualReports")> Public Class AnnualReports
Annual Reports
Private Structure ProgramAttributes
Dim programid As String
Dim sName As String
Dim yearstart As Short
Dim yearend As Short
Dim statusID As Short
Dim cost As Double
Dim userid As String
Dim datecreated As String
Dim dateChanged As String
Dim budgetdesc As String
End Structure
Private db As clsDataBase
Private conn As ADODB.Connection ß“connection is Ambiguous in the namespace ‘ADODB’
Private Const QRY_Program As String = "/AnnualProgram"
Private sys As System_Renamed
UPGRADE_NOTE: Class_Initialize was upgraded to Class_Initialize_Renamed. Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"
Private Sub Class_Initialize_Renamed()
UPGRADE_WARNING: TypeName has a new behavior. Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"
Debug.Print(TypeName(Me))
sys = getSystem
end sub
Is there anyone who knows how to fix this. Thanks
Jonel
Continue reading...
I have a problem again regarding on these lines..
Option Strict Off
Option Explicit On
<System.Runtime.InteropServices.ProgId("AnnualReports_NET.AnnualReports")> Public Class AnnualReports
Annual Reports
Private Structure ProgramAttributes
Dim programid As String
Dim sName As String
Dim yearstart As Short
Dim yearend As Short
Dim statusID As Short
Dim cost As Double
Dim userid As String
Dim datecreated As String
Dim dateChanged As String
Dim budgetdesc As String
End Structure
Private db As clsDataBase
Private conn As ADODB.Connection ß“connection is Ambiguous in the namespace ‘ADODB’
Private Const QRY_Program As String = "/AnnualProgram"
Private sys As System_Renamed
UPGRADE_NOTE: Class_Initialize was upgraded to Class_Initialize_Renamed. Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"
Private Sub Class_Initialize_Renamed()
UPGRADE_WARNING: TypeName has a new behavior. Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"
Debug.Print(TypeName(Me))
sys = getSystem
end sub
Is there anyone who knows how to fix this. Thanks
Jonel
Continue reading...