*

Accessの使い方経過_03 ODBC

公開日: : 最終更新日:2013/07/16 Access

AccessからMysqlに接続するために必要なMySQL ODBC 3.51 DriverなるものをVistaにインストールする。

DL元は以下:ユーザー登録が必要

http://dev.mysql.com/downloads/mirror.php?id=411279

インストールして使えるように設定する方法については以下を参考

ODBCドライバのインストール

http://www.aspdotnetnatokoro.com/mysql/odbc/Default.aspx

 

Sub tmp()
'Access VBA Tips
'4.5 MySQLのデータベースを開く・閉じる

Dim adoCON As New ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim cnt As Integer
Dim str As String
Dim serchStr As String
Dim sqlStr As String
serchStr = "osaka"
str = ""
'①ADOを使いMySQLのDBを開きます
If dbConnect(adoCON) Then

sqlStr = "SELECT* FROM table1 WHERE adress LIKE '%" & serchStr & "%' "
'レコードセットの作成(SELECT文の実行)
Set adoRS = adoCON.Execute(sqlStr)

Dim accessRecord As New ADODB.Recordset
accessRecord.Open "table1", CurrentProject.Connection, , adLockOptimistic
'最終レコードまで順読み込みを行う
Do Until adoRS.EOF = True
accessRecord.AddNew
accessRecord!id = adoRS("id").Value
accessRecord!name = adoRS("name").Value
accessRecord!adNum = adoRS("adNum").Value
accessRecord!adress = adoRS("adress").Value
accessRecord!telNum = adoRS("telNum").Value
accessRecord!comment = adoRS("comment").Value
accessRecord.Update

adoRS.MoveNext

Loop

Debug.Print cnt
'レコードセットのクローズ
adoRS.Close
'②データベースのクローズ
adoCON.Close
End If
'オブジェクト変数のクリア
Set adoRS = Nothing
Set adoCON = Nothing
MsgBox "END"
End Sub
Function dbConnect(adoCON As Object) As Boolean
'①ADOを使いMySQLのDBを開きます
adoCON.Open "Driver={MySQL ODBC 5.2a Driver};" & _
"server=192.168.x.x; database=testData02; uid=use01; pwd=1000;"
dbConnect = True
End Function

 

 

 

 

 

 

admax_area



関連記事

no image

Accessの使い方経過_02

1、データの整理 ひとまとまりになったデータを地域ごとに分割する>マクロ化 データベースに登録

記事を読む

no image

Accessの使い方経過_01

アクセスをみんなで使う方法を調査中。 はじめの一歩として、アクセスを共有する方法が有るが、同時アク

記事を読む

no image

Accessの使い方経過_04画面遷移

ログイン画面:Mysqlサーバへログインする dbファイルを起動すると出てくるフォーム ID・PW入

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

admax_area



PAGE TOP ↑