Brug af vildcard i SQL statement mellem Excel og Access
Jeg kan ikke få følgende statement til at fungere i Excel 2007:SELECT P3.EQU_ID_OPT, P1.EQU_ID, P4.EQU_ID, P2.EQU_ID, P.EQU_ID, P6.EQU_ID, P7.EQU_ID, P5.EQU_ID, P8.EQU_ID, P10.EQU_ID, P11.EQU_ID, P9.EQU_ID, P13.EQU_ID, P14.EQU_ID, P12.EQU_ID
FROM `C:\Documents and Settings\zst\My Documents\BAM\Config_BAM`.`Hent BAM`
WHERE P3.EQU_ID_OPT Like 'XX.*'
hvorimod dette virker:
SELECT P3.EQU_ID_OPT, P1.EQU_ID, P4.EQU_ID, P2.EQU_ID, P.EQU_ID, P6.EQU_ID, P7.EQU_ID, P5.EQU_ID, P8.EQU_ID, P10.EQU_ID, P11.EQU_ID, P9.EQU_ID, P13.EQU_ID, P14.EQU_ID, P12.EQU_ID
FROM `C:\Documents and Settings\zst\My Documents\BAM\Config_BAM`.`Hent BAM`
WHERE P3.EQU_ID_OPT Like 'XX.Boligsikring.Prod'
Koden ser således ud:
With ThisWorkbook.Worksheets(arknavn).QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access-database;DBQ=C:\Documents and Settings\zst\My Documents\BAM\Config_BAM.mdb;Mode=Share Deny None;DefaultDir=C:\Documents and Settings\zst\My Documents\BAM\Config_BAM.mdb" _
), Array("op;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A1"))
.CommandText = "SELECT P3.EQU_ID_OPT, P1.EQU_ID, P4.EQU_ID, P2.EQU_ID, " & _
"P.EQU_ID, P6.EQU_ID, P7.EQU_ID, P5.EQU_ID, P8.EQU_ID, P10.EQU_ID, " & _
"P11.EQU_ID, P9.EQU_ID, P13.EQU_ID, P14.EQU_ID, P12.EQU_ID" _
& Chr(13) & "" & Chr(10) & "FROM `C:\Documents and Settings\zst\My Documents\BAM\Config_BAM`.`Hent BAM`" _
& Chr(13) & "" & Chr(10) & "WHERE P3.EQU_ID_OPT Like '" & CI & "'"
.Name = "Forespørgsel fra MS Access-database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
Debug.Print .CommandText
.Refresh BackgroundQuery:=False
End With
Håber nogen har et godt input til hvor fejlen ligger.
