ACCESS
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
* [[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 Pass...
** リンク
[[Access会議室>http://www7.big.or.jp/~pinball/discus/acce...
[[日付の書式設定>http://www.h5.dion.ne.jp/~p-s-s/vb/vb/fo...
[[Access_VBA講座>http://www.geocities.jp/cbc_vbnet/index....
** 参考書籍
** コメント
-#comment
終了行:
* [[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 Pass...
** リンク
[[Access会議室>http://www7.big.or.jp/~pinball/discus/acce...
[[日付の書式設定>http://www.h5.dion.ne.jp/~p-s-s/vb/vb/fo...
[[Access_VBA講座>http://www.geocities.jp/cbc_vbnet/index....
** 参考書籍
** コメント
-#comment
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
