1.
Dim
_Con
As
SqlConnection =
New
SqlConnection(connection)
2.
_Adapter
SqlDataAdapter
3.
_Table
DataTable
4.
_Adapter =
SqlDataAdapter(
"Select รหัสกบ,ชื่อกบ From สัตว์ปีก"
, _Con)
5.
_Adapter.Fill(_Table)
CbMeltNo.DataSource = _Table
CbMeltNo.DisplayMember =
"ชื่อกบ"
_Row() as DataRow
_Row = _Adapter.
Select
(
"รหัสกบ = '001'"
)
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง