ODBC query met waarde van sheet

[Muiter]

Hoe kan ik de waarde 2882048 vervangen door een waarde uit een andere cel?

    With ActiveWorkbook.Connections("database_is offertenummers").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array( _
        "SELECT * FROM `database_is`.`offertenummers` WHERE `offerte`=2882048")
        .CommandType = xlCmdSql
        .Connection = "ODBC;DSN=Database;"
        .RefreshOnFileOpen = True
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("database_is offertenummers")
        .Name = "database_is offertenummers"
        .Description = ""
    End With
    ActiveWorkbook.Connections("database_is offertenummers").Refresh
    With ActiveWorkbook.Connections("database_is ordernummers1").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array( _
        "SELECT * FROM `database_is`.`ordernummers` WHERE `offerte_id`=2882048")
        .CommandType = xlCmdSql
        .Connection = "ODBC;DSN=Database;"
        .RefreshOnFileOpen = True
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("database_is ordernummers1")
        .Name = "database_is ordernummers1"
        .Description = ""
    End With
    ActiveWorkbook.Connections("database_is ordernummers1").Refresh
    With ActiveWorkbook.Connections("database_is factuurnummers11").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array( _
        "SELECT * FROM `database_is`.`factuurnummers` WHERE `offerte_id`=2882048")
        .CommandType = xlCmdSql
        .Connection = "ODBC;DSN=Database;"
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("database_is factuurnummers11")
        .Name = "database_is factuurnummers11"
        .Description = ""
    End With
    ActiveWorkbook.Connections("database_is factuurnummers11").Refresh

 

[Wigi]

.CommandText = Array( _
        "SELECT * FROM `database_is`.`offertenummers` WHERE `offerte`=" & [B]verwijzingnaarhetbestand.verwijzingnaarhetblad.verwijzingnaardecel.Value[/B])

bvb.

.CommandText = Array( _
        "SELECT * FROM `database_is`.`offertenummers` WHERE `offerte`=" & [B]ThisWorkbook.Sheets("Blad1").Range(C2").Value[/B])

Wigi

 

[Muiter]

Wigi bedankt voor je response. Ik ben net ook achter deze code.

"SELECT * FROM `database_is`.`offertenummers` WHERE `offerte`= " & "'" & Range("K2") & "'")

 

[Wigi]

Dit is inderdaad korter, maar risicovoller. Als er toevallig een ander bestand of tabblad actief zou zijn, kan K2 wel eens iets anders zijn dan jij in gedachten had.

Wigi