ACCESS の変更点

追加された行はこの色です。
削除された行はこの色です。
ACCESS へ行く。
#freeze
* [[ACCESS]]
#contents

** TIPS
***パラメータクエリ　
 Dim dbs         As Database
 Dim qry         As QueryDef
 Dim rst         As Recordset
 Set dbs = CurrentDb
 Set qry = dbs.QueryDefs("Q_HOHO")
 qry.Parameters!prm1 = "hoho"
 Set rst = qry.OpenRecordset()
 Do Until rst.EOF
    rst.MoveNext
 Loop
 rst1.Close
 dbs.Close
***SQL実行
 Set qry = dbs.CreateQueryDef("")
 strSQL = "Delete * From TBhoho Where "
 strSQL = strSQL & " hoho = 'hohodata'"
 qry.SQL = strSQL
 qry.Execute dbFailOnError
 lngCount = qry.RecordsAffected  ←　影響を受けたレコード件数
***MDBファイルが壊れた(ファイルが開けない)場合の修復
 MSACCESS.EXE  /decompile c:\hoho.mdb

***MDBにパスワードを設定した場合のデータリンク
 [oledb]
 ; Everything after this line is an OLE DB initstring
 Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=hogepass;Data Source=hogedb.mdb;Persist Security Info=False

** リンク
[[Access会議室>http://www7.big.or.jp/~pinball/discus/access/index.html]]~
[[日付の書式設定>http://www.h5.dion.ne.jp/~p-s-s/vb/vb/format.html]]~
[[Access_VBA講座>http://www.geocities.jp/cbc_vbnet/index.html]]~
** 参考書籍

** コメント
-#comment