strSQL = "SELECT * FROM Employee ;" myCmd = New SqlCommand(strSQL, myConn) myReader = myCmd.ExecuteReader() myReader.Read() While myReader.Read() emp1 = myReader("EmpCode") Response.Write(emp1 & "<br>") '--------- strSQL2 = "INSERT INTO NewEmploy (EmpID,EmpType) Values('" & emp1 & "','A');" Dim mycomm1 As SqlCommand = New SqlCommand(strSQL2, myConn) mycomm1.ExecuteNonQuery() '--------- myReader.Read() End While myReader.Close()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง