ASP and COM

Originally posted by : notimportant (jhunt@alagreen.com) 'this is used to call a single row 'from a SQL7 - 2000 table 'I call this <tablename.load> 'this table is named criteria 'mvarcriteriaid is the unique id for the row 'imvarevalid is the key '_______________ Private mvarcriteriaid As Integer 'local copy Private mvarevalid As Integer 'local copy Private mvarjob_title As String 'local copy Private mvarjob_summary As String 'local copy Public Property Let criteriaid(ByVal vData As Integer) 'used when assigning a value to the property, on the left side of an assignment. 'Syntax: X.criteriaid = 5 mvarcriteriaid = vData End Property Public Property Get criteriaid() As Integer 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.criteriaid criteriaid = mvarcriteriaid End Property Public Property Let evalid(ByVal vData As Integer) 'used when assigning a value to the property, on the left side of an assignment. 'Syntax: X.evalid = 5 mvarevalid = vData End Property Public Property Get evalid() As Integer 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.evalid evalid = mvarevalid End Property Public Property Let job_title(ByVal vData As String) 'used when assigning a value to the property, on the left side of an assignment. 'Syntax: X.job_title = 5 mvarjob_title = vData End Property Public Property Get job_title() As String 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.job_title job_title = mvarjob_title End Property Public Property Let job_summary(ByVal vData As String) 'used when assigning a value to the property, on the left side of an assignment. 'Syntax: X.job_summary = 5 mvarjob_summary = vData End Property Public Property Get job_summary() As String 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.job_summary job_summary = mvarjob_summary End Property '_________________________________ 'I call this <tablename.actions> 'both of there live in the same .dll Function Selectcriteria(intEvalId As Integer) As Object Dim objCmd As New ADODB.Command Dim objRs As New ADODB.Recordset Dim objcriteria As New load ' Open a connection Dim objConn As New ADODB.Connection With objConn .Properties("Data Source") = "odbc source" .Properties("User Id") = "user id" .Properties("Password") = "password" .Open End With 'I am using a stored procedire but you could use a select statment With objCmd .ActiveConnection = objConn .CommandType = adCmdStoredProc .CommandText = "usp_SELECTcriteria" .Parameters("@intcriteriaid") = intEvalId End With Set objRs = objCmd.Execute If objRs.EOF Or objRs.BOF Then 'error code here..... Else With objcriteria .criteriaid = objRs("criteriaid").Value .evalid = objRs("evalid").Value .job_title = objRs("job_title").Value .job_summary = objRs("job_summary").Value End With End If Set Selectcriteria = objcriteria End Function '______________________________ 'ASP CALL dim objCriteriaFlds,objCriteria set objCriteriaFlds = createobject("criteria.load") set objCriteria = createobject("criteria.actions") set objCriteriaFlds = objCriteria.Selectcriteria(CInt(intUniqueRowId)) _________________ <HTML> <BODY> <input name="job_title" value="<%= objCriteriaFlds.job_title %>"></input> <input name="job_title" value="<%= objCriteriaFlds.job_summary %>"></input> </BODY> </HTML> Hope this helps Have fun!

Programming

Related Pages