Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SQL Query Function
Hello all,
I am trying to create a function that returns the result of an SQL query. The best I've come up with is to use a Query Table. I pass the function two parameters and the query returns a single value (a count of some records). Is there maybe an easier way?? I have a lot of values to add and they need to change based on the parameters passed. Any Help Would Be appreciated.. TIA Steve Here's my code... ------------------------------------------------------------------------------------------------------ Function RunQuery(p1,p2) Application.Volatile Dim ConnString As String Dim SQLString As String ConnString = "ODBC;DSN=;UID;PWD=;Database;" Select Case p1 Case 1 SQLString = "SELECT Count(*) AS nCount FROM table1 WHERE name = " & p2 Case 2 SQLString = "SELECT Count(*) AS uCount FROM table2 WHERE user = " & p2 Case 3 SQLString = "SELECT ......." End Select With ActiveSheet.QueryTables.Add(Connection:=ConnString , Destination:=ActiveCell, Sql:=SQLString) .Name = rep & "_" & qs .Set value ....... .Set value .Refresh End With RunQuery = ActiveSheet.QueryTables(p2 & "_" & p1) End Function ------------------------------------------------------------------------------------------------------ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Function query | Excel Programming | |||
query about VALUE function | Excel Worksheet Functions | |||
Function: New Web Query | Links and Linking in Excel | |||
Microsoft Query rejects "nz" function in Access Query | Excel Discussion (Misc queries) | |||
mid function in ms query | Excel Discussion (Misc queries) |