23 lines
751 B
VB.net
23 lines
751 B
VB.net
|
Option Strict On
|
||
|
|
|
||
|
|
Imports System
|
||
|
|
Imports System.Configuration
|
||
|
|
Imports System.Data
|
||
|
|
Imports System.Data.SqlClient
|
||
|
|
|
||
|
|
Public Class Posts
|
||
|
|
Public Shared Function TituloBlog(ByVal blog As Integer) As String
|
||
|
|
Dim db As New Database
|
||
|
|
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_blogs")
|
||
|
|
Return db.RunProcstring("sp_blogtitulo", New SqlParameter() {db.MakeParameter("@blog", blog)})
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Shared Function Listado_posts() As SqlDataReader
|
||
|
|
Listado_posts = Nothing
|
||
|
|
Dim db As New Database
|
||
|
|
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_blogs")
|
||
|
|
db.RunProcedure("sp_listado_posts_extra", Listado_posts)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
End Class
|