Jan 18th, 2016

Microsoft Activex Data Objects 2.8 Library Machine Learning

Never

I'm just starting to use SQL and need to use the microsoft activex data objects library. I see in my References dropdown various versions of it 2.1 thru 2.8 and 6.1. I'm trying to figure out which one to use. How will using microsoft activex data objects v2.8 vs v6.1 impact me in Excel 2010 on Win 7 vs Win XP?
If you don't see the Microsoft Activex Data Objects 2.8 library to the references list, download the MDAC 2.8 in microsoft download center.
NAME='Microsoft ActiveX Data Objects 2.8 Library' UUID='2A75196C-D9EB-4129-B803-931327F72D5C' note it has a different UUID. Share improve this answer follow answered Aug 3 '09 at 13:08. Mjjames mjjames. 151 6 6 bronze badges. Add a comment Your Answer.
On the menu bar, click Tools and select References. When the dialogue box opens, scroll down and find Microsoft ActiveX Data Objects 2.8 Library and tick the checkbox. As you can see, there are several different ones in there. Because most environments haven’t taken the plunge and upgraded to Office 2010, the newest 6.1 library will not work.

Microsoft ActiveX Data Objects library, 2.5 vs 2.8 (too old to reply) Qwert 2005-01-23 14:36:29 UTC. Hello, I need to know what the differences are between MS ADO 2.5 and 2.8. Currently using 2.5 and would like to know the arguments to go to 2.8. Having trouble finding comparison between the 2 on internet. If anyone knows, or knows a.

Not a member of Pastebin yet?Sign Up, it unlocks many cool features!

'Add a reference to the Microsoft ActiveX Data 2.8 or later Object Library
Dim cnt As ADODB.Connection
Dim stDB As String
Set cnt = New ADODB.Connection
'Create the connectionstring.
stCon = 'Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;' & _
cnt.Open stCon
'''''''''''''''''''''''''''''''''''''''
With rst
.CursorLocation = adUseServer
.Seek Range('dx32').Value
.Fields('QuoteNum') = Sheets('Quote Notice').Range('dx32').Value
.Fields('OtherCost') = Sheets('Cost').Range('b3').Value
.Fields('StocklistCost') = Sheets('Cost').Range('b4').Value
.Fields('DesignHrs') = Sheets('Cost').Range('b5').Value
.Fields('ProductionHrs') = Sheets('Cost').Range('b6').Value
.Update
Else
End If
'''''''''''''''''''''''''''''''''''''''
'Close the recordset and close the connection.
cnt.Close
Set cnt = Nothing
ExitSub:
'...and set to nothing if no such record

RAW Paste Data

Microsoft Activex Data Objects Library

'Add a reference to the Microsoft ActiveX Data 2.8 or later Object Library 'via the Tool | References... in the VB-editorDim cnt As ADODB.ConnectionDim rst As ADODB.RecordsetDim stDB As StringDim stCon As String 'Instantiate the ADO COM's objects.Set cnt = New ADODB.ConnectionSet rst = New ADODB.Recordset 'Pathway and name of the database stDB = 'P:Quote Log.mdb' 'Create the connectionstring.stCon = 'Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;' & _'Data Source=' & stDB & ';' 'Open the connectioncnt.Open stCon'''''''''''''''''''''''''''''''''''''''Find and Update the record in AccessWith rst .Index = 'PrimaryKey' .CursorLocation = adUseServer .Open 'tbQuote', cnt, 1, 3, adCmdTableDirect .Seek Range('dx32').Value If Not rst.EOF Then .Fields('QuoteNum') = Sheets('Quote Notice').Range('dx32').Value .Fields('OtherCost') = Sheets('Cost').Range('b3').Value .Fields('StocklistCost') = Sheets('Cost').Range('b4').Value .Fields('DesignHrs') = Sheets('Cost').Range('b5').Value .Fields('ProductionHrs') = Sheets('Cost').Range('b6').Value .Update Else MsgBox 'No such record...not updating.' End IfEnd With'''''''''''''''''''''''''''''''''''''''Close the recordset and close the connection.rst.Closecnt.CloseSet cnt = NothingExitSub:Set rs = Nothing'...and set to nothing if no such recordExit Sub