0

学生コースが BSIT の場合はすべての教員を読み込み、すべての BSIT 教員をピクチャ ボックスに読み込みます。

Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Dim arrImage() As Byte
Dim myMS As New IO.MemoryStream
Dim sSQL As String = String.Empty
Try
  sSQL = "SELECT b.FacultyID, b.Image, b.Course, a.Course"
  sSQL = sSQL & " FROM studentsrecords as a left join facultynew as b "
  sSQL = sSQL & " on a.ID = b.FacultyID WHERE(a.Course = @Course) order by a.Course"

  con = New OleDbConnection(Get_Constring)
  con.Open()
  cmd.Connection = con
  cmd.CommandType = CommandType.Text
  cmd.CommandText = sSQL
  '  cmd.Parameters.Add("@EvaluationID", OleDbType.VarChar).Value

  dr = cmd.ExecuteReader
  If dr.HasRows Then
    While dr.Read
      If Not IsDBNull(dr("Image")) Then
        myMS = New IO.MemoryStream
        arrImage = dr("Image")
        For Each ar As Byte In arrImage
          myMS.WriteByte(ar)
        Next
      End If
      Select Case dr("Course")
        Case 1
          Me.pic1.Tag = dr("FacultyID")
          Me.pic1.Image = System.Drawing.Image.FromStream(myMS)
        Case 2
          Me.pic2.Tag = dr("FacultyID")
          Me.pic2.Image = System.Drawing.Image.FromStream(myMS)
        Case 3
          Me.pic3.Tag = dr("FacultyID")
          Me.pic3.Image = System.Drawing.Image.FromStream(myMS)
        Case 4
          Me.pic4.Tag = dr("FacultyID")
          Me.pic4.Image = System.Drawing.Image.FromStream(myMS)
        Case 5
          Me.pic5.Tag = dr("FacultyID")
          Me.pic5.Image = System.Drawing.Image.FromStream(myMS)
        Case 6
          Me.pic6.Tag = dr("FacultyID")
          Me.pic6.Image = System.Drawing.Image.FromStream(myMS)
        Case 7
          Me.pic7.Tag = dr("FacultyID")
          Me.pic7.Image = System.Drawing.Image.FromStream(myMS)
        Case 8
          Me.pic8.Tag = dr("FacultyID")
          Me.pic8.Image = System.Drawing.Image.FromStream(myMS)
        Case 9
          Me.pic9.Tag = dr("FacultyID")
          Me.pic9.Image = System.Drawing.Image.FromStream(myMS)
        Case 10
          Me.pic10.Tag = dr("FacultyID")
          Me.pic10.Image = System.Drawing.Image.FromStream(myMS)
      End Select
    End While
  End If

  Catch ex As Exception
    MsgBox(ErrorToString)
  Finally
    con.Close()
  End Try
4

1 に答える 1

0

試す

cmd.Parameters.AddWithValue("@EvaluationID", ValueForParameter)

これは写真用

Dim bm As Bitmap
arrImage() = dr.Item("Picture")
ms.Write(arrImage, 78, arrImage.Length - 78)
bm = New Bitmap(ms)

Select Case dr("Course")
    Case 1
      Me.pic1.Tag = dr("FacultyID")
      Me.pic1.Image = bm
于 2013-09-18T14:58:55.080 に答える