Query based on logged on user (Newbie)

Thanks Jake,
That IS very useful. Unfortunately however, I log into it via a SQL Server
logon. My application that uses the database needs it that way (although
I'd like to change that). Any other options? It makes sense to me that
some code in the excel worksheets could do this, where it applied the
appropriate filter programatically on open but before refresh. Sounds good
when I say it, huh! Unfortunately I don't have a clue.
Tim



"Jake Marx" <msnews.TakeThisOut@longhead.com> wrote in message
news:ecH9rkO1FHA.3376@TK2MSFTNGP14.phx.gbl...
> Hi Tim,
>
> Tim Miller wrote:
>> I'm pulling data into excel from a SQL database. Rather than create
>> several identical workbooks where each queries a different users
>> information, can I add some code at some level that matches the
>> [User_Name] field in the data to the Windows logged in user name on
>> the computer. Both are first intial + last name.
>> The one workbook would have several different data sources (different
>> SQL Views from the same database) and each would refresh
>> automatically upon open.
>
> If you're using SQL Server, there is an suser_sname() function that will
> return the current system user. If your query is using integrated
> authentication (network credentials used instead of SQL Server login),
> then you could add WHERE [User_Name] = suser_sname() to your queries in
> order to filter by the connecting user.
>
> --
> Regards,
>
> Jake Marx
> www.longhead.com
>
>
> [please keep replies in the newsgroup - email address unmonitored]
>
>

Hi Tim,

OK - that does make things a bit trickier, but you should still be able to
get it to work. You can get the current user's network id with this:

Debug.Print Environ("Username")

This should work in most situations, but I prefer to use the API directly:

Public Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function sCurrentUser() As String
Dim sUserNm As String * 256
Dim nActualLen As Integer

On Error GoTo ErrHandler

If GetUserName(sUserNm, 256) Then
nActualLen = InStr(sUserNm, vbNullChar) - 1
If nActualLen > 0 Then
sCurrentUser = Left$(sUserNm, nActualLen)
Else
sCurrentUser = sUserNm
End If
End If

ExitRoutine:
Exit Function
ErrHandler:
Resume ExitRoutine
End Function


Once you have the user's network id, you should be able to add it to your
WHERE clause on the client side in order to filter your results by user.

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]


Tim Miller wrote:
> Thanks Jake,
> That IS very useful. Unfortunately however, I log into it via a SQL
> Server logon. My application that uses the database needs it that
> way (although I'd like to change that). Any other options? It makes
> sense to me that some code in the excel worksheets could do this,
> where it applied the appropriate filter programatically on open but
> before refresh. Sounds good when I say it, huh! Unfortunately I
> don't have a clue. Tim
>
>
>
> "Jake Marx" <msnews.DeleteThis@longhead.com> wrote in message
> news:ecH9rkO1FHA.3376@TK2MSFTNGP14.phx.gbl...
>> Hi Tim,
>>
>> Tim Miller wrote:
>>> I'm pulling data into excel from a SQL database. Rather than create
>>> several identical workbooks where each queries a different users
>>> information, can I add some code at some level that matches the
>>> [User_Name] field in the data to the Windows logged in user name on
>>> the computer. Both are first intial + last name.
>>> The one workbook would have several different data sources
>>> (different SQL Views from the same database) and each would refresh
>>> automatically upon open.
>>
>> If you're using SQL Server, there is an suser_sname() function that
>> will return the current system user. If your query is using
>> integrated authentication (network credentials used instead of SQL
>> Server login), then you could add WHERE [User_Name] = suser_sname()
>> to your queries in order to filter by the connecting user.
>>
>> --
>> Regards,
>>
>> Jake Marx
>> www.longhead.com
>>
>>
>> [please keep replies in the newsgroup - email address unmonitored]