Dudas de Programación - Preguntas y respuestas 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).

Respondido: Duda en VB.net

Sun, 24 Apr 2022 08:46:03 +0000

Puedo decir que tal vez nunca grabes los datos en la base de datos, si al formulario cuando lo cierras solo le haces un Hide() nunca se cierra el mismo y la proxima vez se mostrará con los datos que antes modificaste. La mejor forma sería ver si cuando modificas los datos en el formulario, los mismos se modifican en la DB (supongo que no) y verificar si estan bien los parametros de conexion a la misma. Compis, si estáis interesados en el tema de comercio de acciones, este sitio https://www.robomarkets.es/ os será de gran ayuda.

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.

Respondido: Ayuda con Codigo en VB.Net

Fri, 24 Sep 2021 07:39:20 +0000

Los literales XML simplifican las tareas más comunes que se producen al trabajar con XML (por ejemplo, cargar, consultar y transformar). Al desarrollar con XML, siga estas instrucciones: Utilice literales XML para crear documentos y fragmentos XML en lugar de llamar directamente a las API XML. Importe los espacios de nombres XML en el nivel de archivo o proyecto para aprovechar las optimizaciones de rendimiento de los literales XML. Use las propiedades del eje XML para tener acceso a elementos y atributos en un documento XML. Utilizar expresiones incrustadas para incluir valores y crear XML a partir de valores existentes en lugar de utilizar llamadas API como el Add método. Compis, si queréis invertir en bolsa de madrid cotizaciones os recomiendo hacerlo con RoboMarkets, ya que es el mejor bróker en este momento.

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!

Respondido: agenda de una estetica

Mon, 15 Aug 2016 01:30:41 +0000

Hola que tal?

te dejo este link de un video tutorial, esta en ingles pero igual y te puede ayudar

https://www.youtube.com/watch?v=XaK3Et26N6Y

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).

Respondido: paginar gridview

Mon, 25 Jul 2016 17:46:05 +0000

Hola por lo que eh investigado esto pueda servirte!!

private void LLenarDatos()

{

SqlConnection cn = new SqlConnection("MiCadenadeConexion");

SqlDataAdapter da = new SqlDataAdapter("Select * From MiTabla", cn);

DataSet ds = new System.Data.DataSet();

da.Fill(ds);

GridView1.DataSource = ds;

GridView1.DataBind();

}

protected void GridView1_PageIndexChanging(object sender, GridViewPageEventArgs e)

{

GridView1.PageIndex = e.NewPageIndex;

LLenarDatos();

}

O si usas un SQLDataSource

protected void GridView1_PageIndexChanging(object sender, GridViewPageEventArgs e)

{

GridView1.PageIndex = e.NewPageIndex;

SqlDataSource1.DataBind();

}

Respondido: realizar busqueda

Sat, 09 Jul 2016 19:16:38 +0000

Hola!!

Tal vez esto pueda ayudarte!!

bool Buscar(string TextoABuscar,string Columna, DataGridViewgrid)
{
bool encontrado=false;
if (TextoABuscar==string.Empty) return false;
if (grid.RowCount == 0 ) return false;
grid.ClearSelection();
if (Columna==string.Empty)
{
foreach (DataGridViewRow row in grid.Rows)
{
foreach (DataGridViewCell cell in row.Cells )
if (cell.Value==TextoABuscar)
{
row.Selected = true;
return true;
}
}
}
else
{
foreach (DataGridViewRow row in grid.Rows)
{
if (row.Cells[Columna].Value==TextoABuscar)
{
row.Selected = true;
return true;
}
}
}
return encontrado;
}

Respondido: Como llamar a un .bat

Fri, 01 Jul 2016 20:12:39 +0000

Hola.

Desde Visual C# .NET puedes utilizar la siguiente librería incluida en .NET framework para realizarlo, de la misma forma como parametro adicional envias mediante un string los parametros

Process.Start("Ejemplo.bat");

Te adjunto la ayuda proporcionada por Microsoft:

https://msdn.microsoft.com/en-us/library/h6ak8zt5(v=vs.110).aspx

Saludos, espero haberte ayudado

Respondido: DataGridView (Visual Net)

Sun, 05 Jun 2016 06:15:38 +0000

Bueno yo no se mucho de VB pero en C# he hecho algo como lo siguiente:
Le asignas al checkbox un CommandEventHandler y en el CommandArgument le asignas el monto que vas sumar, asi, cuando selecciones el checkbox activara el evento y que debes recibir dos prametros el sender As Object y e As CommandEventArgs.

El primero lo casteas por el checkbox y obtienes el valor que tiene y el segundo lo casteas por el monto que tenias en la fila, después con un if verificas si el checkbox estaba seleccionado haces la suma, y si no pues nada.

Espero te sirva para lo que necesitabas, también te dejo esta documentación:
https://msdn.microsoft.com/es-es/library/office/system.web.ui.webcontrols.commandeventhandler(v=vs.85)?cs-save-lang=1&cs-lang=vb

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)

Respondido: Ayuda... en vb.Net

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

Hola amigo tu problema esta en que en la base de datos tienes un campo como varchar osea como string o cadena y en vb.net lo esta declarando como integer

Respondido: como puedo armar prueba de caja blanca con estructura de grafos

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

PUBLIC SUB guardar_Click()

DIM codepar AS String

DIM hres AS Result

DIM RESP AS String

DIM query AS String

DIM Clave AS String

DIM res AS result

RESP = Message.Question("¿Desea guardar los datos introducidos?", "Guardar", "No Guardar")

IF RESP = 1

    conexion.ConectarBase()

    conexion.hconn.begin

    hres = conexion.hconn.CREATE("expedientes")

    hres!cedula_alu = cedula.Text

    hres!pnombre_alu = nombre.Text

    hres!snombre_alu = snombre.Text

    hres!papellido_alu = apellido.text

    hres!sapellido_alu = sapellido.text

    hres!fecha_nac_alu = fechanac.Text

    IF femenino.Value = TRUE THEN hres!sexo_alu = "F"

    IF masculino.Value = TRUE THEN hres!sexo_alu = "M"

    hres!urbanizacion_alu = urbanizacion.Text

    hres!municipio_alu = municipio.Text

    hres!estado_alu = estado.Text

    hres!telefono_alu = telefono.Text

    hres!celular_alu = celular.Text

    hres!correo_alu = correo.Text

    hres!carrera_alu = variables.codcar

    hres!cohorte_alu = periodo_cohorte.Text & "-" & ano_cohorte.Text

    IF activo.Value = TRUE THEN hres!condicion_alu = TRUE

    IF inactivo.Value = TRUE THEN hres!condicion_alu = FALSE

    hres!cod_archivador = variables.codar

    hres!gaveta_num = gaveta.Text

    IF fotos.Value = TRUE THEN hres!fotos = TRUE

    IF ccedula.Value = TRUE THEN hres!ccedula = TRUE

    IF partida.Value = TRUE THEN hres!partida = TRUE

    IF cnotas.Value = TRUE THEN hres!cnotas = TRUE

    IF ctitulo.Value = TRUE THEN hres!ctitulo = TRUE

    IF fondonegro.Value = TRUE THEN hres!fondonegro = TRUE

    IF examenpsicologico.Value = TRUE THEN hres!examenpsicologico = TRUE

    IF certificadosalud.Value = TRUE THEN hres!certificadosalud = TRUE

    IF cinscripcionmilitar.Value = TRUE THEN hres!inscripcionmilitar = TRUE

    IF inscripcionrusnies.Value = TRUE THEN hres!registrorusnies = TRUE

    IF asignacionopsu.Value = TRUE THEN hres!asignacionopsu = TRUE

    IF inscripcionunefa.Value = TRUE THEN hres!webunefa = TRUE

    hres.update

    Message.Info("Datos guardados con éxito")

ELSE

otro_Click()

ENDIF

Respondido: Tratamiento de un Recordset para totalizar ventas

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

hola, espero no sea muy tarde.

Creo que el error es que la consulta no esta devolviendo nada, probablemente sea porque estas llegando a EOF cuando haces <code>Rst_Datos_Inf_SesImp.MoveNext</code> y luego intentas obtener datos de alli. Podrias validar que no sea EOF adentro antes de hacer el movenext o con un contador validar antes de hacer el movenext que el contador no sea mayor a <code>Rst_Datos_Inf_SesImp.Recordcount</code>

Respondido: salto de linea

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

En una cadena de texto es con la constante vbCrLf.

Tienes un ejemplo en http://lineadecodigo.com/vbscript/vbcrlf-saltos-de-linea-en-una-cadena/

¿Van por ahí los tiros?

Respondido: ayuda con visual basic

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

Si, con un contador debes resolver el problema. Cada vez que se ponga el usuario o la contraseña mal lo incrementas en uno, cuando llegué a tres pues lanzas un mensaje indicando los tres errores cometidos y sales del programa a continuación.

Respondido: ASP y Consultas Access

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

Saludos y buen dia

Aqui te dejo unos enlaces que estan en ingles las paginas pero el codigo se deja entender bastante bien ;)

Esto es lo que estas buscando :

http://www.webconcerns.co.uk/asp/accessqueries/accessqueries.asp

Y este otro ejemplo tambien te serviria :

<pre lang='asp' lineno='1'>
...
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/MIDB.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
strQuery = "MIQUERY"
objRS.Open strQuery, objConn, 0, 4
...
El ejemplo es de esta pagina : http://www.xefteri.com/articles/show.cfm?id=6

Sin mas

Me despido

Respondido: Nombre de Host de Cliente

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

otra vez aqui

ya encontre el codigo para que tengas una idea mejor

<pre lang='asp'><table>
<%
    for each svr_variabble in Request.ServerVariables
        Response.Write("<tr><td>" & svr_variable & "</td><td>")
        Response.Write(Request.ServerVariables(svr_variable))
        Response.Write("</td></tr>" & vbCrLf)
    next
%>
</table>
Con esto podras ver todas las variables del servidor entre ellas la REMOTE_ADDR

lo que la verdad es que cualquiera que use un servidor proxy la ip que obtendras con esta variable es la de ese proxy

y para saber el pais de donde viene un usuario puedes usar los servicios de Maxmind

para que tengas una idea

http://www.maxmind.com/app/locate_ip?ips=Request.ServerVariables("REMOTE_ADDR")

Donde Request.ServerVariables("REMOTE_ADDR") te dara la ip del usuario que accedio a la pagina , claro que con esto no haces mucho solo podras ver una pagina con los datos y ademas estas limitado a 25 peticioes diarias a no ser que te hagas una cuenta de prueba y tendras mas opciones entre ellas acceder a una api que habia por alli

pero para que vayas mejor encaminado busca servicios GeoIP

que son los usados normalmente para saber la procedencia de una ip

Sin mas ....

Ahora si me despido

Respondido: Librerias

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

Y no se puede principalmente porque te dira que no es un objeto permitido y registrado y tambien porque el otro usuario deberia tener la dll instalada

Las dll en vbs normalmente no permiten la interaccion aunque si seria posible usar metodos que devolvieran valores simples

Sin mas me despido

Respondido: leer contenido

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

Saludos y buen dia

Salvo alguna rara configuracion violando todo tema de seguridad o por deseo expreso del administrador de la web

NO PUEDES ya que el codigo ASP se ejecuta en el servidor por lo que tu no tendras acceso a el, a ti llegara lo que tienes que ver no el como se hace esa es la ventaja de este tipo de sistemas en comparacion con HTML o JS

Sin mas....

Me despido

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>

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!

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.

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.

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

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 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