Comments by KD209 (Top 18 by date)

Sorry for the long delay. Yes, there is data established under the PwdAge attribute.

Hi Richard,

Thanks for the assist with this. There is no data returning for the PasswordAge or the PasswordLastSet. Is there any other method of retrieving these specific properties?

Yes, this is a desktop application.

Got it! Thanks for all the help I really appreciate it.

Can you paste the code into the solution field so I can make it as resolved/answered.

Richard if you were here right now you would strangle me. I needed to run the query against the "TrackingInfo" table, HAHAHA! It is all working now.

One last question that I have is how to I allow the form to reinitialize instead of doing the me.close()?

I figured that would caused me problems. I have corrected that but the code is still giving the error of: "No value given for one or more required parameters" on the line of: "Using fetchreader As OleDbDataReader = cmdfetch.ExecuteReader(CommandBehavior.CloseConnection)"

Also,

The database field/column is a Yes/No field, will the 1 or 0 integers work the same?

I am still getting the same exception error:

"System.Data.OleDb.OleDbException was unhandled
ErrorCode=-2147217904
HResult=-2147217904
Message=No value given for one or more required parameters.
Source=Microsoft Access Database Engine
StackTrace:
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
at WindowsApplication1.DMNDTracker.CheckOut_Click_1(Object sender, EventArgs e) in C:\Users\KDavis\Documents\Visual Studio 2013\Projects\CheckOutSystem\CheckOutSystem\Form1.vb:line 115
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
at System.AppDomain.nExecuteAssembly(RuntimeAssembly assembly, String[] args)
at System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel)
at System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly()
at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)
at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext)
at System.Activator.CreateInstance(ActivationContext activationContext)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException: "

When utilizing the Using functions I still run into the error "No value given for one or more required parameters." I'm guessing that query result is still not being captured to run an if statement against.

I have rewritten the code, but now I get an error stating that the "ExecuteReader has not been initialized"

Code:

Dim fetchstr As String = connStr
Dim fetchconn As OleDbConnection = New OleDbConnection(fetchstr)
Dim cmdfetch As OleDbCommand = New OleDbCommand()
Dim fetch As String = "Select AssetBarcode from Assets Where AssetBarcode = ? AND CheckedOut = True"

fetchconn.Open()

cmdfetch.Parameters.AddWithValue("AssetBarcode", OleDbType.VarChar).Value = ChkOutBarcode

Dim fetchreader As OleDbDataReader = cmdfetch.ExecuteReader()

While fetchreader.Read()

If ChkOutBarcode.Text = (fetchreader("AssetBarcode")) Then

MessageBox.Show("Item has already been checked out. Please inform the Helpdesk")

Me.Close()

End If

End While

fetchreader.Close()
fetchconn.Close()

Here is the code that I have been trying to use to get the desired result:

Dim fetchstr As String = connStr
Dim fetchconn As OleDbConnection = New OleDbConnection(fetchstr)
Dim cmdfetch As OleDbCommand = New OleDbCommand()
Dim fetch As String = "Select AssetBarcode from Assets Where AssetBarcode = ChkOutBarcode AND CheckedOut = True"
'cmdfetch.CommandText = "Select AssetBarcode from Assets Where AssetBarcode = ChkOutBarcode AND CheckedOut = True"

fetchconn.Open()

cmdfetch = New OleDbCommand(fetch, fetchconn)
cmdfetch.Parameters.AddWithValue("AssetBarcode", ChkOutBarcode.Text)

cmdfetch.ExecuteNonQuery()
fetchconn.Close()

If cmdfetch.ExecuteNonQuery > 0 Then
MessageBox.Show("This item has already been checked out. Please alert a Helpdesk team member.")
Me.Close()
End If

Hi Richard,

Richard provided the solution I was looking for.

Hi Richard,

I am trying to relearn all of this as it has been 18 years since I have done it last. Thank you for your help! You code does exactly what I was looking for.

That did the trick. Thank you, I do not know how I overlook setting the command!