elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1]
1  Programación / Programación General / leer un archivo excel con asp en: 5 Marzo 2012, 20:57 pm
hola Estimados estoy con un problema ,necesito leer un archivo excel  pero no en forma secuencial y no se como hacerlo ,ojala me pudieran ayudar envio el codigo
gracias de antemano
Jorge

<html>
<body>
<%

'Arreglo (0,0)=3
%>

<%

writeExcelData()

%>



</body>
</html>

<%




function writeExcelData()

   Dim rs,sql,i
   Dim arreglo()
   ReDim arreglo(0,0)

   sql = "SELECT * FROM [hoja1$];"

   if runsql(sql,rs) then

   ROWFON = rs.Fields.Count - 1
   
   redim arreglo (ROWFON,5)
   
   columnas = rs.Fields.Count - 1
   
      %>
      <table border="1">
          <thead>
             <tr>
                 <%
               linea1=""
                 For I = 0 To columnas
                  linea1 = rs.Fields.Item(I).Name
                     Response.Write "<th>" &  Linea1 & "</th>"
                  arreglo(columnas,0) = linea1
                 Next
                 %>
              </tr>
          </thead>
          <tbody>
          <%
         contar =0


          Do While Not rs.EOF

              Response.Write "<tr>"

              For I = 0 To columnas
               
               valor = rs.Fields.Item(I).Value
               if isnull(valor) = true  then valor= "&nbsp;"
               Response.Write "<td>" & valor & "</td>"
                 
               contar= contar +1
            Next

              Response.Write "</tr>"

              rs.MoveNext
          Loop
          %>
          </tbody>
      </table>
      <%

      rs.Close

   end if

   Set rs = Nothing

end function




function runSQL(SQL,rs)

   on error resume next

   dim myrs

   set myRs = createobject("ADODB.recordset")
   myRs.Open SQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prueba.xls") & ";Extended Properties=""Excel 8.0;IMEX=1;""", 1, 3
   set rs = myRs
   if err then
      runSQL = false

      response.write err.description

   else
      runSQL = true
   end if

end function

%>



<br>
<br>
como se lleno
<br>
<br>

<%
Response.Write arreglo,2
Response.End
response.write arreglo,2

COL = Ubound(arreglo,2)
FIL = Ubound(arreglo,1)


For lnRowCounter = 0 To  COL
   For lnColumnCounter = 0 To FIL
      Response.Write arreglo(lnColumnCounter, lnRowCounter)
   Next
Next
%> :huh:

este es el archivo
2  Programación / Desarrollo Web / Problemas para abrir o guardar un archivo de power point en el servidor con en: 13 Julio 2010, 21:34 pm
hola Estimados Como estan espero que bien bueno , estoy con un problema resulta que tengo un codigo en asp para  abrir o guardar un archivo de power point  el cual se encuentra en un servidor   al abrirlo me da un arror que no lo encuentra en  los archivos temporales de internet para guardar  pdf ,word no tengo problemas  de antemano muchas gracias  :-\ el codigo es el suiguiente


archivo = Request("nombre")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath(archivo)
Response.AddHeader "Content-Disposition", "attachment; filename=" &archivo
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
response.write"Descargando archivo"
3  Programación / .NET (C#, VB.NET, ASP) / error Interop.SQLDMO en: 6 Noviembre 2009, 16:25 pm
hola como estan a todos los del foro bueno estoy con otro problema al instale una aplicaion  en  asp.net y cuando me logeo  me sale este error qeu no se lo que es ojala me puedan ayudar de antemano muchas gracias

File or assembly name Interop.SQLDMO, or one of its dependencies, was not found.File or assembly name Interop.SQLDMO, or one of its dependencies, was not found.  :-X

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: GeneXus.Data.GxADODataException: File or assembly name Interop.SQLDMO, or one of its dependencies, was not found.File or assembly name Interop.SQLDMO, or one of its dependencies, was not found.
4  Programación / .NET (C#, VB.NET, ASP) / como Seleciionar un dato de un DropDownList desde una base de datos en: 5 Noviembre 2009, 15:23 pm
hola como estan aca nuevamente con otro problema les cuento

tengo un DropDownList lo lleno desdee una base de datos pero necesito que quede selecionado un dato que esta guardado pero no se como se hace
ojala me puedan ayudar de antemano gracias
 el dato se lo paso de lo tengo en una variable

Código
  1. nmprofesor = leer("Nombre_Profesor")
  2.  
  3. Dim buscar1 As Data.SqlClient.SqlDataReader
  4. Dim consultar1 As New SqlCommand("SELECT NOMBRE FROM profesores order by nombre", conexión)
  5. buscar1 = consultar1.ExecuteReader()
  6. Profesor.DataSource = buscar1
  7.  
  8. Profesor.DataTextField = "NOMBRE"
  9. Profesor.DataValueField = "NOMBRE"
  10. Profesor.DataBind()
  11. buscar1.Close()

 :huh:

Nota del mod: con etiquetas queda más legible
5  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] Problemas con GridView al filtrar datos en: 2 Noviembre 2009, 13:43 pm
Hola de nuevo al foro  estoy con un preblema necesito que me muestre cierta imagen una columna si se cumple una condicion uy otra imagen si se cumple otra condicion luego si esa condicion contien un valor x me deje deaabilitado una fila de otra columna
mmm se puede hacer ....

gracias de antemano  :huh:

asi  lleno el gridview

 Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim consulta As New SqlCommand("select CODCARR, CODPESTUD,nombre_c from  matricula.mt_carrer where codcarr='" & Trim(Request.QueryString("carrera")) & "'", conexión)
        conexión.Open()
        buscar = consulta.ExecuteReader()
        Do While buscar.Read()
            codpestud = buscar("codpestud")
            titulo = buscar("nombre_c")
        Loop
        buscar.Close()
        Dim consultar As New SqlCommand("SELECT  RAMO.HORAS_PLAN AS [HORAS PLAN],RAMO.CODRAMO, RAMO.NOMBRE,CURRIC.CODPESTUD,ramo.periodo FROM matricula.RA_RAMO RAMO, matricula.RA_CURRIC CURRIC WHERE (CURRIC.CODPESTUD='" & codpestud.ToString() & "')AND RAMO.CODRAMO = CURRIC.CODRAMO order by codramo", conexión)
        Dim adapter As New SqlDataAdapter()
        adapter.SelectCommand = consultar
        Dim dataset As New DataSet
        adapter.Fill(dataset, "RA_curric,RA_RAMO")
        conexión.Close()
        GridView1.DataSource = dataset
        GridView1.DataBind()
6  Programación / .NET (C#, VB.NET, ASP) / problemas con el redireccionamiento a otra pagina en: 28 Octubre 2009, 14:57 pm
hola a todos los del foro

aca de nuevo  con otro problema

   tengo una pagina default.aspx  para  logearme  y cuando estoy registrado  la redirecciono a otra pagina que se llama menu con un  Response.Redirect("menu.aspx")

pero en la url me sale
 http://localhost:1380/default.aspx?ReturnUrl=%2fmenu.aspx
se supone que  tiene que salir

http://localhost:1380/menu.aspx 

ojala me puedan ayudar gracias de antemano
 :(
7  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] problemas con un GridView para eliminar datos en: 26 Octubre 2009, 14:07 pm
hola como estan bueno primero quiero agradecer al foro que es muy bueno e solucionado varios problemas .
El problema que tengo es  teng un GridView  con un boton eliminar y editar el boton eliminar lo tengo programado  y elimina el dato de la base pero la volver al GridView  lo sigo viendo hasta que vuelvo a recargar la pagina hay recien lo elimina  
 e echo varias cosas pero no me resulta
aca dejo el codigo

desde antemano muchas gracias....


        <asp:GridView ID="grdprofesor" EnableViewState="false"   runat="server" AutoGenerateColumns="False" BackColor="Transparent" ForeColor="White" Caption="ASIGNATURAS POR PROFESOR" Height="81px"
         Width="661px" DataKeyNames="Id" onrowdeleting="grdprofesor_RowDeleting" >
            <Columns>
                <asp:CommandField HeaderText="SELECCIONAR" ShowSelectButton="True" />
                <asp:CommandField HeaderText="ELIMINAR"  ShowDeleteButton="True" />
                <asp:BoundField DataField="Id" HeaderText="IDENTIFICADOR" />
                <asp:BoundField DataField="Nombre_Profesor" HeaderText="NOMBRE" >
                </asp:BoundField>
                 <asp:BoundField DataField="Nombre_Asignatura" HeaderText="ASIGNATURA" />
                  <asp:BoundField DataField="Nombre_Carrera" HeaderText="CARRERA" />
                   <asp:BoundField DataField="Escuela" HeaderText="ESCUELA" />    
            </Columns>
            <HeaderStyle ForeColor="White" BackColor="Blue" />
        </asp:GridView>



y el codigo  de la funcion

   Protected Sub grdprofesor_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grdprofesor.RowDeleting
        Dim Id As Integer = Me.grdprofesor.DataKeys(e.RowIndex).Value()
      

        Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim consulta As New SqlCommand("delete  FROM DETALLES_PROFESORES where Id='" & Trim(Id) & "'", conexión)

        conexión.Open()
        consulta.ExecuteReader()


        conexión.Close()
    End Sub

gracias  >:( :huh:
8  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] problemas con un CustomValidator no envia el mensaje en: 19 Octubre 2009, 23:01 pm
hola bueno esta es mi tercera publicacion espero me puedan ayudar
resulta que tengo un CustomValidator  para validar  nu,ero de cuotas  segun la fecha le hago un seguimiento a la validacion y lohace bien pero no envia el mensaje de error al control tampoco parta  el submit de la pagina de antemano muchas gracias  (tengo dos controles de error el CustomValidator es el que me da problemas )
en el formulario tengo esto
 <td  align="left" style="width: 358px; height: 2px;">
                <asp:DropDownList ID="Cuotas" AutoPostBack="true" runat="server"  >
                      <asp:ListItem Text="Cuotas" Selected="True" />
                      <asp:ListItem Text="1" Value="1" />
                      <asp:ListItem Text="2" Value="2" />
                      <asp:ListItem Text="3" Value="3" />
                      <asp:ListItem Text="4" Value="4" />
                      <asp:ListItem Text="5" Value="5" />
                  
                      </asp:DropDownList>
        <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" BackColor="White"
            ControlToValidate="Cuotas" ErrorMessage="Ingrese N°Cuotas...!" Width="91px"></asp:RequiredFieldValidator>
            </td>
       <td align="left" style="width: 358px; height: 2px">
           <asp:CustomValidator ID="CustomValidator1" runat="server" ControlToValidate="Cuotas"
            OnServerValidate="CustomValidator1_ServerValidate"
               ErrorMessage="La Cuota no es valida ...!" Width="259px" BackColor="White" Font-Size="Medium"></asp:CustomValidator></td>
            </tr>
y el codigo es este




  Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate
        Dim numerocuota As Integer

        Dim fechaAux As Date
        Dim dias As String
        Dim ano As String
        numerocuota = Me.Cuotas.SelectedValue

        ano = Date.Now.Year


        If Semestre.Text = "1" Then
            Select Case numerocuota
                Case "5"
                    fechaAux = Format("dd/MM/yyyy", "05/04/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)

                    If dias > 0 Then



                        args.IsValid = False

                    Else

                        args.IsValid = True



                    End If

                Case "4"
                    fechaAux = Format("dd/MM/yyyy", "05/05/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False
                    Else
                        args.IsValid = True
                    End If

                Case "3"
                    fechaAux = Format("dd/MM/yyyy", "05/06/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False

                    Else
                        args.IsValid = True
                    End If

                Case "2"

                    fechaAux = Format("dd/MM/yyyy", "05/07/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False

                    Else
                        args.IsValid = True
                    End If

                Case "1"
                    fechaAux = Format("dd/MM/yyyy", "05/08/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False
                    Else
                        args.IsValid = True
                    End If

            End Select
        End If
        If Semestre.Text = "2" Then
            Select Case numerocuota

                Case "5"
                    fechaAux = Format("dd/MM/yyyy", "05/09/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then

                        args.IsValid = False
                    Else
                        args.IsValid = True
                    End If
                Case "4"
                    fechaAux = Format("dd/MM/yyyy", "05/10/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False
                    Else
                        args.IsValid = True
                    End If
                Case "3"
                    fechaAux = Format("dd/MM/yyyy", "05/11/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        Response.Write("1")
                        args.IsValid = False
                    Else
                        args.IsValid = True
                        Response.Write("2")
                    End If
                    Response.End()
                Case "2"
                    fechaAux = Format("dd/MM/yyyy", "05/12/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False
                    Else
                        Modulo.Text = dias
                    End If
                Case "1"
                    ano = Convert.ToInt16(ano)
                    ano = ano + 1
                    fechaAux = Format("dd/MM/yyyy", "05/01/" & ano)
                    dias = DateDiff(("d"), fechaAux, Date.Now)
                    If dias > 0 Then
                        args.IsValid = False
                    Else
                        args.IsValid = True
                    End If

            End Select
        End If
    End Sub :(
9  Programación / .NET (C#, VB.NET, ASP) / problemas con la ñ y acentos al pasaruna variable por la url en: 19 Octubre 2009, 17:02 pm
hola  como estan  bueno tengo un problema al pasar  una variable con algun nombre que contenga ñ o acento no me la muestra est es en asp.net con visual en el web config e puesto

 <globalization
      fileEncoding="iso-8859-1" requestEncoding="iso-8859-1" responseEncoding="iso-8859-1"
      culture="es-ES" uiCulture="es-ES" />

yen al variable cuando la envio que es la que dice nombre 
        Response.Redirect("frmingreso.aspx?carrera=" & Request.QueryString("carrera") & "&nombre=" & Server.HtmlEncode(nombre.ToString()) & "&codigo=" & codigo.ToString() & " &plan=" & plan.ToString() & "&codpestud=" & codpestud.ToString() & "")

y al resivirla

 Asignatura.Text = Server.HtmlDecode(Trim(Request.QueryString("nombre")))

pero nada  de antemano muchas gracias
 jorge  :silbar:
10  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] ASIGNAR A UNA CAJA DE TEXTO UN VALOR DE UN DATAREADER en: 22 Septiembre 2009, 21:04 pm
HOLA A TODOS
                     ESTOY   APROBLEMADO CON UNA RUTINA  QUE TENGO QUE HACER EN ASP.NET  ME GUSTARIA VER SI ME PUEN AYUDAR DESDE YA MUCHAS GRACIAS

NO PUEDO ASIGNAR UN VALOR A UNA CAJA D TEXTO DESDE UN DATAREADER

EL CODIGO ESTA ACA  


Dim asignatura As String
        asignatura = Trim(Codigo_Equivalente.Text)
        Dim buscar As Data.SqlClient.SqlDataReader


        Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim consulta As New SqlCommand("SELECT  RAMO.HORAS_PLAN AS [HORAS PLAN],RAMO.CODRAMO, RAMO.NOMBRE,CURRIC.CODPESTUD FROM matricula.RA_RAMO RAMO, matricula.RA_CURRIC CURRIC WHERE (CURRIC.CODPESTUD='" & asignatura.ToString() & "')AND RAMO.CODRAMO = CURRIC.CODRAMO order by codramo", conexión)
        conexión.Open()
        buscar = consulta.ExecuteReader()
        ' Do While buscar.Read()
        Do While buscar.Read()
            Me.Asignatura_Equivalente.Text = buscar("RAMO.NOMBRE")

        Loop

SE  AGRADECE CUALQUIER AYUDA

JORGE
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines