Visual Basic :: Opened Exclusively???

Opened Exclusively
Error # 3356
"You attemped to open a database that is already opened exclusively by user <user> on machine <machine>. Try again when the database is availabe".

This error is occur when i try to open a MS Access database which have password protected & it's already open (On PC).

How can i open/append/delete/insert any table/records on this databse (.Mdb)
How can i execute query. (Complete syntax please)

Thanks

Muhammad Kashif

[DAO] Excel Sheets Always Exclusively Opened?
I've made a program that uses an Excel sheet as a database. The problem is that this Excel sheet is somehow always exclusively opened...

This is the code I use to open the Excel sheet:

Code:
Dim ExcelSheet As Database
Dim ExcelSheetRecordSet As RecordSet

Set ExcelSheet = OpenDatabase(ExcelSheetPath, False, False, "Excel 8.0;HDR=yes;")
Set ExcelSheetRecordSet = ExcelSheet.OpenRecordset(ExcelSheet.TableDefs(0).Name)

Why o why is this excel sheet exclusively opened

Exclusively Opened Database Problems
I have a VB6 project that connects to a Access database. I get a run time error when I try to copy the database as a backup - "You attempted to open a database that is already opened exclusively..."

The problem is that I need to be able to copy this database while it is still open. How do I work around this?

Thanks Steven

Dababase Opened Exclusively By User XXXX
hi,

Im new programing a database app. So i believe my program is not complex. This program is running in 5 PC accessing data from a access file.

The program is in VB6, with DAO Data Controls with the read only property, (both) one true and one false. The RecordsetType, one snapshot, one dynaset ( just because i can !). But NEVER the Exclusive property as TRUE.

The thing is, every once in a while (once every 2 or 3 weeks) one of the user starts the program and crashes the DB with an error 'database opened exclusively by user xxxx'. When the error occurs, all users have been running the program for a couple of hours now.

I have been unable to force the error intentionally.

My question, is there a Program or Utility from inside MS ACCESS where i can monitor the status of the Database file and / or its records or tables

thanks

How To Solve The Error:dbf Already Exclusively Opened By Other User
Hello,
I have a exe application running. The data is stored in dbf format while the application is being used. From the dbf i want to fetch some fields into my vb project. While doing so i get error like the dbf is already exclusively opened by some other user or you need permission to view its data. I am not sure about the access permission given to the dbf created by the exe. how to make it shareable so that i could read the data from the dbf into my vb project.
Thanks in advance for those who pull me out of this den.
Rgs
Ijus

The Workgroup Information File Is Missing Or Opened Exclusively By Another User.
Hello All!

I've been working in a temporary solution for a process in our business. I have two ways of connecting to the database:
- Directly to the SQL Server Database
- Using MS Access with linked tables to the SQL Server Database

I've tried both connections from Access and from SQL Manager and they both work fine, but when trying to connect from VB 6.0 this is what I get:

__

StringConnection:

With oConn
.CursorLocation = adUseClient
.CommandTimeout = 0
.ConnectionTimeout = 45
.ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=xx.xxx.x.xx:2500;uid=USER;pwd=PASSWORD;database=databas e_name;"
.Open
End With

Error:

[Microsoft][ODBC Server Driver][Named Pipes] Specified SQL server not found.

====================================================================== ========
StringConnection:

oConn.Open "Provider=SQLNCLI;server=xx.xxx.x.xx:2500;database=database_name;uid=U SER;pwd=PASSWORD;"

Errror:

Provider cannot be found. It may not be properly installed.

====================================================================== ========
StringConnection:

oConn.Open "Provider=sqloledb;Server=xx.xxx.x.xx:2500;Database=database_name; User Id=USER;Password=PASSWORD"

Error:

[DBNETLIB][Connection Open (ParseConnectParams()).]Invalid Connection.

====================================================================== ========
StringConnection:

oConn.Open "Provider=sqloledb;Server=xx.xxx.x.xx:2500;Database=database_name;UID= USER;PWD=PASSWORD"

Error:

[DBNETLIB][Connection Open (ParseConnectParams()).]Invalid Connection.

====================================================================== ========

I really dont know what Im doing wrong. I appreciate any help anyone can give in this matter!

Thanks in advance.

Jet Cannot Open Db Opened Exclusively By Another User Or Need Permission To Read Its Data
When the user starts the app they are getting the error "...Jet cannot open the database because it is opened exclusively by another user or you need permission to read its data." This is an Access 2000 database and there are no special permissions on it and no one has the database open. The app is a vb 6 app and the code to open the database is below. Any thoughts, thanks for taking the time to read this.

Code:Public Function OpenDBConnections() As Boolean
    Const PROC_NAME = "OpenDBConnections"
    Dim strConnString As String
    Dim strErrDesc As String
    Dim lngErrNum As Long

    On Error GoTo ErrorHandler

    strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source=" & g_strDbPath & ";" _
                        & "Persist Security Info=False;" _
                        & "Jet OLEDBatabase Password=" & g_strPassword

    If g_objConn Is Nothing Then
        Set g_objConn = New ADODB.Connection
    End If

    With g_objConn
        .ConnectionString = strConnString
        .ConnectionTimeout = 10
        .CursorLocation = adUseClient
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open
        .Properties("Jet OLEDB:Transaction Commit Mode") = 1
    End With

    If g_objConn.State <> adStateOpen Then
        Err.Raise ERR_FAILURE
    End If

    OpenDBConnections = True

Leave:
    Exit Function

ErrorHandler:
    OpenDBConnections = False

    strErrDesc = Err.Description
    lngErrNum = Err.Number

    Err.Raise lngErrNum, , strErrDesc

End Function

Jet Can't Open Db Opened Exclusively By Another User,need Permission To Read Data
When the user is opening the app the following error displays, "Jet can't open the database because it is opened exclusively by another user or you need permission to read its data". This is a regular Access 2K database and there are no special permissions on it and no other users has the database open. The code I'm using to access the db is below, thanks for your help!

Code:
Public Function OpenDBConnections() As Boolean
Const PROC_NAME = "OpenDBConnections"
Dim strConnString As String
Dim strErrDesc As String
Dim lngErrNum As Long

On Error GoTo ErrorHandler

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & g_strDbPath & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=" & g_strPassword

If g_objConn Is Nothing Then
Set g_objConn = New ADODB.Connection
End If

With g_objConn
.ConnectionString = strConnString
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open
.Properties("Jet OLEDB:Transaction Commit Mode") = 1
End With

If g_objConn.State <> adStateOpen Then
Err.Raise ERR_FAILURE
End If

OpenDBConnections = True

Leave:
Exit Function

ErrorHandler:
OpenDBConnections = False

strErrDesc = Err.Description
lngErrNum = Err.Number

Err.Raise lngErrNum, , strErrDesc

End Function ' OpenDBConnections

Run-time Error 3051 - File Opened Exclusively By Another User Or U Need Permission To Open
i am new to VB and i developed a vb program on win2000 machine that uses Access database. It works fine on my machine but when i packaged it using PDW ran it on another win2000 m/c it gives me the following error

Run-time error '3051'

Microsoft Jet OLE cannot open the ......mdb file. File is opened exclusively by another user or you don't have permission to open this file.

also, my program does not read Access2000.mdb and i therefore have to convert my acess2000 files to access97 database to be picked up by the vb program.

below is the code i've used.


   dim dbb as database, dns as dynaset
    Dim stat1 As String


    Set dbb = Workspaces(0).OpenDatabase(dbFileToOpen)
    stat1 = "SELECT * FROM EMPTABL WITH OWNERACCESS OPTION; "
    Set dns= dbb.OpenRecordset(stat1$)
        .......
    sns.Close

where dbFileToOpen holds the full path and name of the acess97 database.

thanks in advance for those who can help me out

Error: &"table Is Already Opened Exclusively By Another User&"
I'm a realtive newbie to access and visual basic, so I'm a little stuck on this one:

I have a password form set up to take a password and then assuming that the password matches the password in the table "database users" then it stores the user as currently logged on in a query for future reference in other forms.

The password form itself works fine. The problem is that when "close" button is clicked it is supposed to close the password form and open a switchboard form. it's right here that it keeps giving me the error message:

Error: "the table 'database users' is already opened exclusively by another user, or it is already open through the user interface and cannot be manipulated programmatically"

Any help on this would be greatly appreciated. Thanks

Open Exclusively
Hi,
Do you know how to deal with situation that i open exclusively some table in the database for design / view purpose and i want to be sure that all the application user's will force to log off without the option to login till i will exist the database

please advice.

How To Open An ADO Exclusively?
I try to open a connection as shown below. My intention is to prevent others from updating the same file.
After opening the MSAccess file, I try to make changes to it using another PC. I would expect an error message but there is none. It seems that the "conn.Mode = adModeShareExclusive" is not working. Why?

Set conn = New ADODB.Connection
Set cmd = New ADODB.command

conn.Mode = adModeShareExclusive
conn.CommandTimeout = 0
conn.ConnectionTimeout = 0

conn.Open "DSN"
Set cmd.ActiveConnection = conn

Combining Recorset Exclusively
Suppose I have a recordset stored in rsConn1 and another one stored in rsConn2 . They both have a common field called ID...

Is it possible to create a new recordset ( called rsConn3 ) that will contain all the records from rsConn1 and rsConn2, minus the duplicates ?

Trying Not To Open A Database Exclusively.
Hi

I have been trying to print ot a report in Acess from VB. I havew worked out the code to do this, but I have already opened the database up in my project & so I get an error about the database being opened exclusively already by another user.

This might be because in opening the database at the start of the program I have used

VB Code:
Dim bln1ExclusiveMode As Boolean Dim bln1ReadOnly As Boolean'' Declare workspace and open database' bln1ExclusiveMode = True bln1ReadOnly = False str3Database = App.Path & "Sam.mdb" Set wsp3workspace = DBEngine.Workspaces(0) Set dba3Database = wsp3workspace.OpenDatabase(str3Database, bln1ExclusiveMode, bln1ReadOnly)

to cut down on any problems with many people opening up the database. The problem is that when I call the report I use the code:

VB Code:
Private Sub ReportBorrowed() Dim AccessDB As Access.ApplicationDim strFilter As StringDim strWhere As String Set AccessDB = New Access.Application AccessDB.OpenCurrentDatabase App.Path & "Sam.mdb" AccessDB.DoCmd.OpenReport "Borrowed", acViewNormal, strFilter, strWhere AccessDB.Visible = True AccessDB.Quit acQuitSaveAll Set AccessDB = Nothing

which causes the problem. I am trying to combat this but have drawn a blank with the methods I've used so far.Could anyone suggest how to:

a) open the database in a mode that isn't exclusive

or

b) get the repots to use the same connection to the database that I made on opening the program.

Thanks

Sam

Opening A Database Exclusively
In some languages you are able to open a Table or a File Exclusively - ie, Open a File and Lock it so that no one else can access it while you have the whole file locked.

Is it possible to do this with

a) An Access Database
b) An Access Table
c) A SQL Server Database
d) A SQL Server Table

Thanks for any examples

Opening An Adodb Connection Exclusively
how can i open an adodb.connection exclusively. because sometimes i have to add extra fields in access database.

Testing To See If Access DB Is Open Exclusively?
Is there a way to tell if a Access DB is opened exclusively?

Thanks

Problem With Database Exclusively Open...
Hi,

I have this error when I run 2 exe on 2 different machine...

Run-time error '3051' : The Microsoft Jet database engine cannot open the file ;. It is already opened exclusively by another user, or you need permission to view its data.

But, both of them have to change his specific things in the database...how can I correct that?

Thanks

How To Open MSAccess File Exclusively?
The following is my coding in open a recordset.

sfile="C: est.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0" & ";Data Source= " & sFile & ";Jet OLEDB"

sSQL = "select * from tbSample"
rsTdr.Open sSQL, cnTC, adOpenKeyset, adLockOptimistic, adCmdText

How can I modify the coding so that I can open the MSAccess file EXCLUSIVELY?

Connecting Exclusively To A SQL Server 7 Table
I am trying to connect exclusivly to a SQL table exclusively (i.e. nobody else can open it whilst I have it open) but whatever I try it does not work. What I am currently trying is the following:

Code:

Dim strCon As String

Assign connection string to variable.
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Sadie Database 2;Data Source=SERVER2"

' Open connection and titles table.
Set CON = New ADODB.Connection
CON.Mode = adModeShareExclusive
CON.IsolationLevel = adXactIsolated
CON.Open strCon

Set Rs = New ADODB.Recordset
Rs.CursorType = adOpenStatic 'dyn
Rs.LockType = adLockPessimistic
Rs.Open "tblPID", CON, , , adCmdTable

'nobody else should have access here

Rs.Close
CON.Close

End Sub

What am I doing wrong

---
Thank-you
K Black

How To Check If Workbook Opened Using VBA Could Be Opened Or Not?
Hi All

I am trying to open a workbook using the VBA statement
Code:
Workbooks.Open "c:deepaksourcedataabc.xls"
in a procedure.

How can I record the success or failure of this event (whether the file could be opened or not)? The intent being to inform the user and quit if it couldn't be opened for whatever reason or read data therein and continue with further processing if it could be opened.

In pseudocode language this is what I am looking at doing :-

Code:
If file cannot be opened then
Inform user and exit procedure
Else
Open the file and read data therein and continue further processing
End if

Best regards

Deepak Agarwal

Stop Form From Being Opened Again If Opened
I know that this works for the complete app to stop a duplicate app from running

If App.PrevInstance = True Then
End
End If

How can I modify this code to not allow a form from being opened more than once at the same time.

Thanks for your help

When Wmp Is Opened Run My App
Hello

Who do I do the the following:

When the user boots up wmp my program is starts up?

Thanks
SgtSlayer

How Would I Name My .xls File Once It's Opened
I am very new to using excel in VB, however, I have managed to have my app open excel and export data to it. What I would like to do is have the user check to see if there is an .xls file that they have already been updating, and if so, update that one rather than creating a new .xls everytime the app is used. Any Ideas/info would be very welcome

Opened Filename <> Opened Filename
My code searches a directory and opens .xls files, extracts some info and closs the files. It works great except for 1 out of the 3000 files I am opening. When the code opens it, as 205162.xls, Excel adds an extra number to the end of the file name 2051621.xls. or 2051622.xls. I've closed Excel, restarted my computer to make sure the file was not already opened. I have renamed the file from 201652.xls to 201652x.xls, and 5164.xls and it still keeps appending a counter number to the end of the file name. Renaming it to Fred.xls seems to work. I can open it get the info I need but then I can't close it because the file name is different and the Workbook.close (filename variable) statement does not contain the right filename. I have another list of 5000 file to process and want to resolve this. Thanks.

Code:
DirPath = ThisWorkbook.Path & "*.xls"
sFilename = Dir$(DirPath)

Do While sFilename <> "" And sFilename <> ThisWorkbook.Name

Application.ScreenUpdating = False

Set OPwb = Workbooks.Open(Filename:=ThisWorkbook.Path & "" & sFilename)
For Each ws In OPwb.Worksheets
If ws.Name = "Commission" Then
With OPwb.Worksheets("Commission")
OrderNo = .Range("E22").Value
Cust = .Range("G30").Value
TotalSystem = .Range("F8").Value
SellPrice = .Range("I8").Value
DiscAmount = .Range("J14").Value
OvrAmount = .Range("J15").Value
NetCommis = .Range("J26").Value
End With
End If
Next ws
OPwb.Close (savechanges = False)
Set OPwb = Nothing

Application.ScreenUpdating = True

With ThisWorkbook.Worksheets("Sheet1")
.Range("A" & T).Value = OrderNo
.Range("B" & T).Value = Cust
.Range("C" & T).Value = TotalSystem
.Range("D" & T).Value = SellPrice
.Range("E" & T).Value = DiscAmount
.Range("F" & T).Value = OvrAmount
.Range("G" & T).Value = NetCommis
.Range("A" & T).Select
End With
sFilename = Dir$
T = T + 1

Loop
#
Edit by Moderator:
Please use the [vb][/vb] tags when you post your code. Edit or reply to this post to see how.

Thank you .

Opened Windows
What's the easiest way to find out what windows are open?

I am trying to close certain window that is opened by looking at the Windows caption, kind of like pop-up stopper.

Any idea?

Server Has Not Yet Been Opened.
I had design some crystal report, and capture the data from ODBC SQL server. Then users can preview the report from my vb application, but I found that some of crystal report is not problem, and some of crystal report appear message with "Server has not yet been opened.". I checked back to crystal report that got problem, it want me to enter server login password. So I think this is the main cause of the message. My problem is how should I to omit/ solve it, because I don't want to key in password every time that I open the reports.
Can anybody help me?

Application Opened?
How would I go about checking if the current application is currently opened, so there is only one instance of the application opened and display a message when a user attempts to open a clone of it so to speak?

Get Opened Programs
I'm making a server monitoring program to monitor all opened applications that clients opened. My question is how do I detect any opened programs and how do I close them.

-Hao Li-

Is A File Opened?
Is there a way to tell if a file is being opened by some body else?

Opened Programs
How do I get all the opened programs that appears in taskbar I'm trying to make a shell taskbar. If you know please tell me.

-Hao Li-

Launching From Another App Vs App Already Opened..
Hi
I think I need some basic lessons on how to handle files launched from outside the app.

Here is what I know :

I am able to use the Command parameter to retrieve the informations I need to open the files requested :
Shell (AppPath & "MyApp.exe " & TempParam)
I updated the registry, so each time afile with a particular extension is DblClk, it is opening my program with the right infos...

But here is my problem...

Suppose that I am using the shell method. This will open a new version of my app, EVEN if my app is already running...
I would like to have the file opened in the running app, if it is running.
I know that I have to code something related to App.PreviousInstance ( which not work in all situations ), but suppose it is the way to do it... : If App.PreviousInstance = False, what do I do ? How can I refer to a particular process of my running app ( because right now, dealing with Command parameters occurs in my MDIForm1_Load event... )

Somebody understand what I am talking about ?!?

File Already Opened
It keeps on saying file already opened but I used close command. Can someone help. This is a text editor im making that automatically open up the file and everytime you start the program, and you don't need to save your work it does it automatically.

Private Sub Form_Load()

Dim MyString As String

Open "c: esting.txt" For Input As #1
Do Until EOF(1)
Line Input #1, MyString
If EOF(1) = True Then
Text1.Text = Text1 + MyString
Exit Sub
End If
Text1.Text = Text1 + MyString & vbCrLf
Loop
Close #1

End Sub

Private Sub Text1_Change()

Open "c: esting.txt" For Output As #2
Print #2, Text1.Text
Close #2

End Sub
'can someone spot the error.

-Hao Li-

Times Opened
ok so im not bothering with registry stuff etc but with simple variables. every time my form loads there is a hidden textbox with the number of times opened in. I want this number to be saved when the form unloads . Can i do this without a textfile and just variables???

Is Connection Opened
How would I check to see if the connection is open or closed? Also, how would I check to see if a file already exists?

Thanks ahead of time
Rich

Server Is Not Yet Opened
I get this error whenever I try to refresh my crystal report in the crystal report viewer at run time. My report is based on an odbc dsn hitting an oracle table. Any thoughts.

thx
ed

How To Know If A Record Is Currently Opened.
Hello all,

I have all my records stored in SQL Server 7.0, and I have about 10 users who will retrieve record by record from the server in a sequence manner.

However, if user1 retrieves record1, user2 must not retrieve record1, which is currently opened by user1, and retrieve record2.

My question is, is it possible to lock a record such that when user executes a movenext command, it will know that record1 is currently opened and open record2 if record2 is not open by other users?

--Simon

Server Has Not Yet Been Opened
I have created an application using VB6 with a .dsr on a machine with WIN XP Pro sp2. I created a setup program using inno so I can setup on other machine. The first machine that I tested on was a WIN 98 machine and all seems to have went well at first. Application came up...all seemed well. When I went into the application and executed to view my report I received an error. "SERVER HAS NOT YET BEEN OPENED" This error occured once the viewer window was up on the screen for about 1 minute or so. I thought it was timing out but the error occurs. All other portions of the application is working fine. Only when I go to view the report do I get any error. What can cause this problem?? I'm running crystal reports dev 8.5 and pervasive 8.5. If you need more info let me know.

Thanks in advance.

Server Not Yet Been Opened
Hi there!

First of all, I am using VB6-SP5, Crystal 8.0,ODBC 3.51.06 and MySql 4.0.

I saw a lot of articles talking about this topic, but got no success with a call to my crystal Report from my VB code. The code is below:

Private Sub mnuRelCur_Click()
Dim crxDatabase As CRAXDRT.Database
Dim crxCrystal As CRAXDRT.Application
Dim crxReport As CRAXDRT.Report
Dim crxTable As CRAXDRT.DatabaseTable
Dim strLocation As String

With frmReports
.CRViewer.DisplayBorder = False
.CRViewer.DisplayTabs = False
.CRViewer.EnableDrillDown = False
.CRViewer.EnableRefreshButton = False

Set crxCrystal = New CRAXDRT.Application
Set crxReport = crxCrystal.OpenReport(App.Path & "
elcur.rpt")

With crxDatabase
crxDatabase.LogOnServer "which dll", "999.9.9.999", "database", "userid", "pwd"
For Each crxTable In crxReport.Database.Tables
crxTable.SetLogOnInfo "999.9.9.999", "database", "userid", "pwd"
Next
End With

crxReport.DiscardSavedData
.CRViewer.ReportSource = crxReport
.CRViewer.ViewReport

Do While .CRViewer.IsBusy
DoEvents
Loop

.CRViewer.Zoom 94
End With
Set crxCrystal = Nothing
Set crxReport = Nothing

Do I need to insert crxDatabase.LogOnServer? With this line,I´m getting run-time error 91 "object variable or with block variable not set". Without it, I get message "Server not yet been opened"

What do I need to do?

Thanx for any help!
Best regards,

CHM File Opened From Vb App
i am trying to keep users from printing my chm file opened from a vb app, so i need to eliminate the right click menu from the navigation pane of the chm file.

i would like to 'hook' right click events in that pane from the calling app (or suppress them in some other way: perhaps by having the .chm 'notify' my app using 'HHN_TRACK' - cant find any documentation or samples on this one).

any ideas?

Get Opened File
Hello,

I would like to know how can I capture the event when a file is opened.

When I double click an app or a file I want my application to be able to track down this event and for example it will open a msgbox.

Thanks !

Pdf File Opened
please help me any one of the vbforums genius..............

i am scaning documents and my application reading that scaned document after a spcific time period. sometime it read the file which is under process. i get attribut of tht file and which are equal to normal file. mean i am finding no way to determine tht, tht file is process and not completed yet...

please tell me the way to determine it.........

thanks

Server Has Not Yet Been Opened?
I get the above error when trying to open a crystal report. What does this mean?

Check: Already Opened?
I had this question:

i have a command 1 with a msgbox!
Command 2

Now I want, that you only can use command2 if COmmand1 showed the msgbox.
for example:
I use command1: msgbox
5 minutes later
I use Command2.

SO it checks if you already uses that.
Maybe it is posible with sending text to a textbox that is invisible, and then:
If text1.text = lala then msgbox " hihih" else Exit SUb

?