ช่วยดูโค๊ดหน่อยค่ะว่าเออเรอเพราะอะไรค่ะ ดึงข้อมูลมาใส่ใน datagridview ค่ะ แล้วให้โปรแกรมตรวจสอบว่าหาก ในตาราง detail

Dim sql As String

Dim dt As DataTable

Dim da As OleDbDataAdapter

sql = "Select emp_id From employee_admin"

da = New OleDbDataAdapter(sql, Conn)

dt = New DataTable

da.Fill(dt)

DataGridView1.DataSource = dt

 

Dim str As String

Dim cmd As OleDbCommand

Dim dr As OleDbDataReader

Dim dd As Date = Today

str = "Select * From employee_detail Where datework=" & dd

cmd = New OleDbCommand(str, Conn)

dr = cmd.ExecuteReader

dr.Read()

If Not dr.HasRows Then

For r As Integer = 0 To DataGridView1.RowCount - 1

str = "Insert Into employee_detail(emp_id,datework) Values(@emp_id,@datework)"

cmd = New OleDbCommand(str, Conn)

With cmd

.Parameters.AddWithValue("emp_id", CStr(DataGridView1.Rows(r).Cells(0).Value))

.Parameters.AddWithValue("datework", dd)

End With

cmd.ExecuteNonQuery()

Next

End If