Export into xls from oracle web toolkit.

Question

select * from emp;
i want export the above query into xls from oracle web toolkit.
can anybody help me please

Answer 1

hi
instead of exporting to excel why not import into excel using InProcServer
here is a code snippet that i am using to generate reports for my bank
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim sql1, sql2, sql3
Dim SQLSTMT
Dim myarray()
SQLSTMT="select * from emp"
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("report", "report/report", 0&)   ' (hoststring,user/password,0&)
Set OraDynaset = OraDatabase.CreateDynaset(SQLSTMT, 0&)
If OraDynaset.RecordCount > 0 Then
ReDim myarray(0 To OraDynaset.RecordCount - 1)
Else
MsgBox "Zero Records Found", vbOKCancel, "Error"
Unload Me
End If
Debug.Print UBound(myarray, 1)
'***********************populating myarray********
If OraDynaset.RecordCount > 0 Then
        OraDynaset.MoveFirst
        'For x = 0 To OraDynaset.Fields.Count - 1
         '   Cells(1, x + 1) = OraDynaset.Fields(x).Name
            'Cells(1, x + 1).Format = Bold
        'Next
For n = rng1.Columns.Count To (UBound(heading, 1) + 1) Step -1
rng1.Cells(1, n).Select
ActiveCell.EntireColumn.Delete
Next
        For m = 1 To rng1.Columns.Count
            rng1.Cells(1, m).Select
            rng1.Cells(1, m).ClearContents
        Next
            For a = LBound(heading, 1) To UBound(heading, 1)
            Cells(1, a).Select
            Cells(1, a) = heading(a)
                                With Selection
                                    .HorizontalAlignment = xlLeft
                                    .VerticalAlignment = xlCenter
                                    .WrapText = True
                                    .Orientation = 0
                                    .AddIndent = False
                                    .IndentLevel = 0
                                    .ShrinkToFit = False
                                    .ReadingOrder = xlContext
                                    .MergeCells = False
                                End With
                                With Selection.Borders(xlEdgeRight)
                                    .LineStyle = xlContinuous
                                    .ThemeColor = 1
                                    .TintAndShade = 0
                                    .Weight = xlThick
                                End With
                                With Selection.Font
                                    .Name = "Arial Rounded MT Bold"
                                    .FontStyle = "Regular"
                                    .Size = 11
                                    .Strikethrough = False
                                    .Superscript = False
                                    .Subscript = False
                                    .OutlineFont = False
                                    .Shadow = False
                                    .Underline = xlUnderlineStyleNone
                                    .ThemeColor = xlThemeColorDark1
                                    .TintAndShade = 0
                                    .ThemeFont = xlThemeFontNone
                                End With
                                With Selection.Interior
                                    .Pattern = xlSolid
                                    .PatternColorIndex = xlAutomatic
                                    .ThemeColor = xlThemeColorLight1
                                    .TintAndShade = 0
                                    .PatternTintAndShade = 0
                                End With
                            Next a
        For y = 0 To OraDynaset.RecordCount - 1
            For x = 0 To OraDynaset.Fields.Count - 1
                m_split = Split(OraDynaset.Fields(x).Value, "|", -1, vbTextCompare)
                For m = LBound(m_split, 1) To UBound(m_split, 1)
                    Cells(y + 2, x + m + 1) = m_split(m)
                Next m
                'Cells(y + 2, x + 1) = OraDynaset.Fields(x).Value
            Next
            OraDynaset.MoveNext
        Next
    End Ifsee if this serves your purpose
hemu