Private Sub dgvAttendanceHistoryView()
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database.accdb;")
conn.Open()
Dim command As New OleDbCommand("SELECT sms_text AS ProfID, sent_dt AS [Date/Time] FROM SMS_IN WHERE sms_text='" & dgvAttendanceHistory.CurrentRow.Cells("sms_text").Value & "'", conn)
Dim adapter As New OleDbDataAdapter
Dim dt As New DataTable
adapter.SelectCommand = command
adapter.Fill(dt)
dgvAttendanceHistory.DataSource = dt
setColumnWidth()
End Using
End Sub
答案 0 :(得分:1)
从您发表评论我可以说dgvAttendanceHistory.CurrentRow
或dgvAttendanceHistory.CurrentRow.Cells("sms_text")
是Nothing
,因此您需要先测试这种可能性。
我想指出一个事实,你应该在查询中使用参数而不是连接字符串,因为这为SQL注入攻击打开了一扇门。
干杯