FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


データベースに接続する方法

もし・・・この基本 de ご~を参考にされる場合は(いないと思いますが・・・)
まず、基本 de ご~ の注意をご一読下さい。

今回の基本操作は…

データベースへ接続の仕方」です。

データベースの接続方法」でもいいかもしれません。(^^ゞ

レコードの追加や削除・編集などをVBA上で行う場合には
まずデータベースに接続することから始まるわけです。

そんなわけで、とりあえず…がんばってみたいと思います。




データベースに接続すると言っても単純に2パターンがあると思います。

・現在利用しているデータベースに接続する。
・別のデータベースに接続する。

上記の2パターンだと思います。

さらに、接続方法としてはDAOを利用する方法とADOを利用する方法があると思います。
とりあえず、正解かどうかは別として、合計4つの方法を記述しておきます。

Dim db As DAO.Database
Set db = Currentdb()

'処理を記述

db.Close:Set db = Nothing
Dim db As DAO.Database

Set db = DBEngine.Workspaces(0).OpenDatabase(“ファイルのパス”)
'(DBEngine.Workspaces(0). は省略できるみたいです。)

'処理を記述

db.Close:Set db = Nothing
Dim cn As ADODB.Connection

Set cn = CurrentProject.Connection

'処理を記述

cn.Close:Set cn = Nothing
Dim cn As New ADODB.Connection

Cn.ConnectionString = “provider = Microsoft.Jet.OLEDB.4.0;” _
& “Data Source=C:\Program Files\Sample.mdb"
'Data Source= の後に接続するファイルまでの絶対パスを記述する。

cn.Open

'処理を記述

cn.Close:Set cn = Nothing
以上の4つでとりあえず動いてくれると思います。
実際には、外部データベースに接続する際にはパスワードとかの引数があったりしますが、
ここでは割愛してます…

DAOとADOがあるけれど、「どちらを利用すればよいの?」という質問が聞こえてきそうですが、
その質問には正直どのように答えていいのかわかりません。

基本的に利用するデータベースがAccessだけである場合は、DAOで
いいんじゃないかな~~っと思っています。

SQLやMySQLなんかと接続したいときはADOにするのかな~…

…すみません…自分の知識なんてその程度なんですよ…(T‐T)

そうそう…DAOでもADOでも必ずClose処理をする癖をつけるようにしたほうが
よいと思います。

え?なぜか?(・・?)...

え~っと…メモリ上に残ってるとか…なんとか…他の人が使えないとか…なんとか…(-。-) ボソボソ

とりあえず!閉じておけばいいんです!
出したら直す! (☆_☆)ギラッ!
開いたら閉じる!です ( ̄^ ̄) エッヘン!

とりあえず、動かすことが大事なんです。
なんでもやってみることなんです…

自分が理解していない言い訳なんですけどね…(;^_^A




…ああ…ADOなんかでNewを付けるときとつけないときの
区別がわからない…クラスがどうの…インスタンスがどうの…と
本に書いてあるけれど…この凝り固まった頭が理解をなかなかシテクレナイ…

困った…困った…( ̄ ̄ ̄ω ̄ ̄ ̄ ;;)
↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


コメントの投稿

非公開コメント

Author's Profile ~自己紹介~

Genzo

Author:Genzo
PCは一応自作できるレベル。
ワード・エクセルなら基本的に
扱えるレベル。
プログラム・・・?ん?
VBA・・・?ん?ん??
それって美味しいですか?


~ 当ブログについて ~

~ Mail2Genzo  ~

Calender&Search かれんだーと検索

09 | 2018/10 | 11
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -

Access2Genzo内で検索

Category ~かてごりー~

Comments Tree ~こめんとつりー~


Link ~りんく~

ブロとも申請フォーム

Counter ~かうんた~

Since 2010/08/01:

Online:

タグクラウド

最新トラックバック

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。