There was a Spelling Mistake use this : MicroSoft.ACE.OLEDB.12.0 instead of MicroSoft.Jet.OLEDB.4.0
-----Original Message----- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of oryn Sent: Monday, August 29, 2011 2:16 PM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ how to connect with accdb database from excel Thank you for quick responses :) On 29 Sie, 10:40, "Rajan_Verma" <rajanverma1...@gmail.com> wrote: > Use ACE.OLDEB.12.0 instead of Jet.OleDB.4.0 > > > > -----Original Message----- > From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > > On Behalf Of oryn > Sent: Monday, August 29, 2011 1:45 PM > To: MS EXCEL AND VBA MACROS > Subject: $$Excel-Macros$$ how to connect with accdb database from excel > > Hi, > I have a macro that should open Access 2007 database in .accdb format. > Code works with .mdb format but with .accdb it doesn't. It returns > message that programme is unable to open database (I checked it with > several databases in .accdb format). Does anybody have a solution? > > Sub Pokarz_form_lista_klientow() > Dim rsKwerenda As ADODB.Recordset > Dim oConn As ADODB.Connection > Dim sSciezkaBazy As String, sSql As String > Dim rKlienci As Range > > Range("V_klienci").ClearContents > sSciezkaBazy = Sheets("A_Ust").Cells(1, 2) > Set oConn = New ADODB.Connection > oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & > sSciezkaBazy & ";" > > sSql = "SELECT Klient_Id, Status, Umowa, Region FROM Klienci > order by Status asc, Klient_Id asc" > > Set rsKwerenda = New ADODB.Recordset > rsKwerenda.Open sSql, oConn > Set OpenADODBRecordset = rsKwerenda > > -- > --------------------------------------------------------------------------- - > ------ > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links :http://twitter.com/exceldailytip > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below linkhttp://www.facebook.com/discussexcel- Ukryj cytowany tekst - > > - Pokaż cytowany tekst - -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
