Vraag : Passthrough de criteria blinken binnen 2003 van orakel 10g uit

Guys
I heeft manuscript uitblinken VB dat verbindt met orakel 10g dan waarden van een vraag terugkeert. momenteel I zou hardcode de sql vraag in het manuscript maar het open willen maken zodat de gebruikers een waarde op de spreadsheet kunnen ingaan en de sql vraag dat bewuste instead.

I am zal gebruiken dat u dit kunt doen gebruikend de tovenaar van het de invoergegevensbestand en parameters tot stand brengen maar een methode zou willen gebruiken gelijkend op wat ik nu heb.

Any ideas

Regards
" codeBody " 
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 ()

Schemerige cn als ADODB.Connection, rs als ADODB.Recordset, intColIndex als Geheel
Vastgestelde TargetRange = Bladen („BalanceAnalysis“). Cellen (1, 1)

'Schemerige bron als Koord
Schemerige gebruiker als Koord
Schemerig wachtwoord als Koord
Schemerig Bedrijf als Koord
Schemerige rg als Waaier
    Bron = Login.TextBox1.Value
    gebruiker = Login.TextBox2.Value
    wachtwoord = Login.TextBox3.Value
    Bedrijf = Login.TextBox4.Value
    
    'Knevel de aantekenvellen
    Application.DisplayAlerts = Waar
    Application.ScreenUpdating = Vals
    Application.Calculation = xlCalculationManual
    Bladen („BalanceAnalysis“). Zichtbaar = Waar
    Bladen („BalanceAnalysis“). Selecteer
    Cells.Select
    Selection.ClearContents
    
    'open het gegevensbestand
Plaats cn = Nieuwe ADODB.Connection
    cn. Open „Provider=OraOLEDB.Oracle; “ & _
           „Gegevens Source=“ & Bron &“; „& _
           „Gebruiker - identiteitskaart =“ & gebruiker &“; „& _
           „Password=“ & wachtwoord & ""
Reeks rs = Nieuwe ADODB.Recordset
    Met rs
       
    sSql = „selecteer verschillend bedrijf, accounting_year, rekening, account_desc,“ & _
    „som (amount_balance) over (VERDELING DOOR rekeningsorde door grenzeloze vooraf te gaan van de rekeningswaaier) zoals cumulatief“ & _
    „van accounting_balance_auth“ & _
    „waar bedrijf = „M02““ & _
    „en accounting_year = „2010““ & _
    „en accounting_period <= „2““ & _
    „orde door 3“
    
    rs. Open sSql, adOpenStatic cn, adLockReadOnly, adCmdText
        
Voor intColIndex = 0 aan rs. Fields.Count - 1 de 'gebiedsnamen
            TargetRange.Offset (0, intColIndex). Waarde = rs. Gebieden (intColIndex). Naam
  Daarna
    TargetRange.Offset (1, 0) .CopyFromRecordset rs de 'recordsetgegevens

  Eind met
    rs. Sluit
    Plaats rs = niets
    cn. Sluit
    Plaats cn = niets
     
    'Knevel de aantekenvellen
    ActiveWindow.SelectedSheets.Visible = Vals
    Bladen („p&l“). Selecteer
    Waaier („A3“). Selecteer
    'Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = Vals
    Application.ScreenUpdating = Waar
  
Sub van het eind

Antwoord : Passthrough de criteria blinken binnen 2003 van orakel 10g uit

Dit zal een variabele van het Aantekenvel (verklaar het als Aantekenvel op bovenkant), met een naam „Lezer“ waar in cellen A1 aan A3 uw gegevens door de gebruiker wordt neergeschreven toevoegen en gebruikt dan de waarden van de cellen in het koord.

    'Verklaar ReadingSheet
    De reeks leest = Aantekenvellen („Lezer“)
    sSql = „selecteer verschillend bedrijf, accounting_year, rekening, account_desc,“ & _
    „som (amount_balance) over (VERDELING DOOR rekeningsorde door grenzeloze vooraf te gaan van de rekeningswaaier) zoals cumulatief“ & _
    „van accounting_balance_auth“ & _
    „waar bedrijf = „“ & ReadS.Range („A1“) &““ „& _
    „en accounting_year = „“ & ReadS.Range („A2“) &““ „& _
    „en accounting_period <>    „orde door 3“
Andere oplossingen  
 
programming4us programming4us