vb.net从新名称sql数据库中获取价值

Question

 Dim cd As SqlCommand = New SqlCommand("select datepart(mm,Birthday) as MonthDates from Information where Name='" & cbname.Text & "'", con)
            Dim reader1 As SqlDataReader = cd.ExecuteReader
            While reader1.Read
                Dim mon As Integer = reader1("MonthDates")
                lblbday.Text = mon

I used this code to assume that the new named column in SQL will be read in vb net but its not reading the new named Column "MonthDates".

What is wrong with the code? Please help. Thank you in advance!

Answer 1

You should dispose connection after query (in my example USING do this):

Using con As New SqlConnection(....)
    Dim cd As SqlCommand = New SqlCommand("select datepart(mm,Birthday) as MonthDates from Information where Name='" & cbname.Text & "'", con)
    Dim mon As Integer = cd.ExecuteScalar()
    lblbday.Text = mon
End Using