1er commit
prueba 1 con gitignore
This commit is contained in:
213
App_Code/VBCode/elecciones.vb
Normal file
213
App_Code/VBCode/elecciones.vb
Normal file
@@ -0,0 +1,213 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Web
|
||||
|
||||
Imports Microsoft.VisualBasic
|
||||
|
||||
Public Class elecciones
|
||||
Public Shared Function LeoBancasDiputadosNac() As SqlDataReader
|
||||
LeoBancasDiputadosNac = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
db.RunProcedure("spel_bancasDiputadosNac", LeoBancasDiputadosNac)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoBancasSenadoresNac() As SqlDataReader
|
||||
LeoBancasSenadoresNac = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
db.RunProcedure("spel_bancasSenadoresNac", LeoBancasSenadoresNac)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoTotalBancasDiputadosNac() As SqlDataReader
|
||||
LeoTotalBancasDiputadosNac = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
db.RunProcedure("spel_totalbancasDiputadosNac", LeoTotalBancasDiputadosNac)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoTotalBancasSenadoresNac() As SqlDataReader
|
||||
LeoTotalBancasSenadoresNac = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
db.RunProcedure("spel_totalbancasSenadoresNac", LeoTotalBancasSenadoresNac)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosProvincias(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosProvincias = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaprov_2015f", parameters, LeoResultadosProvincias)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosMunicipios(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosMunicipios = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapamuni_2015f", parameters, LeoResultadosMunicipios)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosMunicipiosGobe(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosMunicipiosGobe = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapamuni_2015fGobe", parameters, LeoResultadosMunicipiosGobe)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosMunicipiosLista(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosMunicipiosLista = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapamuni_2015", parameters, LeoResultadosMunicipiosLista)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosProvinciasGobe(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosProvinciasGobe = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaprov_2015fGobe", parameters, LeoResultadosProvinciasGobe)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoTotalVotosPais() As Integer
|
||||
LeoTotalVotosPais = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Return db.RunProcedure("spel_totalvotos_2015_presi")
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoVotosDistrito(codeleccion As Int32, coddistrito As String) As Integer
|
||||
LeoVotosDistrito = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Return db.RunProcedure("spel_LeoVotosDistrito_2015", New SqlParameter() {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@coddistrito", coddistrito)})
|
||||
End Function
|
||||
Public Shared Function LeoVotosMunicipio(codeleccion As Int32, codmunicipio As String) As Integer
|
||||
LeoVotosMunicipio = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Return db.RunProcedure("spel_LeoVotosMunicipio_2015", New SqlParameter() {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@codmunicipio", codmunicipio)})
|
||||
End Function
|
||||
Public Shared Function LeoTotalVotosBA() As Integer
|
||||
LeoTotalVotosBA = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Return db.RunProcedure("spel_votosBA_2015_presi")
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoTotalVotosBAGobe() As Integer
|
||||
LeoTotalVotosBAGobe = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Return db.RunProcedure("spel_votosBA_2015_gobe")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function LeoResultadosConu(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosConu = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaConu_2015f", parameters, LeoResultadosConu)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function LeoResultadosBA(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosBA = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaBA_2015f", parameters, LeoResultadosBA)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function LeoResultadosBAGobe(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosBAGobe = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaBA_2015fGobe", parameters, LeoResultadosBAGobe)
|
||||
|
||||
End Function
|
||||
Public Shared Function PorcentajeEscrutado(tipoeleccion As Int32) As SqlDataReader
|
||||
PorcentajeEscrutado = Nothing
|
||||
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_porcentajeescrutado_2015", parameters, PorcentajeEscrutado)
|
||||
End Function
|
||||
Public Shared Function PorcentajeEscrutadoBA(tipoeleccion As Int32) As SqlDataReader
|
||||
PorcentajeEscrutadoBA = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_porcentajeescrutadoBA_2015", parameters, PorcentajeEscrutadoBA)
|
||||
End Function
|
||||
Public Shared Function LeoResultadosProvinciasLista(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosProvinciasLista = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaprov_2015", parameters, LeoResultadosProvinciasLista)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosBALista(tipoeleccion As Int32) As SqlDataReader
|
||||
LeoResultadosBALista = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@tipoeleccion", tipoeleccion)}
|
||||
db.RunProcedure("spel_mapaBA_2015", parameters, LeoResultadosBALista)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosBALista(codeleccion As Int32, codmunicipio As String) As SqlDataReader
|
||||
LeoResultadosBALista = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@codmunicipio", codmunicipio)}
|
||||
db.RunProcedure("spel_cuadroBA_2015", parameters, LeoResultadosBALista)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function LeoDistritos(codeleccion As Int32) As SqlDataReader
|
||||
LeoDistritos = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@codeleccion", codeleccion)}
|
||||
db.RunProcedure("spel_leodistritos_2015", parameters, LeoDistritos)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosxProvincia(codeleccion As Int32, coddistrito As String) As SqlDataReader
|
||||
LeoResultadosxProvincia = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@coddistrito", coddistrito)}
|
||||
db.RunProcedure("spel_cuadroprov_2015f", parameters, LeoResultadosxProvincia)
|
||||
|
||||
End Function
|
||||
Public Shared Function LeoResultadosxLista(codeleccion As Int32, coddistrito As String) As SqlDataReader
|
||||
LeoResultadosxLista = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@coddistrito", coddistrito)}
|
||||
db.RunProcedure("spel_cuadroprov_2015", parameters, LeoResultadosxLista)
|
||||
|
||||
End Function
|
||||
Public Shared Function PorcentajeEscrutadoxProvincia(codeleccion As Int32, coddistrito As String) As SqlDataReader
|
||||
PorcentajeEscrutadoxProvincia = Nothing
|
||||
Dim db As New Database
|
||||
db.ConString = System.Configuration.ConfigurationManager.AppSettings("con_elecciones")
|
||||
Dim parameters() As SqlParameter = {db.MakeParameter("@codeleccion", codeleccion), db.MakeParameter("@coddistrito", coddistrito)}
|
||||
db.RunProcedure("spel_porcentajeescrutadoprov_2015", parameters, PorcentajeEscrutadoxProvincia)
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user