I have created a .dll file that is being used in my ASP application. I have some constants that are module level in my .dll file that I am told by my boss he wants used in the asp app. So now, I'm wondering if it is possible to reference them in my asp script and, if so, how? I hope this makes sense. If you need to see some of the code, please let me know. Thanks for any help. Insanity is merely a state of mind while crazy people have a mind of their own.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Referencing a constant in DLL file? 2
- Thread starter Chopstik
- Start date
- Thread starter
- #2
A sample from the .dll:
Option Explicit
Const ActiveConn As String = 'active connection string info here
'These are constants for drop downs, etc.
Const vbOptionType As Integer = 1
Const vbObligType As Integer = 2
Public Function DropDown(Choice As Integer) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Then, in my ASP page, I need to able to reference the constant name (which would be the integer parameter then passed down to the function). I'm at something of a loss here as to how to even begin this part. According to the boss, I should be able reference that by declaring it in the VBScript, but must just have brain lock b/c I'm not seeing it. Thanks for any help! Insanity is merely a state of mind while crazy people have a mind of their own.
Option Explicit
Const ActiveConn As String = 'active connection string info here
'These are constants for drop downs, etc.
Const vbOptionType As Integer = 1
Const vbObligType As Integer = 2
Public Function DropDown(Choice As Integer) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Then, in my ASP page, I need to able to reference the constant name (which would be the integer parameter then passed down to the function). I'm at something of a loss here as to how to even begin this part. According to the boss, I should be able reference that by declaring it in the VBScript, but must just have brain lock b/c I'm not seeing it. Thanks for any help! Insanity is merely a state of mind while crazy people have a mind of their own.
-
1
- #3
Hi Chopstik,
In your DLL, add an ENUM collection. What this will do is reveal these constants in the way you want to use it. Basically, it will (in InterDev) pop up a selection box when you type the DropDown() function. Try doing something like this in the DLL code:
Option Explicit
Const ActiveConn As String = 'active connection string info here
Enum Choice
vbOptionType = 1
vbObligType = 2
End Enum
Public Function DropDown(Choice As Integer) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Cheers,
Gorkem.
In your DLL, add an ENUM collection. What this will do is reveal these constants in the way you want to use it. Basically, it will (in InterDev) pop up a selection box when you type the DropDown() function. Try doing something like this in the DLL code:
Option Explicit
Const ActiveConn As String = 'active connection string info here
Enum Choice
vbOptionType = 1
vbObligType = 2
End Enum
Public Function DropDown(Choice As Integer) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Cheers,
Gorkem.
- Thread starter
- #4
Gorkem, thanks for the info. Had never used Enum before, so that is a nice tool. I am still unable to reference this in InterDev, however, and not sure why. I have tried a couple of different ways to retrieve it, yet it still doesn't appear to recognise it. Any idea why? Partial code that I am using to reference it is as follows:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Options Summary</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="
style1.css">
</HEAD>
<BODY>
<%
dim objCOM, strSQL, rs, i, rsTest, objConst
dim OptionID, DocID, EffDt, NotifyDt, OptionNotes, ActionTaken, ExerciseDt, ActionDt
dim AlarmDt, RenewalOption, MonthNextOption, LastModID, LastModDt, OptionType
set objCOM = server.CreateObject("
"
set rsTest = objCOM.DropDown(cint(vbOptionType))
%>
<H2>OPTIONS</H2>
<FORM name=frmOptions method="POST" action="Option.asp?screen=<%=Request.QueryString("screen"%>&id=<%=Request.QueryString("id"%>&OptionID=<%=Request.QueryString("OptionID"%>">
<TABLE width=700>
<tr>
<td width=175><b>Option Type</b></td>
<td width=175><b>Document ID</b></td>
<td width=175><b>Renewal Option</b></td>
<td width=175><b>Next Option Month</b></td>
</tr>
<tr>
<td><select id="SelOptType" name="SelOptType">
<%
while not rsTest.EOF
if OptionType = rsTest.Fields("optn_ty_cd" then
Response.Write "<option selected>" & rsTest.Fields("optn_ty_cd" & "</option>"
else
Response.Write "<option>" & rsTest.Fields("optn_ty_cd" & "</option>"
end if
rsTest.MoveNext
wend
%>
</select></td>
<td><input type="text" name="DocID" value="<%=DocID%>"></td>
<td><input maxlength=255 name="RenewalOption" value="<%=RenewalOption%>"></td>
<td><input type="text" name="MonthNextOption" value="<%=MonthNextOption%>"></td>
</tr>
<tr></tr><tr></tr><tr></tr>
Thanks!
Insanity is merely a state of mind while crazy people have a mind of their own.
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Options Summary</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="
Code:
Link4</HEAD>
<BODY>
<%
dim objCOM, strSQL, rs, i, rsTest, objConst
dim OptionID, DocID, EffDt, NotifyDt, OptionNotes, ActionTaken, ExerciseDt, ActionDt
dim AlarmDt, RenewalOption, MonthNextOption, LastModID, LastModDt, OptionType
set objCOM = server.CreateObject("
Code:
Link4D.Link4set rsTest = objCOM.DropDown(cint(vbOptionType))
%>
<H2>OPTIONS</H2>
<FORM name=frmOptions method="POST" action="Option.asp?screen=<%=Request.QueryString("screen"
%>&id=<%=Request.QueryString("id"%>&OptionID=<%=Request.QueryString("OptionID"%>"><TABLE width=700>
<tr>
<td width=175><b>Option Type</b></td>
<td width=175><b>Document ID</b></td>
<td width=175><b>Renewal Option</b></td>
<td width=175><b>Next Option Month</b></td>
</tr>
<tr>
<td><select id="SelOptType" name="SelOptType">
<%
while not rsTest.EOF
if OptionType = rsTest.Fields("optn_ty_cd"
thenResponse.Write "<option selected>" & rsTest.Fields("optn_ty_cd"
& "</option>"else
Response.Write "<option>" & rsTest.Fields("optn_ty_cd"
& "</option>"end if
rsTest.MoveNext
wend
%>
</select></td>
<td><input type="text" name="DocID" value="<%=DocID%>"></td>
<td><input maxlength=255 name="RenewalOption" value="<%=RenewalOption%>"></td>
<td><input type="text" name="MonthNextOption" value="<%=MonthNextOption%>"></td>
</tr>
<tr></tr><tr></tr><tr></tr>
Thanks!
Insanity is merely a state of mind while crazy people have a mind of their own.
- Thread starter
- #5
Thanks, figured out the last piece of the problem. The DropDown function parameter should read like this:
Public Function DropDown(Choice As Choice) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Didn't realise that Enum creates a new data type, but that fixed the issue. Thanks again for all of your help! Insanity is merely a state of mind while crazy people have a mind of their own.
Public Function DropDown(Choice As Choice) As ADODB.Recordset
Dim strSQL
Select Case Choice
Case 1
strSQL = "SELECT optn_ty_cd, optn_ty_desc FROM T_DOC_OPTN_TY"
Case 2
strSQL = "SELECT oblig_ty_cd, oblig_ty_desc FROM T_OBLIG_TY"
Case Else
strSQL = "Not a valid screen"
End Select
Set DropDown = GetData(strSQL)
End Function
Didn't realise that Enum creates a new data type, but that fixed the issue. Thanks again for all of your help! Insanity is merely a state of mind while crazy people have a mind of their own.
- Thread starter
- #7
Well, actually, I have another issue/question now. ;-) I now get the list of variable options in InterDev when I call the DropDown function, but when I enter in the one that I want to use, no recordset is returned. I determined what variable is being passed in the parameter, and it is a zero each time. It seems like it is ignoring the parameter and simply entering an empty string/zero each time. Any idea on why this would be occurring? Perhaps I'm missing something (well, ok, very likely I'm missing something), but not sure what... still researching... Insanity is merely a state of mind while crazy people have a mind of their own.
Hey Chopstik,
Everything looks ok.. however, I cannot really test it since I don't have VB installed on this machine.. Your best bet is to use test out the CLASS by creating a small VB program with it.. make sure you don't declare the actuall DLL, but instead use the CLASS so you can debug it.
Cheers,
G.
Everything looks ok.. however, I cannot really test it since I don't have VB installed on this machine.. Your best bet is to use test out the CLASS by creating a small VB program with it.. make sure you don't declare the actuall DLL, but instead use the CLASS so you can debug it.
Cheers,
G.
- Thread starter
- #9
Yep, am working on that now... If I can't find an answer shortly, I'm going to put it aside for now and come back to it later. If I find one, I'll let you know. Thanks again for your help! Insanity is merely a state of mind while crazy people have a mind of their own.
Insanity is merely a state of mind while crazy people have a mind of their own.-
1
- #10
The reason you get no recordset is InterDev although reading the DLL headers to offer up the intellisense while developing does not actually know what the option Values are as integers.
Adding the DLL as a reference to the ASP solution should sort that out, passing the integer value 1 I assume returns the correct result?
Adding the DLL as a reference to the ASP solution should sort that out, passing the integer value 1 I assume returns the correct result?
- Thread starter
- #11
Simpleton,
Passing the integer value 1 does return the correct result. So I made the change you suggested by adding the DLL as a reference in the ASP application and now it works! Perfect, and thank you VERY much!
Insanity is merely a state of mind while crazy people have a mind of their own.
Passing the integer value 1 does return the correct result. So I made the change you suggested by adding the DLL as a reference in the ASP application and now it works! Perfect, and thank you VERY much!
Insanity is merely a state of mind while crazy people have a mind of their own.
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question