Código de ASP.NET - Asp.net y Sql Server

Asp.net y Sql Servergráfica de visualizaciones


ASP.NET

Publicado el 29 de Enero del 2015 por Cristian
1.821 visualizaciones desde el 29 de Enero del 2015. Una media de 21 por semana
Hoy quiero compartir con ustedes un código que es muy útil, por lo menos desde mi punto de vista .... jajaja

Aca les dejo 3 métodos para la capa de negocios al utilizar asp.net (en mi caso con vb.net)

cualquier duda me escriben y les ayudo a implementar.

Requerimientos

Lo ideal es tener una clase de conexión, según modelo mvc.

Pero si lo ponen en un modulo igual anda.

En lo personal todos los programas que hacemos en www.softwareenred.cl lo hacemos con mvc. (capas: negocio, presentación, conexión)

1.0

Publicado el 29 de Enero del 2015gráfica de visualizaciones de la versión: 1.0
1.822 visualizaciones desde el 29 de Enero del 2015. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

es una versión 1.0 si alguien tienen una mejora ...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
'------------------------------------------------------------------------------
' FUNCION QUE EJECUTA LAS CONSULTAS A LA BASE DE DATOS Y DEVUELVE UN DATATABLE 
'------------------------------------------------------------------------------
Public Function consulta_sql_datatable(ByVal consulta_sql3 As String)
    Dim cnnBaseDat As SqlClient.SqlConnection
    Dim comBaseDat As SqlClient.SqlCommand
    Dim adpBaseDat As SqlClient.SqlDataAdapter
 
    Dim dstTablas As DataSet
    cnnBaseDat = New SqlClient.SqlConnection
    cnnBaseDat.ConnectionString = cadena_conexion
    cnnBaseDat.Open()
 
    comBaseDat = New SqlClient.SqlCommand(consulta_sql3, cnnBaseDat)
    adpBaseDat = New SqlClient.SqlDataAdapter(comBaseDat)
    dstTablas = New DataSet
    adpBaseDat.Fill(dstTablas, "MiTabla")
 
    Dim tablas As Data.DataTable = dstTablas.Tables("MiTabla")
 
    cnnBaseDat.Close()
    comBaseDat.Connection.Close()
 
    Return tablas
 
End Function
 
'------------------------------------------------------------------------------
' FUNCION QUE EJECUTA LAS CONSULTAS A LA BASE DE DATOS Y DEVUELVE UN STRING 
'------------------------------------------------------------------------------
Public Function consulta_sql_devuelve_string(ByVal consulta_sql2 As String)
    Dim cnnBaseDat As SqlClient.SqlConnection
    Dim comBaseDat As SqlClient.SqlCommand
 
    cnnBaseDat = New SqlClient.SqlConnection
    cnnBaseDat.ConnectionString = cadena_conexion
    cnnBaseDat.Open()
 
    comBaseDat = New SqlClient.SqlCommand(consulta_sql2, cnnBaseDat)
 
    Dim n As String
    n = CStr(comBaseDat.ExecuteScalar())
 
    cnnBaseDat.Close()
    comBaseDat.Connection.Close()
 
    Return n
 
End Function
 
'------------------------------------------------------------------------------
' FUNCION QUE EJECUTA LAS CONSULTAS A LA BASE DE DATOS
'------------------------------------------------------------------------------
Public Sub ejecuta_sql(ByVal consulta_sql As String)
    Dim cnnBaseDat As SqlClient.SqlConnection
    Dim comBaseDat As SqlClient.SqlCommand
 
    cnnBaseDat = New SqlClient.SqlConnection
    cnnBaseDat.ConnectionString = cadena_conexion
    cnnBaseDat.Open()
 
    comBaseDat = New SqlClient.SqlCommand(consulta_sql, cnnBaseDat)
    comBaseDat.ExecuteNonQuery()
 
    cnnBaseDat.Close()
    comBaseDat.Connection.Close()
End Sub



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3021