November 22nd, 2011, 03:29 PM
Connection error only during start-up
I'm trying to make an ADO connection to a csv file. (path and file name stored in string “PathImportDataBanken”, file name in “BestandImportDataBanken”)
Every first time I start up my programme, the programme strands on the 'rs.open'-statement.
the error-screen I'm getting (it's in Dutch):
"Error # -2147467259 De geselecteerde instelling van de sorteervolgorde wordt niet ondersteund door het besturingssysteem."
(In english: "Error # -2147467259 The selected option for sorting is not supported by the operating system.")
Here's the connection-code: (VeldDatumImportDataBanken = date field)
I only receive the error when opening the programme for the FIRST time only... When I run the code a second or third time, no error appears.
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
cnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & _
PathImportDataBanken & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited(;)"";" & _
"Persist Security Info=False"
strSQL = "SELECT * FROM " & BestandImportDataBanken & "ORDER BY [" _
& VeldDatumImportDataBanken & "]"
rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
When a change :
strSQL = "SELECT * FROM " & BestandImportDataBanken
everything works fine from start-up.
-Visual Basic for applications 7
-MS access 2010 reference to
• VB for applications
• MS access 14.0 Object Library
• OLE automation
• MS Office 14.0 access database engine object library
• MS VB for applications extensibility 5.3
• MS activeX data objects 6.0 library
Your help and Time is appreciated.
November 22nd, 2011, 04:31 PM
I have never used the jet provider for text csv files.
Doesn't ADO have a text file driver that may be easier? Just a guess, I have no idea on your problems, sorry.
Bartender to Rene Descartes "have another beer?" Descartes: "I think not" and he vanished.