Temas - jorgexl30

#1

Programación General / leer un archivo excel con asp

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= " "
               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
%>

este es el archivo

#2

Desarrollo Web / Problemas para abrir o guardar un archivo de power point en el servidor con

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

.NET (C#, VB.NET, ASP) / error Interop.SQLDMO

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.

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

.NET (C#, VB.NET, ASP) / como Seleciionar un dato de un DropDownList desde una base de datos

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 (vbnet) [Seleccionar]

nmprofesor = leer("Nombre_Profesor")

Dim buscar1 As Data.SqlClient.SqlDataReader
 Dim consultar1 As New SqlCommand("SELECT NOMBRE FROM profesores order by nombre", conexión)
 buscar1 = consultar1.ExecuteReader()
 Profesor.DataSource = buscar1

 Profesor.DataTextField = "NOMBRE"
 Profesor.DataValueField = "NOMBRE"
 Profesor.DataBind()
 buscar1.Close()

Nota del mod: con etiquetas queda más legible

#5

.NET (C#, VB.NET, ASP) / [SOLUCIONADO] Problemas con GridView al filtrar datos

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

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

.NET (C#, VB.NET, ASP) / problemas con el redireccionamiento a otra pagina

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

.NET (C#, VB.NET, ASP) / [SOLUCIONADO] problemas con un GridView para eliminar datos

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

#8

.NET (C#, VB.NET, ASP) / [SOLUCIONADO] problemas con un CustomValidator no envia el mensaje

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

.NET (C#, VB.NET, ASP) / problemas con la ñ y acentos al pasaruna variable por la url

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

#10

.NET (C#, VB.NET, ASP) / [SOLUCIONADO] ASIGNAR A UNA CAJA DE TEXTO UN VALOR DE UN DATAREADER

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

Test Foro de elhacker.net SMF 2.1

Mostrar Mensajes