If st = "add" Then
If MessageBox.Show("ต้องการบันทึกข้อมูลหรือไม่", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim sql As String
sql = " insert into type (Typ_id,Typ_name)"
sql &= " values ('" & txtid.Text & "',"
sql &= " '" & txtname.Text & "')"
Try
Dim cm As New OleDbCommand(sql, Cnn)
cm.ExecuteNonQuery()
MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("ไม่สามารถบันทึกข้อมูลได้", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End Try
End If
dim str as string
str ="select typename from ? "
con.open
cm = new sqlcommand(str,connection)
rs = cm.executereader
rs.read
if rs("typename") = textbox1.text then
msgbox("ชื่อซ้ำ !")
exit sub
else
........
end if
con.close