'อ่านข้อมูลใส่ตัวแปร
Dim dd As SqlDataReader
Dim comm As New SqlCommand
Dim IDtext = txt_assistant_id_new.Text
comm = New SqlCommand("SELECT Assistant_General_ID from P_D_Assistant_Station_Position where Assistant_General_ID = '" & IDtext & "'", conn)
dd = comm.ExecuteReader()
dd.Read()
MsgBox("IDtext=" & IDtext)
MsgBox("IDtextitem=" & dd.Item(0).ToString)
If IDtext = dd.Item(0).ToString Then
MessageBox.Show("รหัสซ้ำ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
End If
dd.Close() ' ต้องปิดทุกครั้ง
dim i as integer
str = "SELECT COUNT(รหัส) AS key FROM [tablename] WHERE id ='"&txtid.text&"'"
con.open()
cm = new sqlcommand(str,connect)
i = cm.executescare
con.close()
if i > 0 then ' ตรวจแล้ว ถ้ามีจริง
messagebox.show("รหัสซ้ำ ไม่ให้บันทึก")
else
'บันทึกได้
end if