27/10/2015, 10:27
|
| | Fecha de Ingreso: enero-2010
Mensajes: 7
Antigüedad: 14 años, 10 meses Puntos: 0 | |
Respuesta: Ejecutar GridView desde un botón en ASP.Net Hola Experto; gracias por tu pronta respuesta.
resuta que he tratado por todo lado y no he podido hacer que me funcione, he probado con este codigo que adjunto pero si hago una consulta de un solo "select * from V_All", me funciona perfecto pero al agregar parametros a la consulta no me corre y me sale el siguiente error a ver si me puedes ayudar:
MI CODIGO:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Consulta1()
Label1.Text = "Consulta Exitosa"
End Sub
Public Sub Consulta1()
'creamos la cadena de conexion
Dim strConexion As String
Dim valor As Integer = Session("chequelo")
strConexion = "Data Source=LUIZ_GALVIS;Initial Catalog=HPACJA;Integrated Security=True"
'Creamos el objeto conexion para enlazar con el servidor de datos
Dim objConexion As New SqlConnection(strConexion)
'creamos la secuencia sql que devuelve los datos deseados
Dim strSQL As String
strSQL = "/** Estas lineas crea una tabla temporal en la cual guarda las impresiones realizadas por usuario segun la fecha establecidad**/" +
"create table TempoPrint1 (Usuario VARCHAR(100), Paginas_en_Simplex INT,Paginas_en_Duplex INT,Impresiones_a_BN INT,Impresiones_a_Color INT)" +
"Insert Into TempoPrint1(Usuario, Paginas_en_Simplex, Paginas_en_Duplex, Impresiones_a_BN,Impresiones_a_Color)" +
"select JOB_lab_NTUserName as 'Usuario', " +
"sum(Job_qty_SimplexPages) as 'Paginas en Simplex'," +
"sum(JOB_qty_DuplexPages) as 'Paginas en Duplex'," +
"sum(JOB_qty_BWPages) as 'Impresiones a B/N'," +
"sum(JOB_qty_ColorPages) as 'Impresiones a Color'" +
"from V_All" +
"where JOB_lab_DocumentName not like 'Copy job' and JOB_lab_DocumentName not like '%Scan to folder%' " +
"and JOB_lab_DocumentName not like '%Email to%' " +
"and PRINTER_lab_ShareName not like '%Pull Print%'" +
"and JOB_date_Submitted Between '20150804 10:25:00' and '20150901 08:37:59'" +
"group by JOB_lab_NTUserName" +
"Selecte * from TempoPrint1 "
'Instanciamos el objeto command
'Recibe la secuencia a ejecutar y la conexion
Dim objCommand As New SqlCommand(strSQL, objConexion)
'Creamos el Objeto DataAdapter para rellenar el Dataset
Dim objAdapter As New SqlDataAdapter
'Configuramos la propiedad selectCommand para que ejecute nuestra consulta
objAdapter.SelectCommand = objCommand
'Abrimos la Conexion
objConexion.Open()
'DataSet para almacenar Datos
Dim objDS As New DataSet
'Rellenamos el DataTable del DataSet mediante el metodo Fill
'Del DataAdapter
objAdapter.Fill(objDS, "V_All")
'Cerramos la Conexion
objConexion.Close()
'LLenamos el Control GridView con los datos que almacenamos en el DataSet
GridView1.DataSource = objDS
GridView1.DataBind()
End Sub
EL ERROR:
el error se da en:
objAdapter.Fill(objDS, "V_All")
Mensaje que muestra: Sintaxis incorrecta cerca de la palabra clave 'not'.
Gracias por tu ayuda. |