0

私は教員の新しいレコードと学生のレコードの2つのテーブルを持っています.,. 教員の新しいフィールドは、FacultyID、FacultyFirstName、FacultyLastname、Course、Image、Level で構成され、学生のレコードは IDNumber、Firstname、MiddleName、Course で構成されます

私は1つのテキストボックスとピクチャボックスと1つのボタンを持っています

私のテキストボックスはすでに機能しています.,.,IDNumber を使用してログインすると、IDNumber のコースが表示されます.,.,すでに問題ありません.,.,.,

ボタン ex.txtbox=BSIT をクリックすると、私の問題は教師をロードし、データベースにすべての BSIT コースの教師をロードします。長いバイナリ データ

学生のコース = BSIT の場合、画像ボックスに BSIT を教える教員の IMAGE をロードします。

私はコードを持っていますが、専門家の助けが必要です..,.このコードは読み込まれません

Dim con As New OleDbConnection
Dim dr As OleDbDataReader
Dim arrImage() As Byte
Dim myMS As New IO.MemoryStream
Dim cmd As New OleDbCommand
Dim strcourse As String
Dim sSQL As String

Dim da As New OleDb.OleDbDataAdapter

' con = New OleDbConnection(Get_Constring)
' con.Open()

' strcourse = "select Course from facultynew where FacultyID"
' strcourse1 = "select Course from studentsrecords where IDNumber"

' da = New OleDb.OleDbDataAdapter(strcourse, con)
' da = New OleDb.OleDbDataAdapter(strcourse1, con)
' MsgBox("asdasd")

sSQL = "SELECT b.Course, b.Image, a.IDNumber"
sSQL = sSQL & " FROM studentsrecords as a left join facultynew as b"
sSQL = sSQL & " on a.Course = b.Course WHERE(b.FacultyLastName = @FacultyLastName) order by a.IDNumber"

con = New OleDbConnection(Get_Constring)
con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = sSQL

cmd.Parameters.AddWithValue("@FacultyLastName", OleDbType.VarChar).Value = DBNull.Value
'cmd.Parameters.Add("@Course", OleDbType.BigInt).Value = ifacID
'cmd.Parameters.Add("@IDNumber", OleDbType.BigInt).Value = ieval

'= IIf(Len(Trim(Me.txtFacultyLastName.Text)) > 0, Me.txtFacultyLastName.Text, DBNull.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("IDNumber")
            Case 1
                Me.pic1.Tag = dr("b.Course")
                Me.pic1.Image = System.Drawing.Image.FromStream(myMS)
        End Select
    End While
End If
4

0 に答える 0