Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Private Sub ListView2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView2.MouseClick Dim rs As New ADODB.Recordset Dim sql As String Dim datesel As String datesel = ListView2.SelectedItems.Item(0).SubItems(1).Text sql = "select * from [Student_Outcomes] where [OutcomeDate] = #" & datesel & "# And [StudentID] = " & TextBox7.Text Debug.Print(sql) rs.Open(sql, cnn1, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly) studentnotes.Text = "" If Not (rs.EOF And rs.BOF) Then If Not IsDBNull(rs.Fields("OutcomeNotes").Value) Then studentnotes.Text = rs.Fields("OutcomeNotes").Value End If End If rs.Close() End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.