help to retreive values from the component

Results 1 to 2 of 2

Thread: help to retreive values from the component

  1. #1
    Join Date
    Dec 1969

    Default help to retreive values from the component

    I have a written this as a VB component doc_proj.dll.I am passing the results as a parameter.<BR><BR>Sub new_doc_lists(ByVal strUsername As String, ByRef strerror As Variant, ByVal newly_updated_doc As Variant, ByVal doc As Variant, _<BR> ByVal doc_status As Variant, ByVal doc_status_count As Variant)<BR><BR> Dim conn As ADODB.Connection<BR> Dim rs As ADODB.Recordset<BR> Dim rs1 As ADODB.Recordset<BR> Dim rs2 As ADODB.Recordset<BR> Dim rs3 As ADODB.Recordset<BR> <BR> On Error GoTo ErrorHandler<BR> <BR> Set conn = New ADODB.Connection<BR> Set rs = New ADODB.Recordset<BR> Set rs1 = New ADODB.Recordset<BR> Set rs2 = New ADODB.Recordset<BR> Set rs3 = New ADODB.Recordset<BR> <BR> conn.Open "ODBC;Database=test;UID=sa;PWD=;DSN=reb"<BR> SQL = "select * from new_updated_doc"<BR> rs.Open SQL, conn &#039;, adOpenDynamic, adLockOptimistic<BR> SQL1 = "select * from doc"<BR> rs1.Open SQL1, conn<BR> sql2 = "select * from user_doc_status where username=""" & strUsername & """"<BR> rs2.Open sql2, conn<BR> sql3 = "select count(*) from user_doc_status where username=""" & strUsername & """and flag = ""F"""<BR> rs3.Open sql3, conn<BR> newly_updated_doc = rs<BR> doc = rs1<BR> doc_status = rs2<BR> doc_status_count = rs3<BR> <BR> <BR>exit_handler:<BR> Set conn = Nothing<BR> Set rs = Nothing<BR> Set rs1 = Nothing<BR> Set rs2 = Nothing<BR> Set rs3 = Nothing<BR> Exit Sub<BR> <BR>ErrorHandler:<BR> strerror = Err.Description & "( " & Err.Number & " - " & Err.Source & " ) "<BR> Resume exit_handler<BR>End Sub<BR><BR>My asp script follows:<BR><BR>&#060;%<BR>username = Request.Cookies("txtName")<BR>set cn = server.createobject("doc_proj.doc_cls")<BR>rs = cn.new_doc_lists(Username,strerror,newly_updated_d oc,doc,doc_status,doc_status_count)<BR><BR>%&#062; <BR><BR>how can i get the values of newly_updated_doc,doc,doc_status,doc_status_count and use them.<BR>for eg., newly_updated_doc can have 3 records in it.<BR><BR><BR>thx in advance<BR>white<BR><BR>

  2. #2
    Join Date
    Dec 1969

    Default RE: please do not crosspost...

    I thought I answered this question in another forum...

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts