Ver Mensaje Individual
  #5 (permalink)  
Antiguo 27/10/2015, 10:27
wgalvis23
 
Fecha de Ingreso: enero-2010
Mensajes: 7
Antigüedad: 14 años, 3 meses
Puntos: 0
Información 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.