VBで郵便番号を入力したら自動住所表示

質問

VBで郵便番号を入力したら自動住所表示したいと思っています。
KEN_ALL.CSVをダウンロードして
ACCESSへインポートしたのですが
そこからどうしたら良いかわかりません。
おしえてください

回答No.2

tarotarotarou · ベストアンサー

こんな感じですかね？
なんとなくですみません。

Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim rs As OleDb.OleDbDataReader

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=～\ファイル名.mdb"

cn.Open()

'コマンド設定
cmd = cn.CreateCommand
cmd.CommandText = "select 都道府県名,～～"

'コマンド実行してリーダーを設定
rs = cmd.ExecuteReader
rs.Read()

Textbox1.Text = rs.Item("都道府県名").ToString

rs.Close()
cn.Close()

補足

OleDbConnectionのところでユーザー定義が定義されていませんとエラーが出ます。

回答No.1

sakura-pon

Accessのファイルに対して、SQLかADO等で郵便番号に紐づくデータを取得してください。
簡単です。