systam
جمعه 03 تیر 1390, 13:47 عصر
سلام دوستان
من در سایتم چند تا حدیت رو ازبانک خونده و در سایت نمایش میده کد برنامه رو در یک کلاس توی Function ریختم
کدش اینه
Public Shared Function revadid() As String
Dim con As New SqlConnection(System.Configuration.ConfigurationMa nager.ConnectionStrings("mysql").ConnectionString)
Dim int1 As Integer = 0
Dim pc As New Date
Dim day As String = Date.Now.Day
int1 = day
Dim com As New SqlCommand
con.Open()
com.Connection = con
com.CommandText = "select * from hadis where id='" & int1 & "'"
Dim reader As SqlDataReader = com.ExecuteReader
If reader.HasRows = True Then
reader.Read()
Dim result As String = reader("title")
End If
con.Close()
Return
End Function
حالا من کنار Return چی بنویسم که اطلاعات رو برام نمایش بده
من در سایتم چند تا حدیت رو ازبانک خونده و در سایت نمایش میده کد برنامه رو در یک کلاس توی Function ریختم
کدش اینه
Public Shared Function revadid() As String
Dim con As New SqlConnection(System.Configuration.ConfigurationMa nager.ConnectionStrings("mysql").ConnectionString)
Dim int1 As Integer = 0
Dim pc As New Date
Dim day As String = Date.Now.Day
int1 = day
Dim com As New SqlCommand
con.Open()
com.Connection = con
com.CommandText = "select * from hadis where id='" & int1 & "'"
Dim reader As SqlDataReader = com.ExecuteReader
If reader.HasRows = True Then
reader.Read()
Dim result As String = reader("title")
End If
con.Close()
Return
End Function
حالا من کنار Return چی بنویسم که اطلاعات رو برام نمایش بده