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 RepliesHiI currently have an Access Database in a BE/FE, server/client LAN architecture at a single office location. My client would like to allow one user to 'add new records' to the database on the weekends (i.e. after hours), without needing to come into the office.From my research, it seems I can setup Remote Desktop to connect from the client's home PC directly to the server PC, across the internet, using Windows XP Professional on both computers. Is it that simple, or should I be considering other things?
View 5 Replies View RelatedMy 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 Relatedhow 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!
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 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
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 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 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 9 Replies View RelatedI 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 2 Replies View RelatedMS-Access VBA code to separate numbers and string from an alphanumeric string.
Example:
Source: 598790abcdef2T
Output Required: 598790
Source: 5789065432abcdefghijklT
Output Required: 5789065432
Dear Guys,
How to Establish the connection between Ms-Access2000 & Oracle using DAO Connection through Code?.
I created one table in Oracle and I created User-DSN in ODBC.
I linked that oracle table into Ms-Access MDB using Link table option in ms-Access.
Now, Whenever I open that mdb, we need to establish the ODBC connectivity automatically through code (I mean, we need to refresh automatically).
I need to hardcode all the information in the Ms-Access code.
My User DSN Name: abcd
Oracle Database Name: abcd
Schema Name(User Name): abcd
password: abcd
In the code below I want to wait for ten seconds if there is connection to the server, if not to exit the sub with message "No connection to server". How to check it
Dim req As New XMLHTTP60
Dim resp As New DOMDocument60
Dim xmlNodeList As IXMLDOMNodeList
Dim myNode As IXMLDOMNode
Dim xmlNode As IXMLDOMNode
Dim presription As IXMLDOMNode
req.Open "GET", "https://api.zdravstvo.gov.mk/rest/prescriptions/" & Me.br_recept, False
req.send
resp.LoadXML req.responseText
How I can check if connection to SQL server is established with VBA before the SQL is executed. btw I use VPN connection to connect to sql server, and some times VPN connection is going down in middle of work and it is quite unconvinced.
View 2 Replies View RelatedI have an excel spreadsheet that uses a data connection to a website to download text. I have the data connection properties to refresh upon opening the file. If i double click the file from windows, it updates. Although using the code below doesn't work. When i've added the code ObjXL.Save before closing it, it usually saves a file with no data and no cells. I'm eventually going to switch visible to false.
Private Sub btnDownLoadSettle_Click()
Dim XLapp As New Excel.Application
Dim ObjXL As Excel.Workbook
Set ObjXL = XLapp.Workbooks.Open("C:...Settlements.xlsx")
ObjXL.Application.Visible = True
ObjXL.Windows(1).Visible = True
Sleep (5000)
ObjXL.Close
XLapp.Quit
End Sub
I'm trying to do something with Excel and Access. From Excel 2007, I need to open an Access database exclusive, import from Access to Excel a table, do some work within Excel, and then start a macro within the Access database. Briefly, here’s what I have
1) To open the database exclusively:
Set connDB = New ADODB.Connection
With connDB
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Mode = adModeShareExclusive
.Open strdbpath 'path to database
End With
2) To import from Access:
strSQL = "SELECT * FROM [" & tn & "];" 'tn is Access table
If connDB.State = adStateOpen Then
Set objRS = New ADODB.Recordset
objRS.Open strSQL, connDB, adOpenForwardOnly
On Error Resume Next
objRS.MoveFirst
If Err.Number = 0 Then
On Error GoTo 0
fieldCnt = objRS.Fields.Count
For fieldNum = 0 To fieldCnt - 1
ws.Cells(1, fieldNum + 1).Value = objRS.Fie(fieldNum).Name
Next fieldNum
ws.Cells(2, 1).CopyFromRecordset objRS
End If
End If
3) To start a macro:
DoCmd.RunMacro "Daily Import"
Everything seems to work until the ‘DoCmd’ statement where I get a “You can’t carry out this action at the present time” error message.
old Access database that's been upgraded through to Access 2000 or 2003 (probably 2000), but not beyond. Was rebuilt in Access 2003 format around 2006/2007 (by someone else who no longer works here). Being used now in Access 2007 and 2010. Uses DSN to connect to SQL Server backend. Last week it was SQL Server 2005, moved the back end on Saturday to SQL Server 2012. Changed the DSN when moving to the new server. But I don't think this has to do with the DSN (it's getting data just fine).
There's a data entry form. User enters a Generator ID, event triggers it to look for the details for the generator and load them into a generator subform. After it loads the information into the subform, and before the user does anything else, it throws "This connection cannot be used to perform this operation. It is either closed or invalid in this context."It triggers post update of the Generator ID:
Code:
Private Sub txtGeneratorID_AfterUpdate()
On Error GoTo Handle_err
Me.txtGeneratorID = UCase(Me.txtGeneratorID)
Call FillHandlerSubform(Me.subGeneratorInfo, Me.txtGeneratorID.Value)
If GetGenStat(Me.txtGeneratorID.Value) = "N" Or GetGenStat(Me.txtGeneratorID.Value) = "OB" Then
MsgBox "Warning Generator Status! " & UCase(Me.txtGeneratorID.Value) & vbCrLf & _
"This Generator has a status of N or OB!", vbCritical, "Bad Generator Status!"
Cancel = True
End If
[code]....
It doesn't throw this error in the development copy of the database, dev copy works just fine. It only throws it from the production version. They are located on the same network, just in different folders. They are pointing to the same database on the same SQL Server using a DSN file located inside the folder where the .mdb file is located (this is a change in the front end, prior to this it was using a DSN on each individual machine, but I changed it to stop that).
I 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 have a picture stored on a network file share that populates each time a particular form is opened. Every so often we lose our connection (which is a different issue altogether). Right now the error I get after much grinding away, is "Bad file name or number"
Is there a quicker way to check for the connection before it spends 45 seconds trying to find the whole path?
Code:
Dim vFolderPath As String, dirFile As String, strFile As String
vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'"))
dirFile = vFolderPath & Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
strFile = dirFile & "profile_pic.*"
'Debug.Print dirFile
On Error Resume Next
If Dir(strFile) <> vbNullString Then
Me.[ctrl_ImageFrame].Picture = dirFile & "" & Dir(strFile)
Else
Me!ctrl_ImageFrame.Picture = "X:~stuffprofile_icon.png"
End If
I am looking to automate the process of linking my Access DB with an ODBC connection to an SQL DB with VBA (unless there's an easier way to do it?) - some sample code - if this is possible at all?
View 2 Replies View RelatedI 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...
Right Ok i hope i can get some help cause im absolutely stumped..
i cant get my login page to work since moving it from my PWS(iis on xp) DSN connection
to a 24/7 server on the net with DSNless connection
here is the code for the include file "conntopwd.asp"
http://www.pritchardwebdesign.pwp.blueyonder.co.uk/conntopwd.txt
the username and path has been changed slightly for security purposes,
and the code for the login page which attempts to access the database is here
http://www.pritchardwebdesign.pwp.blueyonder.co.uk/login.txt
the connection has been tested by one of the tech support guys at brinkster and he told me it was ok,
the problem was the way that the data is called from the data base is wrong ..
The tech support guy said that it was this line that was causing the problem..
MM_rsUser.ActiveConnection = MM_conntopwd_STRING
Any help would be much appreciated as im stuck for now..
I'm trying to get a value from a spreadsheet to import into my MS Access database. Currently I am trimming the spaces/carriage returns from it but need to strip some more data from the value.
Here is my code.
trimmed_department = Trim(Replace(new_department, vbCrLf, ""))
Example value being "123 Point 5 Finance and Accounting"
I want to use Mid (I think?) to remove the "123 Point 5" (it is always the same with no exceptions) but don't know how to use it as I don't know how to use multiple parameters within a string.
I want to add a string as year to a date.
Somehow it doesn't work out. It should extract all records with Valid_from = 01.01.2013 and valid_to = 31.12.2013. The Year assignment works.
Code:
Public Sub BEN()
Dim strSQL As String
Dim t As Date, s As Date
DoCmd.SetWarnings False
Year = Right(pricedate, 4)
t = 1 / 1 / " & Year & "
s = 12 / 31 / " & Year & "
strSQL = "SELECT TRANSFER_PRICES.* INTO [TEMP] " & _
" FROM TRANSFER_PRICES " & _
" Where [Valid_from] = " & Format(t, "#mm/dd/yyyy#") & _
" AND [Valid_to] = " & Format(s, "#mm/dd/yyyy#")
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub