OleDbException was unhandled. Could not use "checkin.mdb". File already in use...
Need help on how to avoid this error message.
The database i am using is an MS Access 2003 mdb file. I develop the system in VS 2010 with 6 users for this database. every time the second user open's the system it debugs directly and pop ups this message "OleDbException was unhandled. Could not user "checkin.mdb". file is in use by user 'Admin'.
I am new to vb.net and still trying my best to dry run the system i develop until i found this error with multiple users.
thank you in advance for your help regarding this problem.
Below is the code that debugs every time i load the form.
Need help on how to avoid this error message.
The database i am using is an MS Access 2003 mdb file. I develop the system in VS 2010 with 6 users for this database. every time the second user open's the system it debugs directly and pop ups this message "OleDbException was unhandled. Could not user "checkin.mdb". file is in use by user 'Admin'.
I am new to vb.net and still trying my best to dry run the system i develop until i found this error with multiple users.
thank you in advance for your help regarding this problem.
Below is the code that debugs every time i load the form.
Private Function GetQueueNum()
'Get last queuingNum
Dim newNum As Integer = 0
' Execute the SQL Statement
Dim qCon As OleDb.OleDbConnection = New OleDb.OleDbConnection()
qCon.ConnectionString = GetConnString()
[I][B] qCon.Open() ------------------------------------------------------------->> OleDBException was unhandled[/B][/I]
'grab the queueing number from counter table
Dim sqlTop = ("SELECT * FROM Top1CheckIn;")
Dim sqlCmd As New Data.OleDb.OleDbCommand(sqlTop, qCon)
Dim dr As Data.OleDb.OleDbDataReader = sqlCmd.ExecuteReader()
Try
If dr.HasRows Then
While dr.Read()
newNum = dr("QueueingNum").ToString
lblNextQNum.Text = CStr(Format(newNum, "000"))
txtCheckInID.Text = dr("CheckInID").ToString
lblNextQNum.Refresh()
End While
Return True
Else
lblNextQNum.Text = " "
txtCheckInID.Text = 0
lblNextQNum.Refresh()
Return False
End If
Catch ex As Exception
Return False
End Try
qCon.Close()
End Function
Last edited by a moderator: