Hi guys,
I am working on Excel 2007 macros. My requirement is to access MS SQL
server DB from excel, using VBA. I am just trying to pull some data by
connecting to DB, but facing this issue: 'Facing 'run-time error
-2147217871 (80040e31) Automation error' in excel VBA'
Below is the chunk of code I am using:
Dim objMyConn
Set objMyConn = New ADODB.Connection
Dim objMyRecordset As New Recordset
Set objMyRecordset = New ADODB.Recordset
Dim strConnectionString As String
Dim strSQL As String
strConnectionString = "{connectionStringDetails}"
strSQL = "select top 10 * from {table name} where server = '{columnName}'
order by 1 desc"
objMyConn.Open strConnectionString
objMyRecordset.Open strSQL, objMyConn
ActiveSheet.Range("A4").CopyFromRecordset objMyRecordset
Any help is appreciated. Thanks.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
