genero la siguiente consulta:
Cita:
Posteriormente trato de asignarla a un gridview:Private Function ObtenerSQL_Count_Users() As String
Return "select usuario,count(*) as Solicitudes" & _
" from sol_mtto WHERE fecha BETWEEN '" & TextBox1.Text & "' AND '" & TextBox1.Text & "'" & _
" group by usuario" & _
" order by 2 desc"
End Function
Return "select usuario,count(*) as Solicitudes" & _
" from sol_mtto WHERE fecha BETWEEN '" & TextBox1.Text & "' AND '" & TextBox1.Text & "'" & _
" group by usuario" & _
" order by 2 desc"
End Function
Cita:
Se supone que al ejecutar el procedimiento consultar, deberia cargar el gridview con los datos de LectorPublic Function ObtenerConexion() As String
Return "Data Source=ISMAELAA\MSSMLBIZ;Initial Catalog=Sistema_Intranet;Integrated Security=True"
End Function
Private Sub Consulta(ByVal Con As String)
conexion = New SqlConnection(ObtenerConexion)
comando = New SqlCommand(Con, conexion)
conexion.Open()
lector = comando.ExecuteReader()
End Sub
private sub Consultar()
Consulta(ObtenerSQL_Count_Users)
GridView1.DataSource = lector
GridView1.DataBind()
lector.Close()
end sub
Return "Data Source=ISMAELAA\MSSMLBIZ;Initial Catalog=Sistema_Intranet;Integrated Security=True"
End Function
Private Sub Consulta(ByVal Con As String)
conexion = New SqlConnection(ObtenerConexion)
comando = New SqlCommand(Con, conexion)
conexion.Open()
lector = comando.ExecuteReader()
End Sub
private sub Consultar()
Consulta(ObtenerSQL_Count_Users)
GridView1.DataSource = lector
GridView1.DataBind()
lector.Close()
end sub
pero aun cuando lector SI contiene datos no muestra nada, espero puedan ayudarme con esto gracias.