01.
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
02.
Dim
ds
As
New
DataSet
03.
Dim
sql
As
String
=
"Select * FROM TB_your"
04.
Dim
ap
As
SqlDataAdapter =
New
SqlDataAdapter(sql, clc_connectstring)
05.
ap.Fill(ds)
06.
txt_box1.text = ds.table(0).rows(0).item(
"ค่าส่วนกลาง"
).tostring
07.
txt_box2.text = ds.table(0).rows(0).item(
"ค่าที่จอดรถ"
).tostring
08.
txt_box3.text = ds.table(0).rows(0).item(
"ค่าที่ล้างแอร์"
).tostring
09.
txt_box4.text = ds.table(0).rows(0).item(
"ค่าปรับ"
).tostring
10.
txt_box5.text = ds.table(0).rows(0).item(
"ค่าน้ำ"
).tostring
11.
txt_box6.text = ds.table(0).rows(0).item(
"ค่าไฟ"
).tostring
12.
End
Sub