-
Dec 15th, 2014, 10:17 AM
#1
Thread Starter
New Member
How to handle run time error 3110
I have developed an application in vb6 and for database using MsAccess 97.
Some table not having permission for access. That time I am facing run time error 3110 “ couldn’t read definition, no read definition permission for table or query “Employee”.
How to check and set the permissions in vb6.
Please i need urgent help on this.
Last edited by Kunal Ambastha; Dec 16th, 2014 at 01:16 AM.
-
Dec 15th, 2014, 10:34 AM
#2
Re: How to handle run time error 3110
Coe where you get the error please...... Where (in what path) is your DB located? Can you open the table/db by going through Access manually?
-
Dec 15th, 2014, 10:52 AM
#3
Re: How to handle run time error 3110
One would think that if it was really "Urgent" you would have posted some code and details as to where the error occurred.
Since we have no code to go on there is not much we can do to help other than to tell you to check the file permissions and check your code for errors.
-
Dec 15th, 2014, 11:12 AM
#4
Re: How to handle run time error 3110
Originally Posted by Kunal Ambastha
I have developed an application in vb6 and for database using MsAccess 97.
Some table not having permission for access. That time I am facing run time error 3110 “ couldn’t read definition, no read definition permission for table or query “Employee”.
http://office.microsoft.com/en-us/ac...in=HV080756967
"You must have read definitions permission for the specified table or query to read its definition. To change your permission assignments, see your system administrator or the table or query's creator."
Wolfgang
-
Dec 16th, 2014, 01:09 AM
#5
Thread Starter
New Member
Re: How to handle run time error 3110
Originally Posted by DataMiser
One would think that if it was really "Urgent" you would have posted some code and details as to where the error occurred.
Since we have no code to go on there is not much we can do to help other than to tell you to check the file permissions and check your code for errors.
'code is... for deleteing the query
Public Sub DeleteQuery()
strName="Employee" ' query name
Dim qdfLoop As QueryDef
Dim strSQL As String
For Each qdfLoop In dbAny.QueryDefs
If UCase$(qdfLoop.name) = UCase$(strName) Then
strSQL = qdfLoop.sql
dbAny.QueryDefs.Delete qdfLoop.name
Exit For
End If
Next qdfLoop
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|