|
なおのＥｘｃｅｌ教室 さんの「exvol108」データベースの更新・参照（３）より 【参照設定をする】 １月２３日に続いて設定します visual Basic Editorを開いてメニューバーの〔ツール〕→〔参照設定〕を選択します 〔Microsoft Activex Data Object 2.8 Library〕にチェックを入れて〔ＯＫ〕を押します 標準モジュールの〔Option Explict〕の次の行に Const DB_FILE = "\j1.mdb" Const CON1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Const DB_PATH = "\data" Public con As ADODB.Connection と入力します 【プロシージャに記述する】 メニューバーの〔挿入〕→〔プロシージャ〕を選択します 〔プロシージャの追加〕画面が表示されたら名前に〔db_open〕と入力します 種類を〔Function〕に変更して〔ＯＫ〕を押します Pub Function db_open（）というプロシージャが作成されますので
半角スペースの後に〔As String〕と記述します そこに Dim database_path As String
Dim database_file As String
db_open_err:On Error GoTo db_open_err database_path = ThisWorkbook.Path & DB_PATH database_file = database_path & DB_FILE Set con = New ADODB.Connection con.Open CON1 & database_file db_open = "ok" Exit Function
db_open = Err.Number & Err.Description と記述します
同じようにメニューバーの〔挿入〕→〔プロシージャ〕を選択します〔プロシージャの追加〕画面が表示されたら 名前に〔db_close〕と入力します 種類を〔Function〕に変更して〔ＯＫ〕を押します Public Function db_close（）というプロシージャが作成されますので 半角スペースの後に〔AS String〕 と入力します そこに On Error Resume Next
con.Close
ここまで来たら保存しますSet con = Nothing db_close = Err.Number & Err.Descriptionと記述します |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
前で作ったデータベースを使用するための準備だね〜(^^
2006/1/28(土) 午後 7:47 [ なお ]
悲しいかなエクセルも休んでしまうと分らなくなる様な気がしますので、忘れないうちに＼(*⌒0⌒)ｂがんばっ♪です。
2006/1/29(日) 午後 2:24
今Flashを一区切りまで早く練習してもらわなきゃって思ってそっちを急いでるけどExcelも続く予定だからね〜〜〜(^^
2006/1/29(日) 午後 2:46 [ なお ]
何時もありがとうございます！Ｆｌａｓｈも難しいですが期日まで頑張ります。(^^♪
2006/1/29(日) 午後 4:22