Public Function TestData(byval checkBcc) As string
dim maxA,query,maxAd,strCon,getValue
query = "select count(maxbm_orderno) from maxOrderbm where maxbm_machineID='" + checkBcc+"' "
strCon = "Data Source=localhost;Initial Catalog=TPM;User ID=sa;Password=;MultipleActiveResultSets=True"
Dim con As New System.Data.SqlClient.SqlConnection(strCon)
con.Open()
Dim cmd As New System.Data.SqlClient.SqlCommand(query,con)
getValue = cmd.ExecuteScalar()
con.Close()
Return getValue
End Function
รบกวนท่านทั้งหลายแนะนำวิธีแก้ไขให้หน่อยค่ะ
Tag : ASP, Reporting Service, Web (ASP.NET), Windows