Frage : Durchgangkriterien übertreffen innen 2003 vom Orakel 10g

Guys
I haben einen Index übertreffen VB, der anschließt, an Orakel 10g dann Werte von einer Frage zurückbringt. zurzeit ich hardcode die sql-Frage im Index aber möchte ihn bilden mich öffne, damit Benutzer einen Wert auf dem Verteilungsbogen eintragen können und die sql-Frage dass instead.

I morgens bewusst verwendet, dass Sie dies using den Importdatenbank-Zauberer tun und Parameter verursachen können, aber eine Methode anwenden möchte, die ähnlich ist, was ich jetzt habe.

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:
6:
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 ()

Schwache KN als ADODB.Connection, rs als ADODB.Recordset, intColIndex als ganze Zahl
TargetRange = Blätter („BalanceAnalysis“) einstellen. Zellen (1, 1)

'Schwache Quelle als Schnur
Schwacher Benutzer als Schnur
Schwaches Kennwort als Schnur
Dim Company als Schnur
Schwaches rg als Strecke
    Quelle = Login.TextBox1.Value
    Benutzer = Login.TextBox2.Value
    Kennwort = Login.TextBox3.Value
    Firma = Login.TextBox4.Value
    
    'Die Arbeitsblätter umschalten
    Application.DisplayAlerts = richten aus
    Application.ScreenUpdating = falsch
    Application.Calculation = xlCalculationManual
    Blätter („BalanceAnalysis“). Sichtbar = ausrichten
    Blätter („BalanceAnalysis“). Auserwählt
    Cells.Select
    Selection.ClearContents
    
    'die Datenbank öffnen
Einstellen KN = neues ADODB.Connection
    KN. „Provider=OraOLEDB.Oracle öffnen; “ u. _
           „Datenquelle =“ u. Quelle u.“; „u. _
           „Benutzernummer =“ u. Benutzer u.“; „u. _
           „Password=“ u. Kennwort u. ""
Rs einstellen = neues ADODB.Recordset
    Mit rs
       
    sSql = „auserwählte eindeutige Firma, accounting_year, Konto, account_desc,“ u. _
    „Summe (amount_balance) vorbei (FACH DURCH Kontoauftrag durch das unbegrenzte Vorausgehen der Kontostrecke) wie kumulativ“ u. _
    „vom accounting_balance_auth“ u. vom _
    „, wo Firma = „M02““ u. _
    „und accounting_year = „2010““ u. _
    „und accounting_period <= „2““ u. _
    „Auftrag durch 3“
    
    rs. sSql, KN öffnen, adOpenStatic adLockReadOnly adCmdText
        
Für intColIndex = 0 zu den rs. Fields.Count - 1 'die Feldnamen
            TargetRange.Offset (0, intColIndex). Wert = rs. Felder (intColIndex). Name
  Zunächst
    TargetRange.Offset (1, 0) .CopyFromRecordset rs 'die recordset Daten

  Ende mit
    rs. Abschluss
    Rs einstellen = nichts
    KN. Schließen
    Einstellen KN = nichts
     
    'Die Arbeitsblätter umschalten
    ActiveWindow.SelectedSheets.Visible = falsch
    Blätter („p&l“). Auserwählt
    Strecke („A3“). Auserwählt
    'Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = falsch
    Application.ScreenUpdating = richten aus
  
Enden-Unterseeboot

Antwort : Durchgangkriterien übertreffen innen 2003 vom Orakel 10g

Dieses hinzufügt eine Arbeitsblattvariable (sie als Arbeitsblatt auf die Oberseite erklären), mit einem Namens„Leser“, wo in den Zellen A1 zu A3 Ihre Daten vom Benutzer notiert und dann die Werte der Zellen in der Schnur verwenden n.

    'ReadingSheet erklären
    Satz las = Arbeitsblätter („Leser“)
    sSql = „auserwählte eindeutige Firma, accounting_year, Konto, account_desc,“ u. _
    „Summe (amount_balance) vorbei (FACH DURCH Kontoauftrag durch das unbegrenzte Vorausgehen der Kontostrecke) wie kumulativ“ u. _
    „vom accounting_balance_auth“ u. vom _
    „, wo Firma = „“ u. ReadS.Range („A1“) u.““ „u. _
    „und accounting_year = „“ u. ReadS.Range („A2“) u.““ „u. _
    „und accounting_period <>    „Auftrag durch 3“
Weitere Lösungen  
 
programming4us programming4us