GetString equivalent

From: helixpoint <dfetrow410_at_hotmail.com>
Date: 11 Jun 2004 08:31:56 -0700
Message-ID: <3abd1e01.0406110731.7e8263fc_at_posting.google.com>

Is there an equivalent. I am using the ODP adapter String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)

            Dim sScript As New System.Text.StringBuilder
            rpttype = selTable.SelectedItem.Text    'Report Type as it
appears in TRACKS (ex: DTTS, OCEAN_CARGO, RAIL)
            Dim conn As OracleConnection = New
OracleConnection(Context.Application("connectionString"))
            Dim cmd1 As OracleCommand = New OracleCommand("SELECT

ID,RPTNAME,OPTIONS,DESCRIPTION,MAPID FROM TRACK.V_RPTTRACK WHERE RPTTYPE = '" & rpttype & "'", conn)

            conn.Open()
            Dim dr As OracleDataReader = cmd1.ExecuteReader()
            Dim aaa As Integer = 0
            Do While dr.Read
                aaa = aaa + 1
                ' Dim sScript As String
                sScript.Append("<script language=""JavaScript"">")

                sScript.Append("function LoadRoutines()")
                sScript.Append("{")
                sScript.Append("GetParameters(100);")
                sScript.Append("}")

                sScript.Append("function GetParameters(maxTime)")
                sScript.Append("{")
                sScript.Append("var timerID;")
                sScript.Append("Try")
                sScript.Append("{")
                sScript.Append("parent.frames(""control"").ReportHolder.value
= '" & dr.GetString(2, , "":"", ""|"") & ""'"")
                sScript.Append("Parent.frames(""control"").CreateOptArr()")
                sScript.Append("var(Str() =
Parent.frames(""control"").ReportHolder.value)")
                sScript.Append("var(arr = Str.split(""|""))")
                sScript.Append("Parent.frames(""control"").ClearSelectCntrl(""selReport"")")
                sScript.Append("Parent.frames(""control"").LoadSelectCntrl(""selReport"",
arr)")
                sScript.Append("

//parent.frames(""control"").rptDescrip.innerText = parent.frames(""control"").CreateDescArr(parent.frames(""control"").selReport.selectedIndex)

   ")

                sScript.Append("}")
                sScript.Append("catch (everything)")
                sScript.Append("{")
                sScript.Append("If (Number(maxTime) > 0) Then")
                sScript.Append("{")

                sScript.Append("timerID =
window.setTimeout('GetParameters('+ (Number(maxTime)-1) +')', 100); ")
                sScript.Append("}")
                sScript.Append("}")
                sScript.Append("}")

                sScript.Append("</script>")
            Loop
            RegisterStartupScript("ForceDefaultToScript",

sScript.ToString) Received on Fri Jun 11 2004 - 17:31:56 CEST