Private Sub CARD_NR_TextChanged(sender As Object, e As EventArgs) Handles CARD_NR.TextChanged
Try
If con.State = ConnectionState.Open Then
con.Close()
End If
con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\FBIJAY\Desktop\XPRESSIONS WC2\XPRESSIONS WC2\MEMBER DETAILS.mdf;Integrated Security=True"
con.Open()
cmd = con.CreateCommand()
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from Table6 where CARD_NR='" + CARD_NR.Text + "'"
cmd.ExecuteNonQuery()
dr = cmd.ExecuteReader
If dr.HasRows Then
Else
con.Close()
con.Open()
End If
While dr.Read
Txt5.Text = dr.GetString(1).ToString
ACCESS_COUNT.Text = dr.GetString(2).ToString()
CONTRACT.Text = dr.GetString(5).ToString()
CARD_NR.Text = dr.GetString(6).ToString()
FULL_NAME.Text = dr.GetString(8).ToString()
SURNAME.Text = dr.GetString(9).ToString()
MEMBERSHIP_DESCRIPTION.Text = dr.GetString(25).ToString()
NOTES.Text = dr.GetString(44).ToString()
Pic1.Text = dr.GetString(45).ToString()
Dim img As Byte()
img = DataGridView1.CurrentRow.Cells(45).Value
Dim ms As New MemoryStream(img)
Pic1.Image = Image.FromStream(ms)
End While
Catch ex As Exception
End Try
End Sub
尝试通过条形码扫描仪将图片串成不同的形式。