'Access
Sub a01_InODBC()
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _
"DBQ=C:\Users\kh2\SkyDrive\drinks\PL\test1.accdb;"
'フルパス
End Sub
'MyODBC5.3_Connector/ODBCによる接続
Sub a02_InODBC()
cn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" _
& "SERVER=localhost;" _
& "DATABASE=test;" _
& "UID=root; OPTION=3;" _
& "PASSWORD=*****"
End Sub
Sub a03_InODBC()
cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=C:\Users\kh2\SkyDrive\drinks\num3;"
'フォルダーまでのパス
End Sub
Sub a04_InODBC()
cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=C:\Users\kh2\SkyDrive\drinks\PL\会計ソフト.xlsm;"
'フルパス
End Sub
'udlファイルによる接続 Mysql Access他
Sub a05_InODBC()
cn.Open "File Name=C:\Users\kh2\SkyDrive\drinks\PL\pl1.udl;"
'udlファイルのフルパス
End Sub
'切断 共通
Sub a09_OutODBC()
On Error Resume Next 'エラーがあった場合次へ
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub