sql >> Databasteknik >  >> RDS >> Mysql

Använda Excel-kolumndata för att skapa SQL-sats som frågar databasen

Byt ut intervallet vid behov, kredit till brettdj på anslutningen - Enkel VBA-arraykoppling fungerar inte

Sub test()

    Dim strQuery As String
    Dim strVals As String

    Dim rngTarget As Range
    Set rntTarget = Range("A1:A7")

    Dim varArr
    Dim lngRow As Long
    Dim myArray()
    varArr = rntTarget.Value2

    ReDim myArray(1 To UBound(varArr, 1))

    For lngRow = 1 To UBound(varArr, 1)
        myArray(lngRow) = varArr(lngRow, 1)
    Next

    strVals = "('" & Join$(myArray, "','") & "') "

    strQuery = "SELECT * FROM users WHERE own in " _
        & strVals & "or rent in " & strVals


End Sub



  1. hur frågar jag min databas och får den att matas ut på ett Google-ark så att någon kan redigera denna data och sedan få den återspeglad i MySQL?

  2. Hur man sammanfogar två orelaterade tabeller i sql

  3. Multi-DC PostgreSQL:Konfigurera en standby-nod på en annan geografisk plats över en VPN

  4. SQLiteDatabase android IllegalStateException