I would like to use code to change the connection string for linked tables in my front end database. I have tried using the connection property of the TableDefs collection, this seems to work while I step through the code but does not change the existing connection property. Any suggestions?
View RepliesI notice when you hover the mouse over a linked table in the Database window, that a tool tip appears displaying the connection string for that table. Where is this connection string stored and how may it be recovered by other means ( VBA )?
TIA
how do i change a connection string from passthrough query;
i have about 100 passtrhough querys with of course a connection to a databse (oracle). With one button in a form i want to be able to change the connection to another database (oracle).
Thanks for the reply!
Dear friends,
I have a inserted a linked table to my Access2007 DB.
I want to manage disconnecting from this table, with the use of a button on a form, Then, with the use of another button, connect again. :eek:
Is it possible? How???:confused:
Please Respond ASAP (Urgent Need)
Best to U All
Mike:
I Need help,
I have an access 2002 front end and I am linked to a sql server express 2005 backend and in one of my tables I am getting this error when I add a record to a work order table. The error is ODBC connection on INSERT failed on linked table.
A few strange rhings happen. It only involves customers with over (approx.) 140 work orders (there is a one to many with customer to work order). All other customers seem to be immune to this.
Also, if you go to the tables directly from a access database window, you can still add/edit or delete records, but in the form view, it gives you an error.
I have tried several things including changing code (the orgional code was set dbs= currentDB and dbs.execute("INSERT.......)
I have found similiar posting but no real direct causes. does anyone have any ideas on how to resolve this?
Thanks
Frank
Is it possible to change which table in an external database that my linked table is pointing to using VBA? (Access 2000)
Example code appreciated!
Regards
My webhosting company lives on clusters - thus, the C: path does not exist. They have
the string in the type: \iis621domains bnaglobal.com.
In the code of my eCommerce config.asp file, I tried
'connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\iis621domains bnaglobal.comuser\_xxy yzzARZTU8934.mdb;"
and I am getting:
Error!
'C:domains bnaglobal.comuser\_xxyyzzARZTU893 4.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
How can I fix this connString so my DB can work.
Here are the various options:
' Database Connection String.
'
' EXAMPLE : DSN-less connection for SQL Server
' connString="driver={SQL Server};server=SERVER_NAME;uid=USER_ID;pwd=PASSWOR D;database=DB_NAME"
' connString="provider=sqloledb;Data Source=SERVER_NAME;User Id=USER_ID;Password=PASSWORD;Initial Catalog=DB_NAME"
'
' EXAMPLE : DSN-less connection for MS Access
' connString="driver={Microsoft Access Driver (*.mdb)};DBQ=C:inetpubwwwrootstore.mdb;"
' connString="provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:inetpubwwwrootstore.mdb;"
'
' EXAMPLE : DSN connection (all databases)
' connString="dsn=NAME_OF_YOUR_DSN"
'---------------------------------------------------------------------
'connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:inetpubwwwrootstore.mdb;"
'connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\iis621domains bnaglobal.comuser\_xxy yzzARZTU8934.mdb;"
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:domains bnaglobal.comuser\_xxyyzzAR ZTU8934.mdb;"
Please help. thanks.
I have been trying to get a connection string to work with an OLEDB provider. I beleive the format of the string I was given is not correct. Here is a copy of the code. The string starts with quation marks but does not end with same. If I add the quotation marks I get an error. I have checked the string and it does not show the password included.
Dim rstSource As Object
Dim rstTarget As Recordset
Dim Datapath As String
Dim DataSelector As String
Dim Connection As Object
ClearCustomers (True)
Set rstTarget = CurrentDb.OpenRecordset("Profile", dbOpenDynaset)
Datapath = "C:SOFTRAKOLWINSamdataDATA"
DataSelector = "FTC"
AdagioUserID = "SYS"
AdagioPassword = "SYS"
Set Connection = CreateObject("adodb.connection")
Connection.Provider = "ADSDB.Provider"
Connection.ConnectionString = "Password=" & AdagioPassword & ";User ID=" & AdagioUserID & ";Data Source=" & Datapath$ & "" & "DATA." & DataSelector$
Connection.Open
Debug.Print Connection.ConnectionString
Set rstSource = Connection.Execute("@R65ACST")
Debug result
Provider=ADSDB.Provider.1;Persist Security Info=False;User ID=SYS;Data Source=C:SOFTRAKOLWINSamdataDATADATA.FTC;Mode =0
Thanks.
View 1 Replies View RelatedI have a linked table and want to change it's data source to another table entirely -- ie: different file name.
Can this be done with linked tables, or can you just link to another file with the same name but in another directory? If linked tables have this limitation, how would you accomplish what I'm trying to do. I want to keep the same name for the linked table.
Ultimately, I want to populate a listbox with the different files in a directory and change tblSource to point at the chosen data source.
Thanks,
Randy
This question will surely show my amateur Access skills... I have to add a field to a linked table. However, the table doesn't save my changes. Is there something I need to do before I make my change?
I get the error message "Table 'name' is a linked table with some properties that can't be modified. Do you want to open it anyway?
Any ideas? Thank you! :confused:
I am using the following code in a Word macro. It seems to fall over on the 'ObjConn.Open strConn' line with the message [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified.
Any pointers would be much appreciated.
All I am needing is to access a MDB and pull out a couple of fields.
Code: Dim ObjConn As New ADODB.Connection Dim rs As Recordset Dim strConn As String Dim PNo As String PNo = Application.ActiveDocument.Name PNo = Left(PNo, Len(PNo) - 4) strConn = "Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "D:ProjectTimesheets.mdb;" ObjConn.Open strConn rs.Open "SELECT * FROM tblProjects WHERE ProjSerialNo = " & PNo, ObjConn, adOpenKeyset, adLockPessimistic, adCmdText MsgBox rs.Fields("ProjTitle")
I faced this error :
Run-time error '-2147467259(80004005)
The database has been placed in a state by user 'Admin' on machine "topleveldomain' that prevents it from being opened or locked.
in vba code :
I write such as :
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:My ProjectBEdatabase1.accdb;"
I have used the ms access 2013.
I also have split this database such as instruction by people but nothing effect.
I am trying to put together a vba adodb connection string to a remote server. It is the first time I am using adodb in this context. I can get msysobj.connect but how do I format that information into a connection object connection string?
View 3 Replies View RelatedI have a question about connection strings. Basically I have an access front end and an access back end. It works fine for now, but when it gets rolled out, I don't want to have to manually relink the tables every time. Is it possible to hard-code the database connection strings for all the tables used in the solution as the paths won't change once deployed?
View 4 Replies View RelatedCurrently we have a web based order taking/inventory system. Every night they export a .db to an FTP server and every morning I download it (I automated this part, it replaces the older file). I link to this database (using SQLlite3 to ODBC driver) from an Access database for specifically this purpose.
When I originally created it I had to go through every table and create a unique identifier. Unfortunately I chose poorly in some cases. I can't figure out how to get those primary keys changed to the correct ones. I've tried recreating the ODBC connection, tried a new database and new ODBC connection, tried killing the connection waiting a day (for the new .db to download) and recreating the connection and trying it in a new database.I know access doesn't allow you the change the primary key in a linked table.
I have a question about connection strings. Basically I have an access front end and an access back end. It works fine for now, but when it gets rolled out, I don't want to have to manually relink the tables every time. Is it possible to hard-code the database connection strings for all the tables used in the solution as the paths won't change once deployed?
View 9 Replies View RelatedI read a lot about Access database bloat when using temporary tables that reside in the front end, which was where I created and used temporary tables before reading about bloat.I therefore wrote a routine on startup that creates a temporary database and then copies the structure of the temporary tables into that temporary database using the DoCmd.TransferDatabase command. It kills the DB on exiting the application.I also read about keeping a persistent connection (handle) open to a linked DB as long as the main application is active, and this for efficiency reasons. I got this to work as well.
Being a self-taught Access programmer I have two questions:
1.Is the use of docmd.Transferdatabase a good way to work and does it reduce bloat by transferring the structure of the temp files to the temporary database?
2.If I want to work with the tables in my temporary database I use the following code for example:
Dim dbTemp As Database temporary database
Set dbTemp = DBEngine.Workspaces(0).OpenDatabase(strDBTemp)
Set rstRpt = dbTemp.OpenRecordset("tblRptPU001", dbOpenDynaset) ..
My question is this: if, at the end of the procedure, I write
dbTemp.close
set dbTemp = Nothing
does this leave the persistent connection open? The reason for the question is that I intend to split the database and soon go multi user, which is when efficiency is even more important than when working on a temporary database.
I am using MS Access 2007.
I have created a multi-valued field "Product Category" that lookups data items from a linked table. So, the Data Type for the multi-valued field "Product Category" is Number.
Now I want to change the Data Type of "Product Category" from Number to Text, and make a value list that I can type values in and can provide the same data items as the linked table.
How to change item source for the multi-valued field from a linked table to a list that I can type in values? Is there a feature provided by MS Access 2007 can enable such a conversion?
Our master database has linked tables with ODBC to our SQL database and linked tables to another access database. On the computer i'm running this from a System DSN data source has been created to connect to our SQL database.
The problem I'm having is when I run Macros to kick off Queries, there seems to be some kind of timeout issue and its not consistant. Sometimes in Access after a hour or two, the ODBC links somehow just fails. I have to go up to the menu and go to 'Get External Data' and then 'Link Tables' and relink the ODBC DSN connection. I make sure to hit save password and the end but that doesn't seem to do much. This also happens sometimes when I close and reopen the database.
But it seems erratic, sometimes it can stay up for hours but sometimes just a few mins. Sometimes I can close the Access database and reopen without losing connection. Being so erratic, this makes it very hard for me to run batch files nightly to kick off Macros. Is there some kind of inactivty timer for DSNs? Or maybe with the SQL database itself? Or is the way i'm restablishing the ODBC connection wrong ?
I am using MS Access 2007.
I have created a multi-valued field "Product Category" that lookups data items from a linked table. So, the Data Type for the multi-valued field "Product Category" is Number.
Now I want to change the Data Type of "Product Category" from Number to Text, and make a value list that I can type values in and can provide the same data items as the linked table.
How to change item source for the multi-valued field from a linked table to a list that I can type in values?
Is there a feature provided by MS Access 2007 can enable such a conversion?
I have MDB database linked to SQL SERVER through VPN connection.I created links to the sql server Links are dsnless..Everything works fine but when I lost VPN connection or sql connection has been broken I can't refresh links to the tables.I receive message 3146 sql connection failed..I must close database and start again...
I tried different methods like ado,dao, and vba docmd.transferdatabase,aclink... but no success, table cant be relinked.
Only way I can relink is to change ip adress in conn.string
E.g. 192.124.0.2 (1st ip- router server ip) and after connection failed i can use 192.124.0.32 (2nd ip - server local ip) and that's it if i lost connection for the 3rd time... i must restart application.
It seems that access database keep the previous connection..how to reset or drop database connection to the sql server and refresh links to the tables with vba code without closing access database...
I am trying to build a Form that will show an estimate (then eventually will be moved to a project if customer and employee aggree to price and project) in a Form F_Estimates is a M_Customers(Customer_ID) (Based on a Table) and thier info in a Subform. Also is the "projected costs" from parts out of the Parts(Part_ID) (Based on another Table) in a second Subform as a list that I need to calculate $$$ in
(Dang that still sounds evil and definately NOT understandable even after edit... so)
Here's some basic info
Tables
EstimatesandParts - Table
EstimatesandParts_ID : Autonumber
Estimate_ID : Number
Part_ID : Number
Parts - Table
Part_ID : Autonumber
PartNumber : Text (not a number due to some part#s have letters in them)
PartName : Text
Unit Price : Currency
Description : Text
Estimates - Table
Estimate_ID : Autonumber
InvoiceNumber : Text (again can have letters in it)
EstimateDate : Date/Time
EstimateTime : Date/Time
Employee_ID : Number
Customer_ID : Number
ProblemDescription : Memo
Customers - Table
Customer_ID : Autonumber
FirstName : Text
LastName : Text
CompanyName : Text
Address : Text
City : Text
Province_State : Text
Postal_ZIPCode : Text (CDN Postal codes are letter num letter...)
you can see the link table in the EstimatesandParts Table
Now I want to use that link to populate a subform in the F_Estimates form
Forms
SF_Customers - SubForm
(all boxes atm are text boxes on this form till I figure out the Parts section then will use same base for this so I can pick any customer in the database to be the customer for this estimate. Also will have ctrl button for making new customer with customer form and a refresh on Focus Gain bit of code)
FirstName
LastName
CompanyName
Address
City
Province_State
Postal_ZIPCode
SF_Parts - SubForm
Default View -Continuous Forms
(want it to be a list of parts that I can grab prices and descriptions from then in a bit of code to calculate a cost of parts)
Part_ID : Combo Box
Control Source - Part_ID
Row Source Type - Table/Query
Row Source - SELECT Parts.Part_ID, Parts.PartNumber, Parts.PartName, Parts.UnitPrice, Parts.Description FROM Parts ORDER BY Parts.Description;
(Pulls info from the table Parts for input into a list of parts to be used on that project)
PartName : Text Box
UnitPrice : Text Box
(here's where I run into problems due to the fact that the form is not based on the parts table but rather the link table EstimatesandParts so I can't propogate the info to the 2 other text boxes, ps I dont care if they cant be text boxes and have to be linked or some other type I'm not "set" just need to find out how to make it work )
(have tried a couple things to complete this task)
Me.txtPartName = Me.Part_ID.Column(2)
Me.txtUnitPrice = Me.Part_ID.Column(3)
(works AWSOME ... for ONE ROW then propogates the second selection to the first and second and third selection to first second and third and so on ...)
(tried to make control source for the txtPartName to)
=Forms!Parts!Partname
(Doesnt exist .. akkk, cant use ActiveForm either as it doesn't focus on the SubForm but the MainForm ... cry)
F_Estimates - Form
Estimate_ID
InvioceNumber
EstimateDate
EstimateTime
ProblemDescription
(all basic Text Boxes)
Employee_ID
Customer_ID
(Combo Boxes Select Customer and Employee from list of present ones of each)
SF_Customers
SF_Parts
(Both SubForms on the main form)
Now this is an Exerp from my entire Database I like to work on one small problem at a time and I have made this its own little database till I figure out the problem then I will bring the info I learn back into the rest of the database and go from there ...
Hope you can help I have a feeling I will need to make a recordset and go from there but I'm just not able to wrap my head around that for some reason
Thanks in advance for ANY and ALL help that I get from here
I have linked tables from SQL Server using ODBC connection that their location never changes. I have used certain fields of those tables to create queries and make table queries to derive to the information I needed.
On these tables on SQL Server, there is new data added daily. Every day, midnight, there's new data records added of whatever transactions took place in that working day. how often do I need to refresh linked tables in this case to get the latest data added. I mean, once I am linked, the make table query using those defined fields, would it get the latest data added by default when the query is executed, or I must refresh linked tables using Linked Table Manager and then run make table query.
Also, if I want the access to automatically refresh linked tables, can I use the following code? I have added this code, and executing it through a button, but I don't see anything happen, the database becomes inactive for couple seconds (I guess while it is updating) but I don't know is it updating the tables for sure or not, though I am not receiving any error when executing the code through the button.
Function RefreshLinkedTables()
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Len(tdf.Connect) > 0 Then
tdf.RefreshLink
End If
Next td
End Function
I am trying to use a textbox value to call vba code and can not get it to work.
I keep getting an error on the call str1 line.
Code:
Sub formscript()
Dim str1 As String
str1 = [Forms]![fscripts2]![t3]
'MsgBox str1
If str1 = "" Then
str1 = "err1"
Exit Sub
Else
Call str1 ' this is where it call the script based on value in textbox
End If
End Sub
Hi
Is there any way to change or write a string in module from Form?
Rahul