Copy Access Query to Excel via VBA (error 3343) -

-

i'm attempting copy results of access query , paste excel tab. i've googled around can't seem work, error "error 3343: unrecognized database format" assume has references have checked.

does know correct references need work?

references:

visual basic application

microsoft excel 14.0 object library

ole automation

microsoft office 14.0 object library

microsoft activex data objects 2.8 library

microsft dao 3.6 object library

sub query() dim db dao.database dim rst dao.recordset dim sql string dim icol integer  sheets("datadump1").select selection.clearcontents  end set db = opendatabase("c:\folder\databasename.accdb") set rst = db.openrecordset("query 1")  icol = 1 rst.fields.count  activesheet.cells(1, icol) = rst.fields(icol - 1).name  next icol  activesheet.range("a2").copyfromrecordset rst rst.close db.close set rst = nothing set db = nothing  end sub

consider calling access object before initializing database , recordset objects. also, use opencurrentdatabase method opendatabase dbengine workspace object.

sub query()     dim accobj object     dim db dao.database     dim rst dao.recordset     dim sql string     dim icol integer      sheets("datadump1").cells.clearcontents      set accobj = createobject("access.application")     accobj.opencurrentdatabase("c:\folder\databasename.accdb")      set db = accobj.currentdb     set rst = db.openrecordset("query 1")      icol = 1 rst.fields.count         sheets("datadump1").cells(1, icol) = rst.fields(icol - 1).name     next icol      sheets("datadump1").range("a2").copyfromrecordset rst     rst.close     db.close      set rst = nothing     set db = nothing     set accobj = nothing  end sub

alternatively, no need interface access object access database not .exe can connected via odbc/oledb other rdms (oracle, sql server, mysql, etc.)

sub runsql()     dim conn object, rst object     dim strconnection string, strsql string     dim icol integer      set conn = createobject("adodb.connection")     set rst = createobject("adodb.recordset")      sheets("datadump1").cells.clearcontents  '    strconnection = "driver={microsoft access driver (*.mdb, *.accdb)};" _ '                      & "dbq=c:\folder\databasename.accdb;"     strconnection = "provider=microsoft.ace.oledb.12.0;" _                        & "data source='c:\folder\databasename.accdb';"      strsql = " select * [query 1];"      ' open db , recordset     conn.open strconnection     rst.open strsql, conn      ' column headers     icol = 1 rst.fields.count         sheets("datadump1").cells(1, icol) = rst.fields(icol - 1).name     next icol      ' data rows     sheets("datadump1").range("a2").copyfromrecordset rst      rst.close     conn.close     end sub

Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more