VBA & SQL 如何 select 基於 ZBF57C906FA7D48566D07372E 范圍的特定值

Question

我是 vba (excel) 和 oracle 數據庫的新手。 我試圖尋找一些信息，但我找不到任何對我有用的東西。

我想編寫一個查詢，它只返回包含特定值的行。 我的查詢如下所示： SQLStr = SQLStr = "SELECT NGKHFHCD, NGKHFNAM, NGKHGNKA, NGKHSZIC, NGKHMTRC, NGKHSNZC, NGKHGCHC, NGKHKKKS, NGKHKTKS FROM NGKH order by NGKHFHCD"

但我想要這樣的東西SQLStr = "SELECT NGKHFHCD, NGKHFNAM, NGKHGNKA, NGKHSZIC, NGKHMTRC, NGKHSNZC, NGKHGCHC, NGKHKKKS, NGKHKTKS FROM NGKH WHERE NGKHFHCD = SHeet1(A2:A)"

我只是不想從 oracle 中取出整個表，因為這會花費很多時間，所以我想也許我只能從該表中返回特定的行。 此外，如果表中沒有搜索到的值，我想以某種方式標記它。

有什么辦法解決嗎？

我的代碼：

Sub OracleLocalConnect()
  Dim RecordSet As New ADODB.RecordSet
  Dim con As New ADODB.Connection
  Dim ExcelRange As Range
  Dim SQLStr As String
  
  Dim ws As Worksheet

  con.ConnectionString = "Provider=OraOLEDB.Oracle.1;User ID=***;Password=****;Data Source=*****;"
  
  con.Open
  Set RecordSet = CreateObject("ADODB.Recordset")

  SQLStr = "SELECT GNKHFHCD, GNKHFNAM, GNKHGNKA, GNKHSZIC, GNKHMTRC,  GNKHSNZC, GNKHGCHC, GNKHKKKS, GNKHKTKS  FROM GNKH ORDER BY GNKHFHCD"  


  RecordSet.Open SQLStr, con, adOpenStatic, adLockReadOnly
  
  Set ws = ActiveWorkbook.Sheets("Prices")
  Set ExcelRange = ws.Range("A2")
  ExcelRange.CopyFromRecordset RecordSet
  
  RecordSet.Close
  con.Close
Exit Sub
Exit Sub

End Sub

Answer 1

未經測試，但這將是接近的：

Sub OracleLocalConnect()
  
    Dim RecordSet As New ADODB.RecordSet
    Dim con As New ADODB.Connection
    Dim ExcelRange As Range
    Dim SQLStr As String
    
    Dim ws As Worksheet
    
    con.ConnectionString = "Provider=OraOLEDB.Oracle.1;User ID=***;Password=****;Data Source=*****;"
    
    con.Open
    Set RecordSet = CreateObject("ADODB.Recordset")
    
    SQLStr = " SELECT GNKHFHCD, GNKHFNAM, GNKHGNKA, GNKHSZIC, GNKHMTRC, " & _
            " GNKHSNZC, GNKHGCHC, GNKHKKKS, GNKHKTKS  FROM GNKH " & _
            " where " & InClause(Sheet1.Range("A2:A1000"), "GNKHFHCD", True) & _
            " ORDER BY GNKHFHCD "
    
    RecordSet.Open SQLStr, con, adOpenStatic, adLockReadOnly
    
    Set ws = ActiveWorkbook.Sheets("Prices")
    Set ExcelRange = ws.Range("A2")
    ExcelRange.CopyFromRecordset RecordSet
    
    RecordSet.Close
    con.Close

End Sub

'Create an in clause for an Oracle query
Function InClause(rng As Range, colName As String, Optional quoted As Boolean = False)
'https://stackoverflow.com/questions/400255/how-to-put-more-than-1000-values-into-an-oracle-in-clause
    Dim s As String, c As Range, qt As String, sep As String
    qt = IIf(quoted, "'", "")
    sep = ""
    s = "(999, " & colName & ") in ("
    For Each c In rng.Cells
        If Len(c.Value) > 0 Then
            s = s & sep & vbLf & "(999," & qt & c.Value & qt & ")"
            sep = "," 'add comma after first pass
        End If
    Next c
    InClause = s & ")"
End Function