Private Sub Click_Event(sender As Object, e As EventArgs) Handles btnadd.Click, btnsave.Click, btnfind.Click, btnedit.Click, btndelete.Click
Dim dr As OleDbDataReader
Dim dc As New OleDbCommand
Dim empid As Integer = 0
Dim sqlauto As String
sqlauto = "Select Top 1 emp_id Form employee_tb order by emp_id desc"
With dc
.CommandType = CommandType.Text
.CommandText = sqlauto
.Connection = conn
dr = .ExecuteReader <------------- มัน ไช้ไม่ได้อะครับ (Syntax error (missing operator) in query expression 'emp_id Form employee_tb order by emp_id desc'.) ใครเก่งติดต่อมาทีน้ะครับหรือทีมวิวก้ได้ขอบคุณครับ
dr.Read()
empid = dr.Item("emp_id")
txtemp_id.Text = empid + 1
End With
ใครเป็นโปรแกรม Microsoft Visual studio 2012 ช่วยหน่อยครับสำหรับคนเก่งๆขอด่วนๆน้ะครับ
Dim dr As OleDbDataReader
Dim dc As New OleDbCommand
Dim empid As Integer = 0
Dim sqlauto As String
sqlauto = "Select Top 1 emp_id Form employee_tb order by emp_id desc"
With dc
.CommandType = CommandType.Text
.CommandText = sqlauto
.Connection = conn
dr = .ExecuteReader <------------- มัน ไช้ไม่ได้อะครับ (Syntax error (missing operator) in query expression 'emp_id Form employee_tb order by emp_id desc'.) ใครเก่งติดต่อมาทีน้ะครับหรือทีมวิวก้ได้ขอบคุณครับ
dr.Read()
empid = dr.Item("emp_id")
txtemp_id.Text = empid + 1
End With