If Find = True Then 'ตรวจสอบว่าถ้า Find มีค่าเท่ากับ True ให้ clear ค่าใน DataTable Login Ds.Tables("LOGIN").Clear() End If dtAdapter = New SqlDataAdapter(strSQL, Cnn) 'กำหนด dtAdapter ให้เป็น object ของ class SqlDataAdapter โดยใช้ sql command ใน strSQL กับ sql connection ใน Cnn dtAdapter.Fill(Ds, "LOGIN") 'Query ข้อมูลมาใส่ใน DataSet ใน Table ที่ชื่อว่า Login If Ds.Tables("LOGIN").Rows.Count > 0 Then 'ถ้า Table Login มีจำนวน Row มากกว่า 0 ให้ Find = True และแสดง Mainmenu form Find = True Mainmenu.Show() End if 'ใส่ให้นะ ไม่มีนี่ปิดแล้วมันทำใจไม่ได้
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง