'------------------------------------------------------------------------------
' 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