I have a form that I choose from a list of database names and a list
within a textbox comes up with the computer ID number and an associated
(from a table) user name. Is there a way from looking at this code to
tell the network ID name? I hope not to have to write the code with the
"Dev Ashish" API code, which I'm sure is great but I can't figure out
how to implement it in a form like mine. Please look at the below code
and tell if I can modify it to give network ID. I'm using A2000 and
without access security in place.
Thanks!
Option Compare Database
Option Explicit
Private Const ms_UNKNOWN As String = "Unknown User"
Private Function CreateListHeade r() As String
Dim strFill As String
strFill = "No.;Comput er ID;User Name;Connected? ;Suspect State?;"
CreateListHeade r = strFill
End Function
Private Sub cboDBName_Chang e()
Dim strDB As String
Dim strMsg As String
If IsBlank(Me.cboD BName) Then
strMsg = "Unable to perform operation without a valid database
name."
MsgBox strMsg, vbInformation, "Database Name is Blank"
Exit Sub
Else
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub cboDBName_Click ()
Dim strDB As String
Dim strMsg As String
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub ShowUsersInDB(B yVal strDB As String)
Dim cnn As New ADODB.Connectio n
Dim rec As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim intFldCount As Integer
Dim varVal As Variant
Dim strPC As String
Dim strUser As String
Dim strConnected As String
Dim strSuspect As String
Dim strData As String
Dim strInfo As String
'get the db name
strFile = GrabDBPath(strD B)
DoCmd.Hourglass True
'if it gets here - see who is in the database
strData = CreateListHeade r
strFile = strFile & strDB & DB_EXT
'open the connection and recordset
cnn.Open JET_PROVIDER & "Data Source=" & strFile & ";"
Set rec = cnn.OpenSchema( Schema:=adSchem aProviderSpecif ic,
SchemaId:=adhcU sers)
With rec
Debug.Print rec.RecordCount
Do Until .EOF
intUser = intUser + 1
strNo = CStr(intUser) & ";"
intFldCount = 0
For Each fld In .Fields
intFldCount = intFldCount + 1
varVal = fld.Value
Select Case intFldCount
Case 1
strPC = StripNullChar(v arVal)
Case 2 'get the user name for the ID
If IsNull(varVal) Then
strUser = ms_UNKNOWN & ";"
Else
strUser = GrabUserName(st rPC)
End If
Case 3
strConnected = StripNullChar(v arVal)
Case 4 'suspected state
If IsNull(varVal) Then
strSuspect = "False" & ";"
Else
strSuspect = StripNullChar(v arVal)
End If
End Select
Next
strData = strData & strNo & strPC & strUser & strConnected
& strSuspect
.MoveNext
Loop
End With
Me.lstUsers.Row Source = strData
rec.Close
Set rec = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub
Private Function GrabUserName(By Val strPCID As String) As String
Dim cnn As New ADODB.Connectio n
Dim cmd As ADODB.Command
Dim rec As ADODB.Recordset
Dim strSQL As String
Dim strUser As String
Set cnn = CurrentProject. Connection
Set cmd = New ADODB.Command
strSQL = "SELECT * FROM tblUserIDs WHERE PCID Like '" &
Left$(strPCID, Len(strPCID) - 1) & "'"
cmd.ActiveConne ction = cnn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
Set rec = cmd.Execute
If Not rec.EOF Then
strUser = rec(1)
Else
strUser = ms_UNKNOWN
End If
rec.Close
cnn.Close
Set cnn = Nothing
End Function
10  3096 
I use this code.
Private Declare Function apiGetComputerN ame Lib "kernel32" Alias
"GetComputerNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName( ) As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function
If you put =fOSMachineName () in the control source of a unbound text
box, it should give you what you want. I also use this code to return
the user name. Same thing, put =GetNTUser() in the control source of
an unbound text box.
Private Declare Function GetUserName Lib "advapi32.d ll" Alias
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetNTUser() As String
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get user name
GetUserName strUserName, 100
'Strip the rest of the buffer
strUserName = Left$(strUserNa me, InStr(strUserNa me, Chr$(0)) - 1)
GetNTUser = strUserName
End Function
Parasyke wrote: I have a form that I choose from a list of database names and a list
within a textbox comes up with the computer ID number and an associated
(from a table) user name. Is there a way from looking at this code to
tell the network ID name? I hope not to have to write the code with the
"Dev Ashish" API code, which I'm sure is great but I can't figure out
how to implement it in a form like mine. Please look at the below code
and tell if I can modify it to give network ID. I'm using A2000 and
without access security in place.
Thanks!
Option Compare Database
Option Explicit
Private Const ms_UNKNOWN As String = "Unknown User"
Private Function CreateListHeade r() As String
Dim strFill As String
strFill = "No.;Comput er ID;User Name;Connected? ;Suspect State?;"
CreateListHeade r = strFill
End Function
Private Sub cboDBName_Chang e()
Dim strDB As String
Dim strMsg As String
If IsBlank(Me.cboD BName) Then
strMsg = "Unable to perform operation without a valid database
name."
MsgBox strMsg, vbInformation, "Database Name is Blank"
Exit Sub
Else
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub cboDBName_Click ()
Dim strDB As String
Dim strMsg As String
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub ShowUsersInDB(B yVal strDB As String)
Dim cnn As New ADODB.Connectio n
Dim rec As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim intFldCount As Integer
Dim varVal As Variant
Dim strPC As String
Dim strUser As String
Dim strConnected As String
Dim strSuspect As String
Dim strData As String
Dim strInfo As String
'get the db name
strFile = GrabDBPath(strD B)
DoCmd.Hourglass True
'if it gets here - see who is in the database
strData = CreateListHeade r
strFile = strFile & strDB & DB_EXT
'open the connection and recordset
cnn.Open JET_PROVIDER & "Data Source=" & strFile & ";"
Set rec = cnn.OpenSchema( Schema:=adSchem aProviderSpecif ic,
SchemaId:=adhcU sers)
With rec
Debug.Print rec.RecordCount
Do Until .EOF
intUser = intUser + 1
strNo = CStr(intUser) & ";"
intFldCount = 0
For Each fld In .Fields
intFldCount = intFldCount + 1
varVal = fld.Value
Select Case intFldCount
Case 1
strPC = StripNullChar(v arVal)
Case 2 'get the user name for the ID
If IsNull(varVal) Then
strUser = ms_UNKNOWN & ";"
Else
strUser = GrabUserName(st rPC)
End If
Case 3
strConnected = StripNullChar(v arVal)
Case 4 'suspected state
If IsNull(varVal) Then
strSuspect = "False" & ";"
Else
strSuspect = StripNullChar(v arVal)
End If
End Select
Next
strData = strData & strNo & strPC & strUser & strConnected
& strSuspect
.MoveNext
Loop
End With
Me.lstUsers.Row Source = strData
rec.Close
Set rec = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub
Private Function GrabUserName(By Val strPCID As String) As String
Dim cnn As New ADODB.Connectio n
Dim cmd As ADODB.Command
Dim rec As ADODB.Recordset
Dim strSQL As String
Dim strUser As String
Set cnn = CurrentProject. Connection
Set cmd = New ADODB.Command
strSQL = "SELECT * FROM tblUserIDs WHERE PCID Like '" &
Left$(strPCID, Len(strPCID) - 1) & "'"
cmd.ActiveConne ction = cnn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
Set rec = cmd.Execute
If Not rec.EOF Then
strUser = rec(1)
Else
strUser = ms_UNKNOWN
End If
rec.Close
cnn.Close
Set cnn = Nothing
End Function
I use this code.
Private Declare Function apiGetComputerN ame Lib "kernel32" Alias
"GetComputerNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName( ) As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function
If you put =fOSMachineName () in the control source of a unbound text
box, it should give you what you want. I also use this code to return
the user name. Same thing, put =GetNTUser() in the control source of
an unbound text box.
Private Declare Function GetUserName Lib "advapi32.d ll" Alias
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetNTUser() As String
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get user name
GetUserName strUserName, 100
'Strip the rest of the buffer
strUserName = Left$(strUserNa me, InStr(strUserNa me, Chr$(0)) - 1)
GetNTUser = strUserName
End Function
Parasyke wrote: I have a form that I choose from a list of database names and a list
within a textbox comes up with the computer ID number and an associated
(from a table) user name. Is there a way from looking at this code to
tell the network ID name? I hope not to have to write the code with the
"Dev Ashish" API code, which I'm sure is great but I can't figure out
how to implement it in a form like mine. Please look at the below code
and tell if I can modify it to give network ID. I'm using A2000 and
without access security in place.
Thanks!
Option Compare Database
Option Explicit
Private Const ms_UNKNOWN As String = "Unknown User"
Private Function CreateListHeade r() As String
Dim strFill As String
strFill = "No.;Comput er ID;User Name;Connected? ;Suspect State?;"
CreateListHeade r = strFill
End Function
Private Sub cboDBName_Chang e()
Dim strDB As String
Dim strMsg As String
If IsBlank(Me.cboD BName) Then
strMsg = "Unable to perform operation without a valid database
name."
MsgBox strMsg, vbInformation, "Database Name is Blank"
Exit Sub
Else
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub cboDBName_Click ()
Dim strDB As String
Dim strMsg As String
strDB = Me.cboDBName
ShowUsersInDB (strDB)
End If
End Sub
Private Sub ShowUsersInDB(B yVal strDB As String)
Dim cnn As New ADODB.Connectio n
Dim rec As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim intFldCount As Integer
Dim varVal As Variant
Dim strPC As String
Dim strUser As String
Dim strConnected As String
Dim strSuspect As String
Dim strData As String
Dim strInfo As String
'get the db name
strFile = GrabDBPath(strD B)
DoCmd.Hourglass True
'if it gets here - see who is in the database
strData = CreateListHeade r
strFile = strFile & strDB & DB_EXT
'open the connection and recordset
cnn.Open JET_PROVIDER & "Data Source=" & strFile & ";"
Set rec = cnn.OpenSchema( Schema:=adSchem aProviderSpecif ic,
SchemaId:=adhcU sers)
With rec
Debug.Print rec.RecordCount
Do Until .EOF
intUser = intUser + 1
strNo = CStr(intUser) & ";"
intFldCount = 0
For Each fld In .Fields
intFldCount = intFldCount + 1
varVal = fld.Value
Select Case intFldCount
Case 1
strPC = StripNullChar(v arVal)
Case 2 'get the user name for the ID
If IsNull(varVal) Then
strUser = ms_UNKNOWN & ";"
Else
strUser = GrabUserName(st rPC)
End If
Case 3
strConnected = StripNullChar(v arVal)
Case 4 'suspected state
If IsNull(varVal) Then
strSuspect = "False" & ";"
Else
strSuspect = StripNullChar(v arVal)
End If
End Select
Next
strData = strData & strNo & strPC & strUser & strConnected
& strSuspect
.MoveNext
Loop
End With
Me.lstUsers.Row Source = strData
rec.Close
Set rec = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub
Private Function GrabUserName(By Val strPCID As String) As String
Dim cnn As New ADODB.Connectio n
Dim cmd As ADODB.Command
Dim rec As ADODB.Recordset
Dim strSQL As String
Dim strUser As String
Set cnn = CurrentProject. Connection
Set cmd = New ADODB.Command
strSQL = "SELECT * FROM tblUserIDs WHERE PCID Like '" &
Left$(strPCID, Len(strPCID) - 1) & "'"
cmd.ActiveConne ction = cnn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
Set rec = cmd.Execute
If Not rec.EOF Then
strUser = rec(1)
Else
strUser = ms_UNKNOWN
End If
rec.Close
cnn.Close
Set cnn = Nothing
End Function
Sorry, should have included this. It does away with API calls, although
you will have to have a reference to Windows Script Host Object Model
Public Function GetUserName() As String
Dim wshNet As Object
Set wshNet = CreateObject("W Script.Network" )
GetUserName = wshNet.username
Set wshNet = Nothing
End Function
Thanks, but I need a little more coaching... so does the below clue you
into the error? (the database name appears in the combobox but the
pesky #Name? appears in the textbox. (BTW I'll have several users to be
listed in the textbox and need it to be in a column type style).
THANKS!
I have a form created without binding to anything.
I created a combobox named cboDBName with its binding being SELECT
[tblDatabases].[DBName] FROM tblDatabases;
placed in the RowSource property.
I created a textbox named txtGetUsers with its binding being
=fOSMachineName ()
placed in the ControlSource property.
I pasted this into the code for the form (I deleted some comments and
lines to simplify):
Option Compare Database
Option Explicit
Private Declare Function apiGetComputerN ame Lib "kernel32" Alias
"GetComputerNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName( ) As String
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function
Private Declare Function GetUserName Lib "advapi32.d ll" Alias
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetNTUser() As String
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserNa me, InStr(strUserNa me, Chr$(0)) - 1)
GetNTUser = strUserName
End Function
e.cboDBName
Try this link: http://www.mvps.org/access/modules/mdl0055.htm
it has a small access app that looks at the ldb file and will tell you
all of the users that are logged into mdb that you reference.
really neat and small, and the code for the form can be imported into
any app that you want or run standalone out of this app.
It has all the code you need.....
This seems better. Thanks! Much cleaner code. Is there a way to change
the database name textbox to a combobox and have it do a lookup of an
existing table of the databases and their respective paths?
Again.. Thanks!
That is what I did when I implemented it.
I created a table with the full path and db name and in my case I added
a combo box above the existing txtbox. And then in the afterupdate
event of the combo had it load the txt box with the table name. And
then as part of that same code I had it execute the code that is
executed when you push the button to get the information.
Ron
How do I get the combobox to load the chosen value into the textbox?
I tried in the afterupdate the line:
Private Sub cboDBname_After Update()
Me!txtDBPath = Me!cboDBname
End Sub
But this didn't populate the textbox.
Any clues?
Thanks!
Nevermind the above, I figured that much out but should I write my code
like this in the afterupdate of the combo?:
'Code for Afterupdate event of combobox
Private Sub cboDBname_After Update()
Me!txtDBPath = Me!cboDBname
Private Sub cmdExecute_Clic k()
On Error GoTo ErrHandler
With Me.txtDBPath
If Not IsNull(.Value) Then
If Len(Dir$(.Value , vbNormal)) Then
Me.lbxLDBInfo.R owSourceType = vbNullString
If (Me.chkUserRost er.Enabled And (Me.chkUserRost er))
Then
m_blnUseRosterL ayout = True
Me.optDisplayOp tions.Enabled = False
Call sUseUserRoster
Else
Me.optDisplayOp tions.Enabled = True
m_blnUseRosterL ayout = False
Call sDisplayUsers
End If
Me.lbxLDBInfo.R owSourceType = "fListFill"
End If
End If
End With
ExitHere:
Exit Sub
ErrHandler:
With Err
MsgBox "Error: " & .Number & vbCrLf & .Description, _
vbCritical Or vbOKOnly, .Source
End With
Resume ExitHere
End Sub
'end code for afterupdate event for combobox
I tried this but my user box was not populated.
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Vik Rubenfeld |
last post by:
I'm a newbie to Apache. This week I installed my first Apache 2.0 server,
and it's working fine. I then installed PHP. When I ran the PHP test file
("test.php"), the actual text contents of the file came up in the
browser:
----------------
<?php
phpinfo();
?>
----------------
|
by: Jim Hubbard |
last post by:
It seems that Microsoft not only does not need the classic Visual Basic
developer army (the largest army of developers the world has ever seen), but
now they don't need ANY Windows developer at a small or mid-sized business.
http://groups-beta.google.com/group/microsoft.public.msdn.general/browse_thread/thread/9d7e8f9a00c1c7da/459ca99eb0e7c328?q=%22Proposed+MSDN+subscription+changes%22&rnum=1#459ca99eb0e7c328
Damn! To be that...
|
by: gswitz |
last post by:
I have written a Windows Service that watches a Lotus Notes InBox for emails,
detaches attachments from the emails and attaches them to a different Lotus
Notes Database.
The service works properly until I log off of the server. At that point,
this call begins returning nothing - not an error - just nothing...
LnView_Mail = LnDb_Mail.GetView("($InBox)")
Once this problem begins, logging back into the server does not resolve it.
|
by: Fan Ruo Xin |
last post by:
Last monday, I tried to create a working table, and failed because of 'Log
Full'. There were two applications running at that time - one is autoload
(during the split phase), another one is "insert into a (NLI) ... SELECT ...
FROM ...".
I checked the db2diag.log (level=4) and notification file. It was
interesting that there was no any information about log full.
I had to kill the autoload process.
I haven'g got time to see if I can...
|
by: DB_2 |
last post by:
Greetings,
I was searching Google for ways to turn off transaction logging for
some queries. I came across this old post from Feb 2003:
> From: fareeda (fareeda@pspl.co.in)
> Subject: Re: Question related to "CREATE TABLE AS SELECT" in DB2
> Newsgroups: comp.databases.ibm-db2
> Date: 2003-02-27 21:11:59 PST
>
| | |
by: Daniel Chou |
last post by:
Hello,
I have two questions about "not logged initially":
1. Before using "alter table tbname activate not logged initially",
should the table be created with "not logged initially"?
2. After using "alter table tbname activate not logged initially",
how to deactivate it?
|
by: Dan C Douglas |
last post by:
I have just installed VS.NET 2003 on my computer. I have a project that I have been developing on VS.NET 2002. I haven't upgraded this project to VS.NET 2003 yet and I am still developing it in VS.NET 2002.
When I am putting values from my SQLDataReader into labels and text boxes I am getting results such as 400.0000, or 25.90.
For example...
? dr("CostsPerBin")
returns
|
by: aydeejay |
last post by:
I'm trying to troubleshoot an issue where users are not able to bind
with LDAP via "GetObject" through our ASP Classic Intranet if they
stay logged in overnight (beyond their allowed login hours). The
problem does not occur when performing the same bindings using a logon
script.
So, the user logs in, is able to perform queries all day, and then
fails to log out at the end of the day. We'd prefer that they did log
out nightly, but it...
|
by: =?Utf-8?B?cmZsYXphcm8=?= |
last post by:
Hi All,
We are trying to build an automation utility to configure OS. I found a way
to automate the process below via registry:
Control Panel -Taskbar and Start Menu ->Start Menu Tab
--Select "Classic Start Menu". Click Apply. Click OK
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
DWORD Value name Value Data
|
by: =?Utf-8?B?SkI=?= |
last post by:
Greetings,
I am getting an "Access is denied" Error when calling objects from the
AdminIndexServerClass from an ASP.NET application. I use this object to
perform a simple rescan on a Catalog after file are save to the local disk.
This only works if the users belongs to the local Admin group. The the web
site is setup to use Integrated Windows Authentication and Web.Config is set
to (Server 2003/IIS 6.0/ASP 1.1)
<authentication...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
| | |
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
