A
amitbadgi
Hi I am converting an asp applicattion to asp.net, and I am getting an
error as follows,
Exception Details: System.Runtime.InteropServices.COMException: Type
mismatch.
Source Error:
Line 350: 'response.Write(sql2)
Line 351: rs_getAlarmCount =
Server.CreateObject("ADODB.Recordset")
Line 352: rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
Line 353: rs_getAlarmCount.Source = sql
Line 354: rs_getAlarmCount.CursorType = 0
Source File: C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx
Line: 352
Stack Trace:
[COMException (0x80020005): Type mismatch.]
Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object
o, Type& objType, String name, Object[] args, String[] paramnames,
Boolean OptimisticSet, CallType UseCallType) +2138
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean OptimisticSet, Boolean
RValueBase, CallType CallType) +180
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments) +33
ASP.campusfiresafetyreport_aspx.getAlarmCount(Object location,
Object alarmtype, Object thisyear) in C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx:352
ASP.campusfiresafetyreport_aspx.__Render__control1(HtmlTextWriter
__w, Control parameterContainer) in C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx:251
System.Web.UI.Control.RenderChildrenInternal(HtmlTextWriter writer,
ICollection children) +98
System.Web.UI.Control.RenderChildren(HtmlTextWriter writer) +20
System.Web.UI.Page.Render(HtmlTextWriter writer) +27
System.Web.UI.Control.RenderControlInternal(HtmlTextWriter writer,
ControlAdapter adapter) +53
System.Web.UI.Control.RenderControl(HtmlTextWriter writer,
ControlAdapter adapter) +280
System.Web.UI.Control.RenderControl(HtmlTextWriter writer) +24
System.Web.UI.Page.ProcessRequestMain(Boolean
includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)
+8878
The code above is defined as follows
<Script type="VB" runat="Server">
function getAlarmCount(location, alarmtype, thisyear)
Dim sql = " SELECT COUNT(*) AS realalarmcount " & _
"FROM (tblEvent INNER JOIN tblEvent_type ON tblEvent.case_no =
tblEvent_type.case_no) " & _
"WHERE (tblEvent_type.event_type_id = "& alarmtype &") " & _
" AND (tblEvent.date_of_event > '1/1/"& thisyear &"' and
tblEvent.date_of_event < '12/31/"& thisyear &"' ) "
if location <> "0" then
sql = sql & " AND (tblEvent.location = "& location &") "
end if
'response.Write(sql2)
rs_getAlarmCount = Server.CreateObject("ADODB.Recordset")
rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
rs_getAlarmCount.Source = sql
rs_getAlarmCount.CursorType = 0
rs_getAlarmCount.CursorLocation = 2
rs_getAlarmCount.LockType = 1
rs_getAlarmCount.Open()
alarmcount = rs_getAlarmCount("realalarmcount")
'.response.Write(alarmcount)
rs_getAlarmCount.Close()
rs_getAlarmCount = Nothing
getAlarmCount = alarmcount
end function
</Script>
The active connection is used elsewhere too and is workign fine, but
when its defined in teh script block, its giving me an error, i donot
know how to fix it, I need help. thanks
--------------------------------------------------------------------------------
error as follows,
Exception Details: System.Runtime.InteropServices.COMException: Type
mismatch.
Source Error:
Line 350: 'response.Write(sql2)
Line 351: rs_getAlarmCount =
Server.CreateObject("ADODB.Recordset")
Line 352: rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
Line 353: rs_getAlarmCount.Source = sql
Line 354: rs_getAlarmCount.CursorType = 0
Source File: C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx
Line: 352
Stack Trace:
[COMException (0x80020005): Type mismatch.]
Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object
o, Type& objType, String name, Object[] args, String[] paramnames,
Boolean OptimisticSet, CallType UseCallType) +2138
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean OptimisticSet, Boolean
RValueBase, CallType CallType) +180
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments) +33
ASP.campusfiresafetyreport_aspx.getAlarmCount(Object location,
Object alarmtype, Object thisyear) in C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx:352
ASP.campusfiresafetyreport_aspx.__Render__control1(HtmlTextWriter
__w, Control parameterContainer) in C:\Documents and
Settings\amit\Desktop\WebSite1\reports\campusfiresafetyreport.aspx:251
System.Web.UI.Control.RenderChildrenInternal(HtmlTextWriter writer,
ICollection children) +98
System.Web.UI.Control.RenderChildren(HtmlTextWriter writer) +20
System.Web.UI.Page.Render(HtmlTextWriter writer) +27
System.Web.UI.Control.RenderControlInternal(HtmlTextWriter writer,
ControlAdapter adapter) +53
System.Web.UI.Control.RenderControl(HtmlTextWriter writer,
ControlAdapter adapter) +280
System.Web.UI.Control.RenderControl(HtmlTextWriter writer) +24
System.Web.UI.Page.ProcessRequestMain(Boolean
includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)
+8878
The code above is defined as follows
<Script type="VB" runat="Server">
function getAlarmCount(location, alarmtype, thisyear)
Dim sql = " SELECT COUNT(*) AS realalarmcount " & _
"FROM (tblEvent INNER JOIN tblEvent_type ON tblEvent.case_no =
tblEvent_type.case_no) " & _
"WHERE (tblEvent_type.event_type_id = "& alarmtype &") " & _
" AND (tblEvent.date_of_event > '1/1/"& thisyear &"' and
tblEvent.date_of_event < '12/31/"& thisyear &"' ) "
if location <> "0" then
sql = sql & " AND (tblEvent.location = "& location &") "
end if
'response.Write(sql2)
rs_getAlarmCount = Server.CreateObject("ADODB.Recordset")
rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
rs_getAlarmCount.Source = sql
rs_getAlarmCount.CursorType = 0
rs_getAlarmCount.CursorLocation = 2
rs_getAlarmCount.LockType = 1
rs_getAlarmCount.Open()
alarmcount = rs_getAlarmCount("realalarmcount")
'.response.Write(alarmcount)
rs_getAlarmCount.Close()
rs_getAlarmCount = Nothing
getAlarmCount = alarmcount
end function
</Script>
The active connection is used elsewhere too and is workign fine, but
when its defined in teh script block, its giving me an error, i donot
know how to fix it, I need help. thanks
--------------------------------------------------------------------------------