SqlSelect = "select * from tbuserlogin Where Username = " & "'" & usertxt.Text & "'" Dim OleCommand As New OleDbCommand(SqlSelect, Cnn) OleReader = OleCommand.ExecuteReader OleReader.Read() UserIDA = OleReader.Item("username") PassIDA = OleReader.Item("password") Cnn.Close() If usertxt.Text = UserIDA And passtxt.Text = PassIDA Then Form2.Show() usertxt.Text = "" passtxt.Text = "" Me.Hide() Else MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning) End If
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง