ACCESS

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

↑