Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cmdSearchBymemid As SqlCommand = New SqlCommand("select * from member where mem_id ='" & TextBox1.Text & "' ", connect) Dim searchReader As SqlDataReader connect.Close() connect.Open() CheckTextbox() If RadioButton1.Checked = True Then searchReader = cmdSearchBymemid.ExecuteReader Dim a As Boolean = searchReader.Read If a = True Then MessageBox.Show("พบข้อมูล!!!" & vbCrLf & "รหัสการสมัครสมาชิก คือ " & searchReader.Item("mem_id"), "พบข้อมูล!!", MessageBoxButtons.OK, MessageBoxIcon.Information) TextBox2.Text = searchReader.Item("mem_id") TextBox3.Text = searchReader.Item("mem_id2") DateTimePicker1.Value = searchReader.Item("mem_date") TextBox4.Text = searchReader.Item("mem_name") TextBox5.Text = searchReader.Item("mem_idcard") TextBox6.Text = searchReader.Item("mem_add") TextBox7.Text = searchReader.Item("mem_phone") TextBox8.Text = searchReader.Item("mem_l") TextBox9.Text = searchReader.Item("mem_lm") TextBox10.Text = searchReader.Item("mem_totalstock") TextBox11.Text = searchReader.Item("mem_ln") TextBox12.Text = searchReader.Item("mem_inm") Button2.Enabled = True Button4.Enabled = True Else MessageBox.Show("ไม่พบข้อมูล!!!" & vbCrLf & "กรุณาตรวจสอบความถูกต้องของคำค้น!!" & vbCrLf & "หากต้องการเพิ่มข้อมูลใหม่กรุณาคลิ๊กที่ปุ่ม เพิ่ม", "ไม่พบข้อมูล!!", MessageBoxButtons.OK, MessageBoxIcon.Error) End If Personnotenable() TextBox1.Text = "" End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง