This queries the MS Access database .mdb, dictionary in this case:

----------------------------------------------------------------------
@DAO
args query,dao,db,rs,rc
dao=com.create_object("DAO.dbEngine.36")
db=dao.OpenDatabase(?"C:\path\dictionary.mdb")
rs=db.OpenRecordset;;+
("SELECT * FROM dictionary WHERE word = "++?'"'++query++?'"')
if(rs.BOF && rs.EOF)do
osd.show("No Match!")
else
rs.MoveLast
rc=rs.RecordCount
rs.MoveFirst
for(local i=1;i<=rc;i=i+1)
clip.set(rs.Fields(0).Value++" <=> "++rs.Fields(1).Value,1)
rs.MoveNext
endfor
endif
rs.close
db.close
quit

@ADO
args query,rs,rc
rs=com.create_object("ADOdb.Recordset")
rs.open("dictionary WHERE word = "++?'"'++query++?'"',;;+
?"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=;;+
C:\path\dictionary.mdb",1,-1,-1)
if(rs.BOF && rs.EOF)do
osd.show("No Match!")
else
rs.MoveLast
rc=rs.RecordCount
rs.MoveFirst
for(local i=1;i<=rc;i=i+1)
clip.set(rs.Fields(0).Value++" <=> "++rs.Fields(1).Value,1)
rs.MoveNext
endfor
endif
rs.close
quit
----------------------------------------------------------------------

Sean






Attention: PowerPro's Web site has moved: http://www.ppro.org



SPONSORED LINKS
Computer monitoring software Power pro Computer and internet software
Free computer monitoring software


YAHOO! GROUPS LINKS




Reply via email to