Dudas de Programación - Preguntas recientes en .Net

Bienvenidos al foro VBScript

Wed, 04 Jun 2025 09:09:02 +0000

Daros la bienvenida al foro sobre dudas de programación de scripting con VBScript.

Bienvenidos al foro Active Server Pages (ASP)

Wed, 04 Jun 2025 08:34:05 +0000

Daros la bienvenida al foro sobre dudas con el lenguaje de desarrollo de páginas de servidor Active Server Pages (ASP).

Duda en VB.net

Mon, 17 Jan 2022 10:32:29 +0000

Buenos días, soy nuevo y quisiera saber ¿Por qué cuando hago un cambio, aun algo pequeño como Backgroundimage no cambia?, le doy guardar todo, iniciar y no cambia, ¿Qué me falta hacer?

Poner imagen en pantalla completa

Tue, 11 Jan 2022 14:22:40 +0000

Buenas tardes amigos.

Antes que nada pido disculpas si he posteado en un foro erroneo.

El asunto es que tengo este código, que pone en pantalla completa una imagen que fue abierta con el Visor de imagenes de Windows desde un archivo Batch.

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Wscript.Sleep 4
' Alt+Shift+Enter
WshShell.Sendkeys "+%{ENTER}"
'WshShell.Sendkeys "+%~
'F11
'WshShell.SendKeys "{F11}"
WScript.Quit

Como pueden ver, he probado dos metodos de Alt+Shift+Enter, y uno de F11, los cuales funcionan en mi Desktop, todas y cada una de las veces que ejecuto el codigo, pero en la Laptop del trabajo, funciona la primera vez y despues no pone en pantalla completa la imagen.

Alguien sabrá que estoy haciendo mal, o hay que cambiar algo en el codigo ¿?

Agradecido de antemano por la ayuda que me puedan brindar.

Ayuda con Codigo en VB.Net

Sun, 18 Apr 2021 22:03:44 +0000

Estimados buen dia, necesito de su ayuda Por Favor con el siguiente codigo:

Public Class Customer

Public Property SUBDEPTO As String

Public Property EXISTENCIA As Single

End Class

El codigo para que llene del DatagridView y luego lo pasare a SQL

If dt IsNot Nothing Then

Dim list As List(Of Customer= New List(Of Customer()

For i As Integer = 0 To dt.Rows.Count - 1

Dim Customer As Customer = New Customer()

Customer.SUBDEPTO = dt.Rows(i)("SUBDEPTO").ToString()

Customer.EXISTENCIA = Convert.ToSingle(dt.Rows(i)"DESCRIPDEPTO").ToString())

list.Add(Customer)

CustomerBindingSource.DataSource = list

End If

me da el error que la entreda no tiene el formato correcto

Gracias !!!!

Quiero crear Excel en VBScript, Set obj = createobject("Excel.Application") dice: Permiso denegado en Microsoft run time

Fri, 31 Jul 2020 15:05:35 +0000

Requiero crear varios archivos en Excel desde VBScript y colocar en estos información, Al dar la instrucción Set obj = createobject("Excel.Application") para generar el objeto me presenta lo siguiente: Error: Permission denied (70) from Microsoft VBScript runtime error, when copying file on Server 2003 Terminal Server (800a000d). Ya revisé el IIS, generé la aplicación que trabaja a 32 bits, le dí todos los permisos, así como a la carpeta en c:/inetpub/wwwroot/Conversion. Creo que algo me falta, pero no encuentro qué. Me podrían orientar?. Gracias de antemano por su apoyo.

consulta / email

Thu, 04 Jun 2020 01:08:05 +0000

Quiero hacer un consulta y que el resultado sea un PDF en memoria para enviar por email y no tener que guardar el archivo en disco.

C# .Net Framework / Windows Forms

Link en DataGridView

Tue, 22 Nov 2016 14:08:54 +0000

Hola a todos,

Quisiera su ayuda para lograr un objetivo.
Estoy trabajando con VB.Net y SQL.
Mi aplicación llama desde un botón datos de una tabla de SQL, este botón llena un DataGridView con estos datos.

Objetivo:

Quiero que desde mi aplicación, se puedan copiar y abrir archivos, y que en este DataGridView se visualice el nombre del archivo copiado, y que sirva como link de donde se guardo el archivo para poder abrirlo.

Resultados actuales:

Se visualiza la ruta donde esta guardado, no el nombre. Al darle clic no abre el archivo.
Código:
Para agregar el archivo:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
En Public Class:
Dim miarchivo As String = ""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Botón buscar archivo:

OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
            Return
        Else
            miarchivo = OpenFileDialog1.FileName
            miarchivo = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            MsgBox("El archivo seleccionado es: " & miarchivo)
            txtarchivo.Text = OpenFileDialog1.FileName
        End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Botón guardar:

Dim rutaorigen As String = txtarchivo.Text
Dim destino As String = System.Environment.CurrentDirectory & "/Contratos\" & miarchivo
''aqui tengo mas codigo(conexion, seleccionar datos de tabla...)
comando.Parameters.AddWithValue("@archivo", destino)
''aqui tengo mas codigo(ejecutar en query, cerrar conexion...)
                If txtarchivo.Text = "" Then
                Else
                    FileCopy(rutaorigen, destino)
                    MsgBox("Exito al añadir el archivo")
                End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Para consultar:

En el botón para llenar el DataGridView pongo select tabla1.columna1,
tabla1.columna2,
tabla1.ARCHIVOS

from tabla1

where......

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Para llenar el DGV:

'' sql es la variable tipo string donde hice el select

          Dim da As New SqlClient.SqlDataAdapter(sql, conexion)
            Dim cmd As New SqlClient.SqlCommandBuilder(da)
            Dim ds As New DataSet
            da.Fill(ds, "tabla1")
            dgv1.DataSource = ds
            dgv1.DataMember = "tabla1"
            conexion.Close()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

También me gustaría hacer algo similar en un LinkLabel.

Eso es todo, por favor espero me ayuden.
Saludos!

Bienvenidos al foro Active Server Pages (ASP)

Fri, 29 Jul 2016 13:27:21 +0000

Daros la bienvenida al foro sobre dudas con el lenguaje de desarrollo de páginas de servidor Active Server Pages (ASP).

Ejecuta función javascript desde evento onclick c# e impedir que se ejecute algo mas sin finalizar esta

Sat, 04 Jun 2016 23:15:59 +0000

Buenas,qué me podrían sugerir. Tengo un método desde el cual llamo una función de javascript. Por consiguiente llamo un método de c#, como puedo hacer para que se ejecute en ese mismo orden,ya que veo que el javascript es lo ultimo que se ejecuta.Lo iba a hacer con ajax pero como veo que con este solo puedo llamar métodos estáticos creo no me daría, ya que dentro de mi método llamo controles.

ScriptManager.RegisterStartupScript(this, this.GetType(), "", "ConvertToImage()", true);
Exportar(null,null);
Gracias

Importar datos de un documento word a un formulario

Tue, 26 Apr 2016 23:36:39 +0000

Bueno como proyecto de titulación de técnico en informática me pidieron hacer un sistema y que se implementara, el cual estoy desarrollando... todo bien hasta que el cliente me pidió que el sistema leyera un archivo de word e introduciera los datos allí impresos a la base de datos de access, el texto lo he convertido a texto sin formato y cada registro esta separado por un punto y coma y son 3 datos, el problema es que no tengo ni la menor idea de como se haría eso :( y si alguien me pudiera orientar de como hacerlo se lo agradecería mucho.
Gracias.

Filtrar DataGridView (vb Net)

Tue, 01 Mar 2016 00:11:03 +0000

Hola, tengo estos dos codigos para filtrar un DataGridView, cuando los pruebo por separado funcionan perfectamente. Alguien me podria pasar el codigo para que se filtre por la "fecha_pago" y por el "id_pago", es decir de alguna manera unir las dos lineas de codigo.

Muchas gracias.

Filtro 1
dv.RowFilter = "fecha_pago >='" & Date.Parse(dtpdesde.Text) & "' AND fecha_pago <='" & Date.Parse(dtphasta.Text) & "'"

Filtro 2
dv.RowFilter = IIf(Not String.IsNullOrEmpty("id_pago"), "id_pago>=300", String.Empty)

DataGridView (Visual Net)

Wed, 17 Feb 2016 01:52:23 +0000

Hola a todos, tengo un DataGridView llamado "datacartera" con dos columnas, una llamada "enviar" y la otra "monto", enviar es de tipo CheckBox y en la columna "monto" siempre contiene valores decimales. Lo que necesito lograr es que se sumen unicamente los valores de las filas seleccionadas desde la columna "enviar" , es decir si tengo tres filas, por ejemplo:

enviar     monto
     x           120,05
                   30,63
     x           140,89

Selecciono la primera y la tercera, necesito que al presionar el btnfinalizar(Botón) me devuelva el valor sumado al ltotal (TextBox), a continuación les detallo mi código que me tira el sig. error al presionar el Botón:

Excepción no controlada del tipo 'System.InvalidCastException' en Microsoft.VisualBasic.dll

Información adicional: La conversión de la cadena "#0.00" en el tipo 'Integer' no es válida.

ltotal.Text = total.ToString("#0.00")

Mi Código:

Private Sub datacartera_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles datacartera.CellContentClick
        If e.ColumnIndex = Me.datacartera.Columns.Item("enviar").Index Then
            Dim chkcell As DataGridViewCheckBoxCell = Me.datacartera.Rows(e.RowIndex).Cells("enviar")
            chkcell.Value = Not chkcell.Value
        End If
    End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub btnfinalizar_Click(sender As Object, e As EventArgs) Handles btnfinalizar.Click
        For Each row As DataGridViewRow In datacartera.Rows
            Dim marcado As Boolean = Convert.ToBoolean(row.Cells("enviar").Value)

            If marcado Then
                Dim suma_marcado As String
                Dim total As Decimal = 0D

                suma_marcado = row.Cells("monto").Value

                'Eliminamos los puntos
                suma_marcado = Replace(suma_marcado, ".", "")

                'Reemplazamos las comas
                suma_marcado = Replace(suma_marcado, ",", ".")

                total += Val(suma_marcado)
            End If
        Next
        ltotal.Text = total.ToString("#0.00")
    End Sub

Muchas gracias de antemano y espero puedan enviarme el código correcto. Saludos

Buena Ventanas Reseller hosting para sitios ASP.NET?

Fri, 29 Jan 2016 04:17:53 +0000

¿Puede alguien sugerir un buen servicio de alojamiento de Windows Reseller. Veo muchas empresas e intereses con http://asphostportal.com pero todos ellos he mezclado críticas, así que no puedo decidir.

Algunas empresas están ofreciendo espacio ilimitado B / W y el disco y algunos están ofreciendo un ancho de banda limitado y espacio en disco por el mismo precio. ¿Cómo debo decidir?

Tengo muchos clientes que requieren de hosting. Pero tienen sitios básicos cartera empresa por lo que no requiere mucho procesamiento.

Ayuda por favor

Fri, 29 Jan 2016 04:13:23 +0000

A continuacion la funcion original. (al final esta mi consulta...)

Language=VBScript
Param=[%1]|Text|From:
Param=[%2]|Text|To:
Param=[%3]|Text|SMTP Server:
Param=[%4]|Text|User Name:
Param=[%5]|Text|Password:
Param=[%6]|Text|Message:
Param=[%7]|Text|Subject
Param=[%8]|Text|Use SSL ? ( YES / NO )
Param=[%9]|Text|Attachment
{End}
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "[%7]"
objMessage.From = "[%1]"
objMessage.To = "[%2]"
'objMessage.TextBody = "[%6]"
objMessage.HTMLBody = "[%6]"

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[%3]"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[%4]"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[%5]"

'Use SSL for the connection (False or True)

if "[%8]" = "NO" Then
   objMessage.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

   'Server port (typically 25)
   objMessage.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
else
   objMessage.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

   'Server port 465
   objMessage.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
end if

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

If "[%9]" <> "" Then
objMessage.AddAttachment ("[%9]")
End If

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

On Error Resume Next

objMessage.Send

If Err.Number = 0 Then
   msgbox "mail enviado satisfactoriamente !    ", vbInformation, " e-mail"
   'Enviar_Mail_CDO = True
Else
   MsgBox Err.Description, vbCritical, " Error al enviar el mail "
End If

Set objMessage = Nothing

Bien la modificacion que yo necesito es justo al final de la accion una vez que el correo ha sido enviado lo que hace actualmente es mostrar un cuadro de dialogo donde dice que fue enviado con exito o en su defecto que hubo un error...

Lo que yo necesito es que no muestre ningun cartel, que el error lo guarde en una variable en el clipboard de windows donde yo la pueda tomar y a su vezque si el correo salio satisfactoriamente me guarde la direccion de correo enviada en un archivo llamado exito.dat y si hubo error al enviar me la guarde en un archivo que se lleme error.dat

colocar un filtro con paginacion

Fri, 29 Jan 2016 04:13:04 +0000

Buenas tardes a todos los que me puedan ayudar estoy programando en asp clasico, lo cual es totalmente nuevo para mi, el problema es el siguiente tenia una grilla con una gran cantidad de información obtenida de la base de datos he creado un filtro para resumir la información de la grilla, en caso de que se seleccione las opciones del filtro solo deberá mostrar las mismas en la grilla en caso de que no se seleccione nada deberá mostrar en la grilla los datos completos de la tabla de la BD, pero después de modificar un poco el código que voy anexar abajo ahora no me muestra nada de la base de datos, y no se que hacer, también se agregaron en los los campos del filtro store procedures a continuacion el codigo:

Codigo anterior en la paginacion:

<%'*******************---------------------->OFERTAS PAGINADAS
Dim maxpagina, actual
maxPAgina = 20

actual = Request("actual")
If Not Len(actual) > 0 Then
actual = 1
End If
query = "sp_ConsultaOfertasCreadas(" & maxPAgina &"," & actual &")"
Set rs = executeSQL(query)
'*******************----------------------> FIN OFERTAS PAGINADAS

Set rsTotal = executeSQL("sp_ConsultaOfertasCreadasTotal")
totalOfertas = CInt(rsTotal("TOTAL"))
  %>

El codigo con las modificaciones:

<%
'*******************----------------------> OFERTAS REGISTRADAS PAGINADAS
Dim maxpagina, actual
maxPAgina = 20

actual = Request("actual")
If Not Len(actual) > 0 Then
actual = 1
End If
query = "sp_ConsultaOfertasCreadas(" & maxPAgina &"," & actual &"," & mot_aban          &"," & incentiv &",'" & producto &"','" & segmento &"'," & nive_crit &",'" & sub_Produ &"')"
Response.write (query)
Set rs = executeSQL(query)
'*******************----------------------> FIN OFERTAS REGISTRADAS PAGINADAS
Set rsTotal = executeSQL("sp_ConsultaOfertasCreadasTotal("& mot_aban &"," & incentiv &",'" & producto &"','" & segmento &"'," & nive_crit &",'" & sub_Produ &"')")
totalOfertas = CInt(rsTotal("TOTAL"))
  %>

Con el primero me mostraba todo perfecto, pero con el segundo al agregarle los datos de las variables del filtro me indica que no hay informacion no se que es lo que estoy haciendo mal , la grilla tiene paginacion. Le agradeceria mucho quien me pueda ayudar

Seminario de trabajo acerca de .net

Fri, 29 Jan 2016 04:11:25 +0000

Hola a todos! El día de hoy recibí un mail sobre un seminario de trabajo para migrar hacia punto net y me pareció interesante. Quería saber si alguno tiene alguna referencia acerca de la organización de este seminario. Acá les dejo el link. Desde ya muchas gracias

<a href="http://portalenserie.com.ar/itsouth/2013-04-10105814.html">http://portalenserie.com.ar/itsouth/2013-04-10105814.html</a>

realizar busqueda

Fri, 29 Jan 2016 04:11:04 +0000

Hola amigo del foro estoy necesitando un codigo para vb.net que me permita buscar registro de una consulta medaiate la idcodigo dentro de un datagridviws sin utilizar otro control

Programción de un COM

Fri, 29 Jan 2016 04:08:41 +0000

Hola, buen día!

Estamos programando un COM en C++, el problema que tenemos es que cada vez que se crea una interfaz se levanta un COM y truena la aplicación pues no hay inicializaciones. Requerimos una función similar a createinstante, que en lugar de estar generando nuevas instancias se pueda colgar el objeto a una existente.

Saludos!

como puedo armar prueba de caja blanca con estructura de grafos

Fri, 29 Jan 2016 04:08:00 +0000

necesito sacar la prueba de caja blanca de un modulo de mi proyecto

abrir documento desde vbs

Fri, 29 Jan 2016 04:03:57 +0000

Hola a todos,

Necesito crear un fichero plano en vbs que luego pueda lanzar para que me abra el documento que le indique.

El código es este:

objshell=createobject("wscript.shell")

objshell.run "c:tmpfichero.doc",1,true

Este código me funciona, el problema es cuando el documento es del tipo:

objshell.run "c:tmpfichero segundo.doc",1,true

Cuando hay espacios en blanco no los reconoce.

¿Alguna sugerencia?

Gracias.

Tratamiento de un Recordset para totalizar ventas

Fri, 29 Jan 2016 04:01:50 +0000

Hola, he realizado una consulta en Sql, y ahora quiero, recorriendo el Recordset obtenido, ir sumando ventas; pero sólo puedo sumar aquellas que tienen el mismo mes, para ello me creo variables locales para el mes y año, y luego, una vez que muevo el cursor al siguiente registro y voy a comparar el valor del mes en la variable con el valor del siguiente registro, Asp me dice lo siguiente "Requested operation requires a current record".

La pregunta es qué tengo que hacer para comparar el registro anterior con el actual, en el Recordset obtenido de una consulta. Os paso el código desarrollado por si os ayuda:

<pre lang='asp' lineno='1'><%Do While Not Rst_Datos_Inf_SesImp.Eof %>
<td><%=Rst_Datos_Inf_SesImp.Fields("NombreCompleto")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Titular_Cuenta")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Ent")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Suc")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("dc")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("ccc")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("ID_Sesion")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Fecha")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Año")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Mes")%></td>
<% Mes_Rst = Rst_Datos_Inf_SesImp.Fields("Mes")%>
Mes_Rst:<%=Mes_Rst%>
<% Ano_Rst = Rst_Datos_Inf_SesImp.Fields("Año")%>
Ano_Rst:<%=Ano_Rst%>
<td><%=Rst_Datos_Inf_SesImp.Fields("Hora")%></td>
<td><%=Rst_Datos_Inf_SesImp.Fields("Importe")%></td>
<%Importe = Rst_Datos_Inf_SesImp.Fields("Importe")%>
</tr>
<%Total = Total + Rst_Datos_Inf_SesImp.Fields("Importe")%>

<%Rst_Datos_Inf_SesImp.MoveNext%>

<%Ano = Rst_Datos_Inf_SesImp.Fields("Año")%>
Ano::<%=Ano%>
<%Mes = Rst_Datos_Inf_SesImp.Fields("Mes")%>
Mes::<%=Mes%>
<% if Ano = Ano_Rst then
if Mes = Mes_Rst then
Total_Mes = Total + Rst_Datos_Inf_SesImp.Fields("Importe")
else %>
<%=Total_Mes%>
<%end if%>
<%end if%>
<%=Total_Mes%>

<%loop%>

conversión de cadena a numérico.

Fri, 29 Jan 2016 04:01:18 +0000

Saludos a todos:

Necesito pasar el valor de una variable de tipo cadena a otra variable pero con dicho valor transformado a numerico.

La funcion val() de VB no existe eb VbScript y no encuentro ninguna funcion que lo haga.

Gracias anticipadas.

Importar de .dbf a SqlServer2005 en C#

Fri, 29 Jan 2016 04:01:11 +0000

Tengo una base de datos en FoxBase (.dbf) que debo importar desde sqlserver 2005. Lo estoy haciendo de forma manual en Sql pero esta bd debe ser actualizada diariamente, lo que es un inconveniente. Quisiera poderlo hacer por código en la aplicación en C# que trabaja con esos datos.

paginar gridview

Fri, 29 Jan 2016 04:00:57 +0000

Hola!!!

Tengo un gridview y le he activado la funcionalidad de paginación a través de la propiedad allowpaging. También he indicado el número de filas que quiero que se muestren por página. Pero al intentar visualizar las filas del gridview correspondientes a la segunda página, me dice que el grid desencadenó el evento PageIndexChanging que no estaba controlado.

¿Alguien me puede decir cómo programar el evento PageIndexChanging,para que cuando pulse en el número de página 2 me muestre los datos del gridview correspondientes a esa página ?

muchas gracias

Ayuda con Image y Ventana Emergente en aspx...

Fri, 29 Jan 2016 03:59:48 +0000

hola

tengo ciertas imagines en un xml donde en aspx utilizo un AdRotator para que cada vez que refresco la pagina me muestre una foto diferente y lo que quiero realizar es que al ya correr la pagina si le doy clic a esa imagen que se roto me la ponga en una ventana emergente y la imagen tiene que estar en la ventana emergente en 300px x 300px.

ya me muestra la ventana emergente pero lo que nose es como hacerle para que esa imagen que se roto sea la misma que se va a abrir con la ventana emergente.

Necesito Ayuda con DropDownList en aspx

Fri, 29 Jan 2016 03:59:37 +0000

Tendo un dropdownlist k me muestra nombres de departamentos de trabajo.

y necesito k al momento de seleccionar un departamento en otro dropdownlist me muestra el nombre de los empleados que hay solo en ese departamento seleccionado aqui le pongo parte del codigo que estoy realizando, espero que puedan ayudarme. de ante mano gracias

ESTE ES EL QUE MUESTRA EL NOM DE LOS DEPARTAMENTOS EN ASP:

<asp:SqlDataSource ID="dsSql2" runat="server" ConnectionString="<%$ ConnectionStrings:RHABCD %>"

                                SelectCommand="Select * from tblCentros"></asp:SqlDataSource>

                            <asp:DropDownList ID="cbnomdepto" runat="server" class="cajas_text4" DataSourceID="dsSql2"

                                DataTextField="Nomdepto" DataValueField="Centro"

                                OnSelectedIndexChanged="ActualizarDeptos" AutoPostBack="true" Height="16px" Width="273px">

                            </asp:DropDownList>

Y EN VISUAL BASIC ESTO ES LO K ESTOY HACIENDO PARA QUE AL SELECCIONAR EL DEPARTMENTO ME MUESTRE EL NOMBRE DE LOS EMPLEADOS:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            cbDesemp.Items.Add("Excelente")

            cbDesemp.Items.Add("Muy buena")

            cbDesemp.Items.Add("Buena")

            cbDesemp.Items.Add("Regular")

            cbDesemp.Items.Add("Mala")

            cbDesemp.Items.Add("Pésima")

// aqui estoy utilizando una tabla en memoria:

            Dim tbxPercepciones As New DataTable

            tbxPercepciones.Columns.Add("idPercepcion", GetType(Int16))

            tbxPercepciones.Columns.Add("Percepcion", GetType(String))

            tbxPercepciones.Columns.Add("Rfc", GetType(String))

            'tbxEmpleados As New DataTable

            tbxEmpleados.Columns.Add("Rfc", GetType(String))

            tbxEmpleados.Columns.Add("Nombre", GetType(String))

            Dim myConnection As SqlConnection

            Dim myCommand As SqlCommand

            Dim dr As SqlDataReader

            'declaring the objects

            myConnection = New SqlConnection("server=serversql;uid=produccion;pwd=qpaso@produccion;database=rh_abcd")

            Try

                myConnection.Open()

                'opening the connection

                myCommand = New SqlCommand("Select * from tblEvaluacionP", myConnection)

                'executing the command and assigning it to connection

                dr = myCommand.ExecuteReader()

                While dr.Read()

                    'reading from the datareader

                    tbxPercepciones.Rows.Add(dr("idEvaluacionP"), dr("NombreEvaluacion"), vbNull)

                End While

                dr.Close()

                'opening the connection

                'myCommand = New SqlCommand("Select Rfc, Nombre from Andreus where centro='050005005053'", myConnection)

                myCommand = New SqlCommand("Select Rfc, Nombre from Andreus where centro='nomdepto'", myConnection)

                'executing the command and assigning it to connection

                dr = myCommand.ExecuteReader()

                tbxEmpleados.Rows.Add(vbNull, "No Seleccionado")

                cbnomdepto.Text = "nomdepto"

                While dr.Read()

                    'reading from the datareader

                    tbxEmpleados.Rows.Add(dr("Rfc"), dr("Nombre"))

                End While

                dr.Close()

                myConnection.Close()

            Catch

            End Try

            gvPercepcion.DataSource = tbxPercepciones

            gvPercepcion.DataBind()

        End If

    End Sub

    Protected Sub ActualizarDeptos(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbnomdepto.SelectedIndexChanged

        Dim cbEmpleados As DropDownList

        Dim myConnection As SqlConnection

        Dim myCommand As SqlCommand

        myConnection = New SqlConnection("server=serversql;uid=produccion;pwd=qpaso@produccion;database=rh_abcd")

        Try

            myConnection.Open()

            Dim dr As SqlDataReader

            myCommand = New SqlCommand("Select Rfc, Nombre from Andreus where nomdepto=@nomdepto", myConnection)

            'executing the command and assigning it to connection

            dr = myCommand.ExecuteReader()

            cbnomdepto.DataValueField = "nomdepto"

            While dr.Read()

                'reading from the datareader

                cbEmpleados = cbnomdepto

                cbEmpleados.Items.Add(" No Seleccionado")

                cbEmpleados.SelectedIndex = cbEmpleados.Items.Count - 1

                cbEmpleados.SelectedItem.Value = "nomdepto"

            End While

            dr.Close()

            myConnection.Close()

        Catch

        End Try

        cbnomdepto.DataBind()

    End Sub

    Protected Sub gvPercepcion_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs)

        Dim d

Macros en Calc OpenOficce

Fri, 29 Jan 2016 03:59:35 +0000

Estoy empezando a programar y a trabajar Con OoBasic tengo problemas para el

Paso de variables a procedimientos (SUB) y funciones (FUNCTION)

tengo una variable en una subrutina y deseo pasarla a una función sin embargo no la lee y no entiendo porque

Como llamar a un .bat

Fri, 29 Jan 2016 03:59:24 +0000

Como puedo llamar un .bat que conlleve 5 parametros para el .bat, es decir en el DOS lo corro de esta forma:

"C:GraficaCreaGrafica 168 188 169 188 1"

Al correr esto me genera el gráfico que necesito, sin embargo no se la forma de llamar un bat desde ASP ó código VBScript.

Gracias

agenda de una estetica

Fri, 29 Jan 2016 03:59:19 +0000

hola tengo que hacer un programa en c++ de una agenda de una estetica

que tenga altas,bajas,consultas,modificacion

y el el menu aparesca

*captura

*busqueda

*modificar

*eliminar

me urge es para hoy tengo asta las 12 de la noche porfavor eso depende si paso o no la materia porfavor ayudenme

Muy Sencillo pero no encuentro la solucion de esto en aspx...

Fri, 29 Jan 2016 03:59:05 +0000

hola necesito una orientacion sobre esto que quiero realizar.

estoy programando en aspx y lo que quiero realizar es que un boton invisible que esta en aspx tiene la funcionalidad de abrir un ModalPopupExtender y quiero que esa funcionalidad que tiene el boton invisible, la tenga otro boton el cual esta ubicado dentro de un GridView dentro de un ItemTemplate.

necesito su ayuda y gracias...

volumen de un cono en visual basic

Fri, 29 Jan 2016 03:59:03 +0000

hola tengo el siguiente ejercicio

mi profesora me dice k tengo para mi examen k es para el jueves, hacer un programa en visual basic que resuelva la incognita de un volumen de un cono

para eso me dio la formula para calcular el volumen de un cono:

V=II(pi)* radio2(al cuadrado)*h/3

alguien sabe como le hago para meter esta instruccion en java y que a la hora de hacer el programa me calcule el volumen se me ocurria algo como :

volumen = 3.1416 * Math.Pow(radio, 2) * h / 3

auxilio alguien sabe como tendria que hacerle?

archivos de ayuda (chm) con Visual Basic 6.0

Fri, 29 Jan 2016 03:58:56 +0000

Hola, mi problema es que necesito que en cada parte del programa o en cada formulario, se me abra una seccion u otra del archivo de ayuda.

He generado el archivo de ayuda con HTML Help Workshop creé los alias y el map (.h) y definí cada parte del archivo de ayuda.

En VB en el formulario principal tengo esto :

App.HelpFile = App.Path & "restemporalhhw_test.chm"

frmSituacionProy.HelpContextID = 1001

he puesto que en el formulario frmSituacionProy se me abra la ayuda que tengo definida cmo 1001 en el map y cuando ejecuto al pulsar F1 estando en el formulario frmSituacionProy me sale una ventana de error y me dice :

"HH_HELP_CONTEXT called without a [MAP] section"

nose donde esta el fallo. . .

y luego mas abajo en el formulario principal tengo:

Private Sub mnuAyuda_Click()

Shell "HH.EXE " & App.Path & "restemporalhhw_test.chm", vbNormalFocus

End Sub

(esto si que me funciona , se me abre el archivo en general en el formulario principal)

Agradeceria mucho si alguien me puede ayudar, ya que llevo un tiempo largo con esto y no consigo que me salga. Gracias

orquestar servicios

Fri, 29 Jan 2016 03:58:29 +0000

alguien podría decirme si se pueden orquestar servicios en WF??????

Hacer un programa que calcule el impuesto sobre la renta de un salario

Fri, 29 Jan 2016 03:58:26 +0000

Es una tarea de

como calcular el impuesto sobre la renta de un salario en c# o como convierto el codigo fuente de Microsoft Visual Basic 2008 Express Edition a Microsoft Visual C# 2008 Express Edition

gracias

Ayuda... en vb.Net

Fri, 29 Jan 2016 03:58:19 +0000

Hola... tengo el siguiente codigo para insertar los datos en sql:

Dim conexion As SqlClient.SqlConnection

        Dim comando As SqlClient.SqlCommand

        Dim query As String

        Dim tabla As New DataTable

        conexion = New SqlClient.SqlConnection()

        conexion.ConnectionString = ("Data Source=SERVERSQL;Initial Catalog=RH_ABCD;User Id=produccion;Password=qpaso@produccion;")

        query = "insert into tblCedulas values (@idCedula,@Comision,@idHorario,@TiempoCargo,@TiempoLabor,@FuncionPrincipal,@FuncionExtra,@PercepcionArea)"

        comando = New SqlClient.SqlCommand

        comando.Connection = conexion

        comando.CommandText = query

        comando.Parameters.Add("@idCedula", SqlDbType.Char, 9).Value = Me.tbFolio.Text

        comando.Parameters.Add("@Comision", SqlDbType.Char, 100).Value = Me.tbcomision.Text

        comando.Parameters.Add("@idHorario", SqlDbType.Int, 4).Value = Me.cbHorario.SelectedValue.ToString()

        comando.Parameters.Add("@TiempoCargo", SqlDbType.Int, 4).Value = Me.tbtiempocargo.Text

        comando.Parameters.Add("@TiempoLabor", SqlDbType.Int, 4).Value = Me.tbtiempolabo.Text

        comando.Parameters.Add("@FuncionPrincipal", SqlDbType.Char, 100).Value = Me.tbfunprincipal.Text

        comando.Parameters.Add("@FuncionExtra", SqlDbType.Char, 100).Value = Me.tbfuncionextra.Text

        comando.Parameters.Add("@PercepcioArea", SqlDbType.Char, 110).Value = Me.tbpercepcion.Text

Pero al momento de dar clic en guardar me manda decir que ha habido problemas al intentar establecer conecsionError al conventir el valor del parametro de String a Int 32.

Espero k puedan ayudarme gracias

ayuda autoclic links

Fri, 29 Jan 2016 03:58:15 +0000

bueno el tema es que estoy haciendo un autoclic.. ya hice lo mas complicado creo de extraer las urls q me sirven nada mas no todas las q estan en la pagina...

y me las pone todas en un listbox

pero con el timer puse este codigo:

Private Sub Command2_Click()

Timer1.Enabled = True

Timer1.Interval = Text3.Text

usuario interval 1000 = 1 seg

WebBrowser1.Navigate (sURL)

End Sub

pero me pasa del listbox en un segundo de la primera a la ultima sin esperar por ejemplo 10 seg entre cada link...

como tengo que hacer para solucionar mi error??

Validar contraseñas con asp en html

Fri, 29 Jan 2016 03:58:08 +0000

Necesito comprovar q el nombre introducido coincide con la contraseña y es correcta, y una vez hecho esto q me enlace con una pagina q contiene un curriculum q deve ser rellenado por un usuario

Dudas en C#

Fri, 29 Jan 2016 03:58:01 +0000

Estoy realizando una aplicaci'on de escritorio en C# con SQL Server 2005. Quiero cargar en un GridView una consulta con los Platos... y dentro de cada uno cargar los ingredientes que lo componen lo cual debe ser con otra consulta.

Ayuda en asp.net

Fri, 29 Jan 2016 03:57:49 +0000

Hola...

necesito que me ayuden a saber los pasos que tengo que realizar para poner un pantilla ya descargada en asp.net

gracias por su atencion y esperare su respuesta.

bye :)

cerrar session Atumaticamente en Windows Form .Net

Fri, 29 Jan 2016 03:57:22 +0000

hola.

tengo un pequeno problema que no he podido resolver. no tengo idea de como hacerlo.

tengo un sistema desarrollado en la plataforma.net con el Lenguaje C# , Windows Form.

necesito hacer que si el usuario dejo de usar el sistema y ya trascurrieron mas de 10 minutos sin usarlo , les pida que se vuelvan a loguear.

como realizo esto? , como detectar cuando el usuario no esta usando la aplicacion?

alguien que me ayude por favor.

de antemano , muchas gracias.

Cerrar ventanas

Fri, 29 Jan 2016 03:57:13 +0000

Agradeceria mucho si alguien me pudiera decir como puedo cerrar una ventana mediante codigo, sin que se pida la confirmacion de la accion.

ASPUpload

Fri, 29 Jan 2016 03:57:08 +0000

Hola, soy nuevo en esto y necesito ayuda.

Necesito subir fotos e imagenes (gif y jpeg) a una base de datos access. Utilizo ASP y aspupload.

Despues de mirar en muuuuchos lugares (todos lamentablemente en ingles, en español hay demasiada poca información, mucho copiar y pegar de sync) y llegue a logar que me suba el texto que queria y un campo (que en la base de datos defino como "objeto OLE") que se sube pero al abrir la base de datos, y abrir la tabla donde tengo el objeto, al querer abrirlo me da error. (nota: intenté agregar una foto a la base directamente desde el access, y cuando lo hago, el campo (Objeto OLE)

se completa con la palabra "paquete", sin embargo, cuando lo hago con aspupload se completa con la frase "binario largo"

Como soluciono eso? y si no se puede, de que forma puedo usar aspupload para subir 3 imagenes (image1 image2 e image3 de un formulario) y junto con esas imagenes, 3 o más campos comunes de formulario (nombre, apellido, telefono de un formulario)

envio lo que ya llegué a hacer, quizás incluso pueda ayudar a alguien que sabe menos que yo.

archivos

sube.htm

==============================================================================

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Documento sin título</title>

</head>

<body>

<form action="odbc_upload.asp" method="post" enctype="multipart/form-data" name="form1">

<input name="desc" type="text" id="desc">

<input name="foto" type="file" id="foto">

<input type="submit" name="Submit" value="Enviar">

</form>

</body>

</html>

==============================================================================

odbc_upload.asp

==============================================================================

<HTML>

<BODY>

<%

Set Upload = Server.CreateObject("Persits.Upload")

' Capture files

Upload.Save "c:upload" 'creo que es generico para todos los servidores, NO MODIFICAR

' Obtain file object

Set File = Upload.Files("foto")

If Not File Is Nothing Then

' Build ODBC connection string

Connect = "DSN=aspupload"

'el DSN esta configurado como "Microsoft DataBase Driver (*.mbd)" y la base de

'datos tiene las tablas id (autonumerico), image (objeto OLE) y piso (texto). en

'ese orden

' Build SQL INSERT statement

SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"

SQL = SQL & File.Filename & "', '"

SQL = SQL & Replace(Upload.Form("desc"), "'", "''") & "', "

SQL = SQL & File.Size & ")"

' Save to database

File.ToDatabase Connect, SQL

Response.Write "Archivo subido."

Else

Response.Write "no se selecciono ningun archivo."

End If

%>

</BODY>

</HTML>

Problemas con el Separador Decimal

Fri, 29 Jan 2016 03:57:01 +0000

Hola a Todos.

ojala puedan ayudarme, tengo una red con servidor WINDOWS SERVER 2003 y tengo un sistema de inventarios hecho en asp, ya he cambiado la configuracion regional pero sigo con el problema de que cuando me introducen "." (punto) , como separador decimal no acepta y cuando meten "," (coma), si acepta, y todos los resultados en pantalla me muestra con punto. Yo quiero usar el punto como separador decimal

Por favor AYUDA ya prove todo, de antemano GRACIAS

salto de linea

Fri, 29 Jan 2016 03:55:48 +0000

holas muchachines de este foro soy nuevo en el, quiero que me den una manito en el salto de visual necesito urgente

Como puedo añadir viñetas en documento de word

Fri, 29 Jan 2016 03:55:14 +0000

Hola,

Es mi primer post...

Estoy con un VBS que crea un documento de word, pone texto, el día de la semana, etc, ahora llegue a un punto en el que necesito que me ponga una viñeta, un punto me seria útil, pero si puedo elegir mejor aun... esa es la parte que no se y la que me gustaría me ayudaseis a conseguirlo.

Muchas gracias!

Mid en asp!!!!!!!!!

Fri, 29 Jan 2016 03:55:02 +0000

hola a todos, tengo un problema con un asp que estoy realizando, es para una tarea de la escuela...

Necesito extraer una subcadena de una cadena, y mi código es el siguiente:

"contra = mid(cadena,inicio,4)"

en contra se debe de almacenar la subcadena, pero cuando ejecuto el asp me manda un error:

Invalid procedure call or argument: 'mid'

Quizas no tenga esta función "mid" en asp, quizas exista un equivalente, si alguien me puede ayudar se lo agradeceré...

pueden mandar la respuesta a elotro84@entrones.com.mx

ImageButton dinámico dentro de GridView dinámico en ASP .Net

Fri, 29 Jan 2016 03:54:48 +0000

Buenos días,

Si alguien me puede ayudar con un problema que tengo.

Tengo un GridView que creo de manera dinámica, luego de crear el GridView necesito crear para cada uno de sus elementos un ImageButton, hasta el momento esto está hecho, el problema básicamente es que no he podido atajar el evento click de ese botón.

Usualmente cuando se crean botones de manera estática, se asigna un CommandName a la columna para que se dispare el evento GridView_RowCommand, pero en este caso, aunque el botón tiene un CommandName asociado no se dispara con el evento del GridView. Intenté crear la columna de tipo TemplateField, pero al agregar el ImageButton a esta columna me sale un error incompatibilidad de tipos por el ImageButton y el TemplateControl.

Cómo hago para linkear el evento del nuevo botón con el evento del GridView que lo contiene ??

Si alguien me puede ayudar, se lo agradezco demasiado !!

JS

Shell.run

Fri, 29 Jan 2016 03:54:25 +0000

Hola necesitaria que me ayudaran con un problema:

El tema es asi, necesito que el cmd ejecute un batch. Entonces escribi este codigo:

On Error Resume Next

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

Call WshShell.run ("cmd.exe /K FOR /F "tokens=1 delims= " %%a IN ('NET VIEW ^| FIND /I "\%WSS%"') do FOR /F "tokens=1 delims= " %%A IN ('NBTSTAT -a %%a ^| FIND /I /V "%%a" ^| FIND "<03>"') DO net user ",false)

El problema es que no lo ejecuta por las comillas que tiene el batch. ¿alguien sabe como se podria solicionar?

ayuda con visual basic

Fri, 29 Jan 2016 03:54:09 +0000

hola entogo una duda hojala y me puedan ayudar en toy haciendo un trabajo escolar y tengo que poner contraseña a mi trabajo pero mi duda es como poner un limite de errores en encontraseñas...por ejemplo cuando ponga el usuario ò contraseña MAL 3 beses se rierre el progrma...espero me aya explicado si alguien me podria ayudar POR FAVOR GARCIAS....

mi e-mail por si acaso

kengin_x_45@hotmail.com