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

sin imagen de perfil
Val: 21
Ha aumentado 1 puesto en ASP.NET (en relación al último mes)
Gráfica de ASP.NET

Asp.net y Sql Servergráfica de visualizaciones


ASP.NET

Publicado el 29 de Enero del 2015 por Cristian
4.845 visualizaciones desde el 29 de Enero del 2015
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
4.846 visualizaciones desde el 29 de Enero del 2015
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3021