Question : Passthrough criteria in excel 2003 from oracle 10g

Guys
I have an excel VB script that connects to oracle 10g then returns values from a query. at present I hardcode the sql query in the script but would like to make it open so that users can enter a value on the spreadsheet and the sql query will use that instead.

I am aware that you can do this using the import database wizard and create parameters but would like to use a method similar to what I have now.

Any ideas

Regards

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

           
           
          Sub Balance_Analysis()

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
Set TargetRange = Sheets("BalanceAnalysis").Cells(1, 1)

'Dim source As String
Dim user As String
Dim password As String
Dim Company As String
Dim rg As Range
    Source = Login.TextBox1.Value
    user = Login.TextBox2.Value
    password = Login.TextBox3.Value
    Company = Login.TextBox4.Value
    
    'Toggle the worksheets
    Application.DisplayAlerts = True
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("BalanceAnalysis").Visible = True
    Sheets("BalanceAnalysis").Select
    Cells.Select
    Selection.ClearContents
    
    ' open the database
Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle;" & _
           "Data Source=" & Source & ";" & _
           "User Id=" & user & ";" & _
           "Password=" & password & ""
Set rs = New ADODB.Recordset
    With rs
       
    sSql = "select distinct company, accounting_year, account, account_desc, " & _
    "sum(amount_balance) over ( PARTITION BY account order by account range unbounded preceding) as cumulative " & _
    "from accounting_balance_auth " & _
    "where company = 'M02' " & _
    "and accounting_year = '2010' " & _
    "and accounting_period <= '2' " & _
    "order by 3"
    
    rs.Open sSql, cn, adOpenStatic, adLockReadOnly, adCmdText
        
For intColIndex = 0 To rs.Fields.Count - 1 ' the field names
            TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
  Next
    TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data

  End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
     
    'Toggle the worksheets
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("p&l").Select
    Range("A3").Select
    'Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
  
End Sub

           
         

Answer : Passthrough criteria in excel 2003 from oracle 10g

This will add a Worksheet variable (Declare it as Worksheet on top), with a name "Reader" where in cells A1 to A3 your data are written down by the user and then uses the values of the cells in the string.

'Declare ReadingSheet
Set ReadS = Worksheets("Reader")
sSql = "select distinct company, accounting_year, account, account_desc, " & _
"sum(amount_balance) over ( PARTITION BY account order by account range unbounded preceding) as cumulative " & _
"from accounting_balance_auth " & _
"where company = '" & ReadS.Range("A1") & "' " & _
"and accounting_year = '" & ReadS.Range("A2") & "' " & _
"and accounting_period <= '" & ReadS.Range("A3") & "' " & _
"order by 3"