DB DEV!!

コンボボックス

2013-07-19T17:22:41+09:00

#blockquote{Option Compare Database Option Explicit Dim Combo1 as new clsDb Dim strSQL as string Private Sub Form_Load() strSQL="select * From tblコンボボックステスト" where cmbID='002' order by cmbOrder asc" If Combo1.ExecSelect(strSQL)=True then Set Me.ComboBox1.Recordset=Combo1.GetRS End if End Sub} コンボボックスの設定 -値集合タイプ：テーブル/クエリ -列数：任意 -列幅：2列の例）1cm,1cm

フォームロード時のデータ読込み

2013-07-19T15:19:25+09:00

フォームモジュール #blockquote{Option Compare Database Option Explicit Const strDbAdd = "c:\db1.mdb" &color(black,aqua){'外部MDBの場合} Const T_sample = "T_sample" &color(black,aqua){'テーブル名} Dim strSQL As String '************************************************************************************ 'フォームロード時のデータ読込み '************************************************************************************ Private Sub Form_Load() strSQL = "select * from " & T_sample Call SelectData(strSQL) End Sub '************************************************************************************ 'Select発行 '************************************************************************************ Private Sub SelectData(strSQL) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open CurrentProject.Connection &color(black,aqua){'内部MDBの場合} 'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbAdd &color(black,aqua){'外部MDBの場合} rs.CursorLocation = adUseClient rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly Set Me.Recordset = rs.Clone &color(black,aqua){'自フォーム} 'Set Me.サブフォーム名.Controls.Parent.Recordset = rs.Clone &color(black,aqua){'サブフォーム} rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub} -参照設定 "Microsoft ActiveX Data Objects X.X Library" -Select発行を同フォームモジュール内の他処理で使いまわすために別Subとした -Select発行を標準モジュールに置くと処理が遅くなったのでフォームモジュールに含めた(大体15ms→40ms) -フォームビューからデザインビューに変更した時、&color(red){マシン'<マシン名>' のユーザー 'Admin' がデータベースを開けない状態、またはロックできない状態にしています。}のエラーが出力される。Connectionの書き方を変えることで回避可能。原因等→http://www.accessclub.jp/bbs6/0004/das705.html ロック対策（内部MDBの場合） #blockquote{Dim cn As ADODB.Connection &color(black,aqua){'NEWを削除} Set cn = CurrentProject.Connection &color(black,aqua){'内部MDBの場合}} ロック対策（外部MDBの場合） #blockquote{Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbAdd &color(black,aqua){'外部MDBの場合}} #html2(){

*表題1
パラグラフ
>引用
|列1|列2|列3|列4|h
|a|b|c|d|
|a|b|c|d|

}

トップページ

2013-07-19T10:53:32+09:00

[[[cls]データベース操作]] [[処理時間を計測する]] [[フォームロード時のデータ読込み]]

トップページ元

2013-07-19T10:50:43+09:00

**@wikiへようこそ -ウィキはみんなで気軽にホームページ編集できるツールです。 -このページは自由に編集することができます。 -メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます **まずはこちらをご覧ください。 -[[@wikiの基本操作>http://atwiki.jp/guide/category2.html]] -[[用途別のオススメ機能紹介>http://atwiki.jp/guide/category22.html]] -[[@wikiの設定/管理>http://atwiki.jp/guide/category6.html]] **分からないことは？ -[[@wiki ご利用ガイド>http://atwiki.jp/guide/]] -[[よくある質問>http://atwiki.jp/guide/category1.html]] -[[無料で会員登録できるSNS内の@wiki助け合いコミュニティ>http://sns.atfb.jp/view_community2.php?no=112]] -[[@wiki更新情報>http://www1.atwiki.jp/guide/pages/264.html]] -[[@wikiへのお問合せフォーム>http://atwiki.jp/helpdesk]] 等をご活用ください **@wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list(112) **その他お勧めサービスについて -[[大容量１Ｇ、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES>>http://atpages.jp/]] -[[無料ブログ作成は@WORDをご利用ください>>http://atword.jp/]] -[[2ch型の無料掲示板は@chsをご利用ください>>http://atchs.jp/]] -[[フォーラム型の無料掲示板は@bbをご利用ください>>http://atbb.jp/]] -[[お絵かき掲示板は@paintをご利用ください>>http://atpaint.jp/]] -[[その他の無料掲示板は@bbsをご利用ください>>http://atbbs.jp/]] -[[無料ソーシャルプロフィールサービス @flabo(アットフラボ)>>http://sns.atfb.jp]] **おすすめ機能 -[[気になるニュースをチェック>http://atwiki.jp/guide/17_174_ja.html]] -[[関連するブログ一覧を表示>http://atwiki.jp/guide/17_161_ja.html]] **その他にもいろいろな機能満載！！ -[[@wikiプラグイン>http://atwiki.jp/guide/category17.html]] -[[@wiki便利ツール>http://atwiki.jp/guide/category32.html]] -[[@wiki構文>http://atwiki.jp/guide/category16.html]] -[[@wikiプラグイン一覧>http://www1.atwiki.jp/guide/pages/264.html]] -[[まとめサイト作成支援ツール>http://atwiki.jp/matome/]] **バグ・不具合を見つけたら？要望がある場合は？お手数ですが、[[お問合せフォーム>http://atwiki.jp/helpdesk]]からご連絡ください。

[cls]データベース操作

2013-07-19T10:49:19+09:00

クラスモジュール[clsDb] #blockquote{Option Compare Database Option Explicit Dim objADOCON As New ADODB.Connection Dim objADORS As New ADODB.Recordset &color(black,aqua){'DB接続} Private Sub Class_Initialize() Set objADOCON = Application.CurrentProject.Connection End Sub &color(black,aqua){'DB切断} Private Sub Class_Terminate() On Error Resume Next objADOCON.Close objADORS.Close Set objADOCON = Nothing Set objADORS = Nothing On Error GoTo 0 End Sub &color(black,aqua){'SQL Select発行} Public Function ExecSelect(strSQL) As Boolean ExecSelect = False On Error Resume Next objADORS.CursorLocation = adUseClient objADORS.Open strSQL, objADOCON, adOpenForwardOnly, adLockReadOnly &color(black,aqua){'SQL実行結果を判定} If objADOCON.Errors.Count = 0 Then ExecSelect = True End If On Error GoTo 0 End Function &color(black,aqua){'SQL Select以外発行} Public Function ExecSQL(strSQL) As Boolean ExecSQL = False On Error Resume Next objADOCON.Execute strSQL &color(black,aqua){'SQL実行結果を判定} If objADOCON.Errors.Count = 0 Then ExecSQL = True End If On Error GoTo 0 End Function &color(black,aqua){'トランザクション開始} Public Sub BeginTrans() objADOCON.BeginTrans End Sub &color(black,aqua){'トランザクション終了コミット} Public Sub Commit() objADOCON.CommitTrans End Sub &color(black,aqua){'トランザクション終了ロールバック} Public Sub Rollback() objADOCON.RollbackTrans End Sub &color(black,aqua){'レコードセット取得} Public Property Get GetRS() As ADODB.Recordset Set GetRS = objADORS End Property}

条件検索

2013-07-15T14:21:06+09:00

#blockquote{Option Compare Database Option Explicit Const strDbAdd = "c:\db1.db" Private Sub コマンドボタン01_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String strSQL = "select * from T_sample" &color(black,aqua){'ここで条件検索用のSQL作成} cn.Open CurrentProject.Connection &color(black,aqua){'内部MDBの場合} 'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbAdd &color(black,aqua){'外部MDBの場合} rs.CursorLocation = adUseClient rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly Set Me.Recordset = rs.Clone &color(black,aqua){'自フォームの場合} 'Set Me.サブフォーム名.Controls.Parent.Recordset = rs.Clone &color(black,aqua){'サブフォームの場合} rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub}

右メニュー

2013-07-15T12:48:21+09:00

**更新履歴 #recent(20) &link_editmenu2(text=ここを編集)

処理時間を計測する

2013-07-14T01:49:41+09:00

標準モジュール #blockquote(){&color(black,aqua){'GetTickCountの定義} Private Declare Function GetTickCount Lib "kernel32" () As Long Private BufferTime As Long Public Sub StopWatch_Start() BufferTime = GetTickCount() End Sub Public Sub StopWatch_Finish(strSQL)&color(black,aqua){'フォームモジュールから受け取り} Debug.Print Format(GetTickCount() - BufferTime, "000000") & " ms" & " -> " & strSQL End Sub } フォームモジュール #blockquote(){Call StopWatch_Start Call StopWatch_Finish(strSQL) } http://www.excellenceweb.net/vba/debug/stopwatch.html 様より拝借

test01

2013-07-13T18:30:36+09:00

aaaa
aaaaa

コンセプト

2013-07-13T16:29:27+09:00

-データ操作はSQLで行う -クエリを使わない