ADO OLE Database Connection

Queries datasource and insers data into datasource.

Description

This code basis on Tim Myers code (oledb*.m) and uses ADO OLE DB instead of OWC - Office Web Component. When OWC not installed (e.g. MS Office 2000) using ADO OLE DB can be a solution. The syntax is similar to Tim Myers code.

The Code is tested only with MS Access database.

Acknowledgements

The author wishes to acknowledge the following in the creation of this submission:
database connection mfiles

• MATLAB release: MATLAB 7.3 (R2006b)
• Other Files: adodb/adodbcn.m, ; adodb/adodbcnstr.m, ; adodb/adodbinsert.m, ; adodb/adodbquery.m, ; adodb/adodb_demo.m, ; adodb/adotest.mdb

[Ryan Schaezler]

Works well. I was having problems with OWC even though it was install on one computer. Using the ADODB connection worked without any issues.

[Martijn Koopman]

Very easy to use and extremely fast interface with Microsoft Access *.MDB files.

[Christy Lynch]

This is a fantastically easy interface to use for Access databases. The problem is a memory leak. Releasing the connection and clearing the connection variable does not release the memory used up by the connection. Only restarting Matlab seems to work.

[jairo Ortiz]

 

[hardik nadiyana]

really help ful thanx,
hardik

[Laszlo Sragner]

h=actxserver('ADODB.Connection');
h.Open(connstr);
res=h.Execute(sqlstr);
x=res.GetRows()';
h.Close();
delete(h);

Maybe the leak was due to the 'release' command at the end instead of 'delete'

[deepa deepa]

 

[Jasleen K.]

Thanks a tonne..!!!!
solved my problem.!!

[Leen K.]

want to use variables in the sql queries...
kindly suggest a way.
e.g. sql=['select * from TestTable where firstname=',myname ,'];
5this statement wont replace variable myname

[Guyennon Nicolas]

Thanks a lot !!! Amazing work, even faster than Tim Myers code (oledb*.m)
I'm working with your toolbox to query access 2003 database.
I was looking for table, field and query information. Tooks me 4 days ... hope that could help someone else

%% get table name
sqltablename='SELECT name FROM MSysObjects WHERE Type=1 AND Flags=0 ORDER BY name';
tablename=adodbquery(cn,sqltablename);
%% get query name
sqlqueryname='SELECT name FROM MSysObjects WHERE Type=5 AND Flags=0 ORDER BY name';
queryname=adodbquery(cn,sqlqueryname);

note that in both case you should first change users authorization to read for MSysObjects opening your access database. ("user and group authorization" menu in tools)

the hardest part was to get fields or columns name ...

function field_name=tablefieldname(cn,table_name)
%% find all field name from table
sqlfiledname=['SELECT * FROM ' table_name];
invoke(cn,'BeginTrans');
r = invoke(cn,'Execute',sqlfiledname);
invoke(cn,'CommitTrans');
nbfileds=r.Fields.count;field_name='';
for ff=1:nbfileds
    fld=r.Fields.Item(ff-1);
    field_name=strvcat(field_name,fld.name);
end

bye
Nico