VB2010 DBから値取得→パス指定で画像表示

質問

VB2010でPictureBoxを使用してデータベースから値を取得して
PictureBox1.Image =System.Drawing.Image.FromFile("取得した値" & ".jpg")
という形でPictureBoxに画像を表示させたいのですが
FileNotFoundExceptionはハンドルされませんでした。とエラーが出てできません。

Dim command As SqlClient.SqlCommand = connection.CreateCommand()
connection.Open()
Dim dr As SqlClient.SqlDataReader
command.CommandText = "SELECT s_code FROM テーブル名 ORDER BY s_code"
dr = command.ExecuteReader()

PictureBox1.Image =System.Drawing.Image.FromFile("..\..\pict" & "dr(s_code)" & ".jpg")

データベースのs_codeとpictのフォルダ内にあるパスは一緒です。

回答No.2

temtecomai2 · ベストアンサー

#1 さんご指摘の "dr(s_code)" が dr("s_code") の書き間違いだとして、、、
さらに "..\..\pict" が "..\..\pict\" の書き間違いだとして、、、
これらの補正を行ったうえで、画像ファイルのパスが質問者のイメージしているパスになるかどうか、ですかね。

System.IO.Path.GetFullPath(相対パス)
これで相対パスを絶対パスに変換した文字列が取得できる。
もちろん相対パスを絶対パスに直すのだから、今現在の基準パスがどこにあるのかってのが重要になる。
一般的にアプリを起動してから基準パスを変更していなければ、アプリのファイルが置いてある場所が基準になる。
これをもとに、はたして相対パスで指定した画像ファイルの場所が想定通りになっているかを確認するのなら
MessageBox.Show(System.IO.Path.GetFullPath("..\..\pict\" & dr("s_code") & ".jpg"))
としてみればよい。

どうしても pict の後ろの "\" を指定したくないのならこういう書き方もある。
MessageBox.Show(System.IO.Path.GetFullPath(System.IO.Path.Combine("..\..\pict", "s_code" & ".jpg")))

ちなみに現在の基準パスがどこなのかを確認するには
MessageBox.Show(System.IO.Directory.GetCurrentDirectory())
で確認することができる。

お礼

パスは間違ってました・・・
画像ファイルがある場所は間違ってないのですが
「存在しないデータを読み取ろうとしました」とエラーが出ました

C:\Users\～\Debug\pict\に画像が置いてあり
基準パスがどこなのか確認したところC:\Users\～\Debugでした。

回答No.1

MARU4812

> FileNotFoundExceptionはハンドルされませんでした。
「FileNotFoundException　というエラーが発生しましたが、
エラーハンドリングされていませんでした。」という意味です。

> FileNotFoundException
そのまま中学レベルの英語の解釈で分かると思います。
「ファイルが見つかりませんでした。」というエラーです。
パスが間違っているのでしょう。

> ("..\..\pict" & "dr(s_code)" & ".jpg")
この結果は"..\..\pictdr(s_code).jpg"という文字列ですよ？
パスが完全にありえないものになっていますね。

お礼

パスが間違ってますね
気付きませんでした！
ありがとうございます。