2012年10月1日月曜日

LibreOffice のマクロからAccessデータベースに接続(CreateObject とADO)

以下のサンプルでは、LibreOffice3.5.6.2(Windows) のマクロからAccess2003データベースに接続しています。CreateObject とADOを使用しています。c:\passwd.mdb" というAccessデータベースには、password というテーブルがあってkeyword,password,dateなどのフィールドが存在します。Excelのマクロとしても動作するはずです。




sub adodb

 Set conn = CreateObject("ADODB.Connection")
 Set rs = CreateObject("ADODB.Recordset")
    
   conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\passwd.mdb"
    
    rs.Open "select * from password", conn ,3,3

    msgbox rs.fields.Count
    msgbox rs.recordcount

    rs.movefirst
    rs.MoveNext

    MsgBox "--" & rs.Fields.Item("keyword")
    
 rs.Addnew
 rs.Fields.Item("keyword")="AAAAA"
     rs.Fields.Item("password")="GUESS"
     rs.Fields.Item("date")="2012/10/01"
 rs.Update
  
    rs.Close
    conn.Close
    
msgbox "end"

end sub






参照させていただいたサイト
http://www.w3schools.com/ado/ado_ref_recordset.asp

0 件のコメント:

コメントを投稿