Comments on: Multiple Parameters in External Data Queries

By: Dick Kusleika

Dick Kusleika — Fri, 01 Feb 2008 15:48:00 +0000

Get well, DMU.

By: DM Unseen

DM Unseen — Fri, 01 Feb 2008 14:31:00 +0000

All,

I've been Ill this week, so it will be next week I'll send something to Dick.

By: Dick Kusleika

Dick Kusleika — Tue, 29 Jan 2008 03:31:00 +0000

DMU: You can mail it to me if you want me to host a file.

By: sam

sam — Mon, 28 Jan 2008 14:42:00 +0000

DM Unseen,
Thanks in advance for your time....if it is not possible to post it here could you kindly e-mail it to sgbhide At gmail dot com

sam

By: DM Unseen

DM Unseen — Sun, 27 Jan 2008 16:19:00 +0000

First, this example is for SQL Server (and your error indicates Access), I have not studied to create this for Access, Although it is certainly possible.

I'll try to get something, but this will be on monday. I'm not sure how to upload it here btw.

By: sam

sam — Sun, 27 Jan 2008 11:36:00 +0000

DM Unseen,
I just tried your method...it gave me an error "Too few parameters expected 1? .... could you kindly post a file containing the query....

sam

By: DM Unseen

DM Unseen — Thu, 24 Jan 2008 12:11:00 +0000

Oops! As the parameter for the query you should of course select B10

By: DM Unseen

DM Unseen — Thu, 24 Jan 2008 12:08:00 +0000

There is a trick for doing a SQL query for a fixed range of products/customers from inside Excel without programming:

I will show this for a sql server query. I will omit the standard steps from this post, but i will show the specifics.

Step 1:

Use a fixed range/list to put all customer id's. For e.g. A1-A10:
CUST1
CUST2
CUST3
....
CUST10

Step2

Fill the formula in B2 down for all the customers (till A10)

Create a Query (maybe on another sheet):

SELECT * FROM CUSTOMERS WHERE ? LIKE '%|' + CUSTOMER_ID + '|%'

Refresh the query and select as the parameter the cell A10

You should only see a list of customers that you entered in A1-A10.

Note the following

For SQL server the limit is 8000 characters long, which is can contain quite a number of customer id's, but depending on the length of the customer id not hundreds or more (check the length of the text in A10).

This trick also works even if not all customer ids are filled.

Also, this is not a super fast query.

Several variations on this theme can be used with different database platforms and range of parameters.

By: Hamilton

Hamilton — Mon, 21 Jan 2008 01:05:00 +0000

Thanks for the concise info on how to get parameters from cells into table queries of external data in Excel. I lucked out, your post came up first on Google!

By: sam

sam — Sat, 19 Jan 2008 14:52:00 +0000

Dick, Brett..
Thanks for those suggestions.

I just modified the code...changed WHERE/OR to WHERE IN and used a String to Array Function....ran a query of about 5000 Customer ID's typed in a range of cells... works great... thanks for this post..

Option Explicit

Sub QSC_PARM()
'Queries the Customer Master
Dim Ar As String, Ar1 As String, Ar2 As String, Ar3 As String
Dim SorSht As String, QryNm As String
Dim DestSht As Worksheet
Dim i As Long

SorSht = "Sheet1$"
Set DestSht = Sheet2
QryNm = "QRY_PARM"
ReDim RngArr(1 To Range("ID").Count)

Ar1 = "ODBC;DSN=Excel Files;DBQ=" & Range("VBA_FPN").Value & ";DefaultDir=" & Range("VBA_FP").Value & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
Ar = "SELECT *"
Ar2 = Ar & "" & Chr(10) & "FROM '" & Range("VBA_FPN1").Value & "'.'" & SorSht & "' '" & SorSht & "'" & Chr(10) & Chr(13) & "WHERE '" & SorSht & "'.ID IN ("
Ar3 = Range("ID")(1).Value

For i = 2 To Range("ID").Count
Ar3 = Ar3 & ", " & Range("ID")(i).Value
Next i

Ar2 = Ar2 & Ar3 & ")"

With DestSht.QueryTables(QryNm)
Ar3 = Replace(Ar1, "ODBC", "OLEDB", 1, 1)
.Connection = Ar3
.CommandText = StringToArray(Ar2)
.Connection = Ar1
.CommandText = StringToArray(Ar2)
End With
DestSht.QueryTables(QryNm).Refresh BackgroundQuery:=False
End Sub

Function StringToArray(Query As Variant) As Variant

Const StrLen = 127
Dim NumElems As Integer
Dim Temp() As String
Dim i As Long
NumElems = (Len(Query) / StrLen) + 1
ReDim Temp(1 To NumElems) As String
For i = 1 To NumElems
Temp(i) = Mid(Query, ((i - 1) * StrLen) + 1, StrLen)
Next i
StringToArray = Temp
End Function