Mysql 显示以前在Picturebox中扫描或检索的图像

我只是想为我的RFID考勤系统项目提供一些帮助。应该扫描RFID标签以从数据库mysql检索信息和图像。第一个学生将扫描他的RFID标签，以在picturebox1中显示他的图片，当另一个学生扫描picturebox1时，picturebox1将更新为新的学生图片和数据，而上一个显示在picturebox2上。这里的问题是如何显示学生的上一张图片。仅仅是图像，数据不包括在内

我有一个两张照片的盒子

Picturebox1是为新生扫描的 Picturebox2适用于上一个学生或在新课程之前扫描的学生

谢谢你们，任何建议和评论都将不胜感激

这是我的密码

Private Sub studtag_TextChanged（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理studtag.TextChanged
如果studtag.TextLength=8，则
con=新的MySqlConnection
con.ConnectionString=“server=localhost；userid=root；password=1234；database=dat”
将查询设置为字符串
query=“从数据学生中选择*
cmd=新的MySqlCommand（查询，con）
Dim表作为新数据表
尝试
con.Open（）
'获取或设置用于选择数据库中记录的SQL语句或存储过程。
使用cmd
.Connection=con
.CommandText=“从学生中选择*，其中'studtags`='&studtag.Text&'”
以
da.SelectCommand=cmd
da.填充（表格）
'它从特定列获取数据并将其填入文本框
studtag.Text=表.行（0）.项（0）
idno.Text=表.行（0）.项（1）
lastxt.Text=表.行（0）.项（2）
firstxt.Text=table.Rows（0）。项（3）
middletxt.Text=表.行（0）.项（4）
dob.Text=表格行（0）。项目（6）
crsetxt.Text=表.行（0）.项（10）
tagtxt.Text=studtag.Text
timein.Text=times.Text
dr=cmd.ExecuteReader（）
里德博士（）
如果dob.Text=datenow.Text，则
问候。Text=“祝你生日快乐”
如果结束
Dim img（）为Byte=CType（dr（“studpic”），Byte（）
将ms用作新IO.MemoryStream（img）
PictureBox1.Image=Image.FromStream（毫秒）
终端使用
插入（）
加载表（）
特例
Notenrolled.Show（）
最后
con.Dispose（）
con.Close（）
结束尝试
如果结束
端接头
公共子加载表（）
con=新的MySqlConnection
con.ConnectionString=“server=localhost；userid=root；password=1234；database=dat”
Dim SDA作为新的MySqlDataAdapter
Dim dbDataset作为新数据表
将bSource设置为新BindingSource
尝试
con.Open（）
将查询3变暗为字符串
query3=“从dat.studlogs中选择studtags、idno、lastxt、firstxt、middletxt、dob、log、timein、crse”
cmd=新的MySqlCommand（query3，con）
SDA.SelectCommand=cmd
SDA.Fill（数据库数据集）
bSource.DataSource=dbDataset
DataGridView1.DataSource=bSource
SDA.Update（数据库数据集）
DataGridView1.Sort（DataGridView1.Columns（8），System.ComponentModel.ListSortDirection.Ascending）
如果dbDataset.Rows.Count>0，则
logins.Text=table2.Rows.Count.ToString（）
如果结束
con.Close（）
特例
MessageBox.Show（例如Message）
最后
con.Dispose（）
结束尝试
端接头
私有Sub-Student_Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
加载表（）
“现在约会
Timer2.Start（）
尝试
DataGridView1.AllowUserToAddress=False“禁用或隐藏（*）符号…”。。。
DataGridView1.RowHeadersVisible=False'隐藏左侧指示器。。
DataGridView1.DefaultCellStyle.SelectionBackColor=Color.SteelBlue“选择背景色…”。。。。
DataGridView1.AlternatingRowsDefaultCellStyle.BackColor=Color.LightGoldenrodYellow“交替背景色”。
DataGridView1.AllowUserToResizeRows=False“已禁用行大小调整…”。。。
DataGridView1.ReadOnly=True
DataGridView1.MultiSelect=False
DataGridView1.SelectionMode=DataGridViewSelectionMode.FullRowSelect
DataGridView1.ShowRowErrors=False
DataGridView1.ShowCellErrors=False
表2.Columns.Add（“学生标记”，Type.GetType（“System.String”））
表2.Columns.Add（“学生ID”，Type.GetType（“System.Int32”））
表2.Columns.Add（“姓氏”，Type.GetType（“System.String”））
表2.Columns.Add（“名字”，Type.GetType（“System.String”））
表2.Columns.Add（“中间名”，Type.GetType（“System.String”））
表2.Columns.Add（“Status”，Type.GetType（“System.String”））
表2.Columns.Add（“生日”，Type.GetType（“System.String”））
表2.Columns.Add（“Time in”，Type.GetType（“System.String”））
表2.Columns.Add（“课程/秒”，Type.GetType（“System.String”））
特例
结束尝试

这很简单，您可以使用按钮显示上一张图像：

  If datagridview1.CurrentRow.Index < datagridview1.Rows.Count Then
  datagridview1.Rows(datagridview1.SelectedRows(0).Index - 1).Selected 
             = True
 Dim pic As Byte()
 pic = datagridview1.CurrentRow.Cells(1).Value
 Dim ms As New MemoryStream(pic)
 pbox1.BackgroundImage = Image.FromStream(ms) 

如果datagridview1.CurrentRow.Index

这很简单，您可以使用按钮显示上一张图像：

  If datagridview1.CurrentRow.Index < datagridview1.Rows.Count Then
  datagridview1.Rows(datagridview1.SelectedRows(0).Index - 1).Selected 
             = True
 Dim pic As Byte()
 pic = datagridview1.CurrentRow.Cells(1).Value
 Dim ms As New MemoryStream(pic)
 pbox1.BackgroundImage = Image.FromStream(ms) 

如果datagridview1.CurrentRow.Index