求助，在vb2005中如何显示片，急！
我的问题是，在人事档案中要显示个人的资料、照片，资料可以显示，问题是配合资料如何显示照片我不会做，我试着用access数据库来显示，照片可以放入，和控件绑定可以显示，但是无法通过程序来输入照片数据，也无法配合查找来显示照片，恳请高手赐教思路，或代码，本人万分感谢！
[解决办法]
这是sqlserver的,你参考下
<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.SqlClient" %>
<HTML>
<HEAD>
<title>DisplayDBImageExample</title>
<script language="C#" runat="server">
void SubmitBtn_Click(object sender, System.EventArgs e)
{
int ImgID = Convert.ToInt32(ImgIDTextBox.Text);
string ConnStr = System.Configuration.ConfigurationSettings.AppSettings["ConnectionSqlServer"];
string query = "SELECT * FROM ImageTable WHERE ImageID = @ImageID";
SqlCommand myCommand = new SqlCommand(query, new SqlConnection(ConnStr));
myCommand.Parameters.Add("@ImageID", SqlDbType.Int);
myCommand.Parameters["@ImageID"].Value = ImgID;
myCommand.Connection.Open();
SqlDataReader dr = myCommand.ExecuteReader();
if(dr.Read())
{
Response.ContentType = (string)dr["ImageContentType"];
Response.OutputStream.Write((byte[])dr["ImageData"], 0, (int)dr["ImageSize"]);
}
else
{
Response.Write("没有这个图片的ID号");
Response.End();
}
dr.Close();
myCommand.Connection.Close();
}
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<h3>将数据库保存的图片显示到页面上示例</h3>
输入图片在数据库中的ID：
<asp:textbox id="ImgIDTextBox" runat="server"></asp:textbox>
<asp:button id="SubmitBtn" runat="server" Text="显示" OnClick="SubmitBtn_Click"></asp:button>
</form>
</body>
</HTML>
[解决办法]
存入access数据库
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim img As String
Dim frm As New OpenFileDialog 类。
frm.Filter = "图片(jpg)|*.jpg|图片(bmp)|*.bmp|其它|*.*"
frm.ShowDialog()
Try
img = frm.FileName
PictureBox1.Image = System.Drawing.Image.FromFile(frm.FileName)
Catch ex As Exception
Exit Sub
End Try
Try
Dim sqlstr As String
sqlstr = "INSERT INTO name(相片) Values('" & img& "')"
Dim Comm As New OleDbCommand(sqlstr)
'设置SqlCommand的此实例使用的SqlConnection
Comm.Connection = Conn
'打开数据库连接
Conn.Open()
'执行不返回行的命令
Comm.ExecuteNonQuery()
'关闭数据库连接
Comm.Connection.Close()
MsgBox("添加成功。", MsgBoxStyle.OkOnly + _
MsgBoxStyle.Exclamation, "添加成功")
Catch ex As Exception
MsgBox("添加失败。", MsgBoxStyle.OkOnly + _
MsgBoxStyle.Exclamation, "添加失败")
End Try
End Sub
'读取
Dim sqlma As String
Dim dsma As New DataSet()
dsma.Clear()
sqlma = "select * from name where cstr(ID)='" & c_id & "'"
dsma = GetDataFromDB(sqlma)
If Not dsma Is Nothing Then
Me.PictureBox1.Image = Image.FromFile(Trim(dsma.Tables(0).Rows(0)("相片")))
