SQL mit variablen Wert aus Zelle A2

Hallo zusammen,
ich lese folgenden SQL aus einer TXT-Datei aus:
SELECT A.PART_BGVG, A.VTNR_SVTNR, A.VTNR_SVTNRNAME,BA.AUSWZEIT,
SUM(CASE WHEN BB.PRODSL_STUFE3_ID = 2010650
THEN BA.BES_BTR
ELSE 0
END) AS Transport
FROM DWHFB.FAKT_BESTAND_AGT BA
INNER JOIN DWHFB.DIM_VTNR A
ON (BA.PART_BGVG = A.PART_BGVG)
AND (BA.VTNR_ID = A.VTNR_VTNR)
INNER JOIN DWHFB.DIM_PRODSL BB
ON (BA.PART_BGVG = BB.PART_BGVG)
AND (BA.PRODSL_ID = BB.PRODSL_STUFE0_ID)
WHERE BA.AUSWZEIT >= '01.01.2009'
AND A.VTNR_SVTNR = 1234567
GROUP BY A.PART_BGVG, A.VTNR_SVTNR, A.VTNR_SVTNRNAME,BA.AUSWZEIT
Die SVTNR möchte ich gern variabel gestalten und aus der Zelle A2 des Arbeitsblattes PARA auslesen. Die Zelle trägt den Bereichsnamen rP1.SVTNR. Ich möchte den "harten" Eintrag im SQL z.B. durch Range("rP1.SVTNR").value ersetzen. Bin bisher bei allen möglichen Varianten gescheitert. Wenn ich das aus der TXT-Datei einlese, setzt der Code nicht den Inhalt der Zelle.
Es handelt sich um eine Oracle-Abfrage.
Bin für jeden Hinweis dankbar.
Gruß Detlef

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
hier der Code zum Einlesen der TXT:

Sub ProcSqlCreate_AA()

    Dim strSQLString As String
    Dim strFivServer As String
    Dim strFormKopSP As Integer
    Dim intFormKopZE As Integer
    Dim verz As String

    On Error Resume Next
    
    strFivServer = Range("rP1.FIVServer").Value
    verz = ActiveWorkbook.Path
        
    Open verz & "\SqlCreate_AA.txt" For Input As #1
    strSQLString = Input(LOF(1), 1)
    Close #1
        
    '***Position des Datenimports aus Oracle 
    strFormKopSP = 2 '***aufsetzen Importspalte 
    intFormKopZE = 2 '***aufsetzen Importzeile 

'    procSQL_Beginn 
    Call procOracle(strSQLString, strFivServer, strFormKopSP, intFormKopZE)
'    procSQL_Ende 
        
End Sub

und hier der Code für die Einbindung von Oracle:

Option Explicit
Sub procOracle(strSQLString As String, strSERVER As String, strFormKopSP As Integer, intFormKopZE As Integer)
    Dim cn         As Connection
    Dim rs         As Recordset
    Dim conn       As String
    Dim SQLString  As String
    Dim xx         As Worksheet   ' das Ziel-Tabellenblatt in Excel 
    Dim i          As Long
    Dim J          As Long
    Dim anzZeilen  As Long

'    On Error GoTo fehler 

    Set xx = ActiveSheet  '***das Ziel-Tabellenblatt in Excel 
    
    '***Die datenbank öffnen 
    Set cn = New ADODB.Connection

    Open "C:\AZ_DATEN\OraclePassW.txt" For Input As #1
    conn = Input(LOF(1), 1)
    Close #1

    conn = conn & ";DRIVER={Microsoft ODBC for Oracle};SERVER=" & strSERVER + ";"
    
    With cn
        .ConnectionString = conn
        .Open
    End With
    
    '***Definieren was geholt werden soll 
    SQLString = strSQLString
    
    Set rs = New ADODB.Recordset
    rs.Open SQLString, cn, adOpenDynamic, adLockReadOnly
    
    '***Die Feldnamen der Datenbanktabelle in die definierte Zeile der Exceltabelle schreiben 
   
    For J = 0 To rs.Fields.Count - 1
        xx.Cells(intFormKopZE, J + strFormKopSP) = rs.Fields.Item(J).Name '***und auf definerte Spalte aufsetzen 
    Next
        
    '***Jetzt alle Sätze holen und in die Exceltabelle schreiben 
    i = intFormKopZE '***auf Zeile 2 beginnen 
    rs.MoveFirst
    Do While rs.EOF = False
        i = i + 1
        For J = 0 To rs.Fields.Count - 1
        If IsNull(rs.Fields.Item(J).Value) = False Then
           xx.Cells(i, J + strFormKopSP) = rs.Fields.Item(J).Value '***und auf die definierte Spalte aufsetzen 
        End If
        Next
        rs.MoveNext
    Loop
    
    rs.Close
    cn.Close

    '***optimale Spaltenbreite einstellen 
'        Cells.Select 
'        Selection.Columns.AutoFit 
        
    Set rs = Nothing
    Set cn = Nothing
    Set xx = Nothing
    
fehler:
    Exit Sub
    
End Sub

Gruß Detlef

Beliebteste Forumthreads (12 Monate)

SQL mit variablen Wert aus Zelle A2

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SQL mit variablen Wert aus Zelle A2

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread