SoloCodigo

Hola amigos como estan........

tengo treeview que se llena con las descripciones de una base de datos , tabla descripciones(cdescripcion,ndescripcion)

con esta instruccion :



con este codigo lleno perfectametne el arbol con el nombre de las descripciones que tengo en sql 2000,  En el procedimiento "AfterSelect" obtengo el valor seleccionado, pero como puedo obtener el codigo de la descripcion (cdescripcion) ya que es ese el valor con el que deseo trabajar no con el que muestro al usuario en el arbol (ndescripcion).


espero me puedan ayudar gracias

Hola amigos como estan, trabajo en una intranet  y necesito ejecutar un archivo .bat ubicado en el servidor (D:\), he probado con unos cuantos codigos y la verdad es que no pasa nada, no se ejecuta nada, he probado por si solo el archivo y me funciona correctamente,

lo que hace el .bat es traspasar desde un pc a otro archivos dado un rango de busqueda. espero me ayuden gracias.

este es uno de los codigo que probe
Dim MObj, oExec, res
'Crea el objeto
Set MObj = server.CreateObject("WScript.Shell")
'Ejecuta el fichero
Set oExec = MObj.Exec("D:\.......bat")


'Si el fichero bat devuelve algo lo puedes recoger así
res = oExec.StdOut.readline()

Hola como estan.......estoy a minutos de realizar una aplicacion en VB.NET, me pidieron que realizara una pequeña aplicación que se carge al ejecutarse Windows (2000) y que cuente 20 minutos, al completarse este tiempo, muestre a pantalla completa un mensaje que bloquee el pc e indique al usuario que debe tomar un descanso por 5 minutos, este mensaje deberá durar esos 5 minutos y luego deberá siguir ocupado normalmente el equipo al operador por otros 20 min y asi sucesivamente.

Alguien me puede dar alguna sugenrecia de como poder bloquear la ventana y emitir el mensaje...estoy con VS 2005 ...gracias por su tiempo


monkytrox

hola a todos ...

tengo el siguiente problema.

Tengo una tabla de ventas de la cual los registros tienen distintos estados de venta (0,1,-1,2) siendo el 2 el estado aprobado. mi pregunta es como logro seleccionar o identificar todos aquellos registros que nunca fueron aprobados (0,-1,1) , debo decir que el registro no es actualizable, quiero decir con esto que si le dia lunes 24 hice una venta y me sale rechazada (1) por x razon y hoy dia Jueves 27 la vuelvo a ingresar y sale aprobada (2), el registro estaria 2 veces pero con fechas distintas , este es su formato (aaaammdd:hhmmss)....creo que hay esta la clave comparar, con las fechas pero no se me ocurre como hacerlo, espero me me hayan entendio y me puedan ayudar...muchas gracias de antemano


adios

monky

hola como estan ??

tengo una aplicacion que llama un .bat, la funcion de este es el traspaso de archivos (promedio de 200mb aprox) a travez de un FTP, esto funciona correctamente al ejecutar el .bat de manera individual, mi pregunta es... desde visual como puedo controlar que este preceso se complete o no, para asi yo desde visual pueda enviarme correos por una u otra respuesta, lo del correo lo tengo listo, lo que me falta es controlar si el bat se ejecuta o no de manera correcta, tener el control sobre este Bat me urgue, ya que este preceso se corre a 1:00 am y a esas horas ya no me encuentro en mi lugar de trabajo....espero me ayuden :-)

gracias

monkytrox

Hola como estan.

Alguien me podria decir como hacer para saber la cantidad de archivos que tengo dentro de un directorio determinado ?

muchas gracias

monkytrox

hola como estan.
alguien sabe como pasarles parametros al data reports, yo lo hago de la sigueinte manera

en el command1 : escribo

select * from facturas
where codigo_factura = param1

al hacer esto la pestaña de "parametros" no se me habilita y no me deja declarar el parametro. ( no se por que )  :-(

en el boton imprimir tengo esto

If DataEnvironment1.Connection1.State = 1 Then
DataEnvironment1.Command1 Text1.Text
DataReport1.Show vbModal
DataEnvironment1.Connection1.Close
Else
DataEnvironment1.Connection1.Open
DataEnvironment1.Command1 Text1.Text
DataReport1.Show vbModal
DataEnvironment1.Connection1.Close
End If

donde text1.text es el codigo de la factura que kiero consultar.

me falto algo por hacer ????

gracias por su tiempo

monkytrox.

hola como estan

Tengo una aplicación en vb 6, la que me entrega en un block de notas un listado de ejecutivos, con sus distintos campos (rut, nombre, ap_pat, ap_mat, direccion, etc), mi problema va en que me piden que estos datos deben estar tabulados, alguien tiene alguna idea de hacer esto, que me muestre tabulados los resultados de la aplicación ???


muchas gracias por su atención

salu2.

 

hola alguien sabe como obtengo el primer dia del mes en el que me encuentro. para comparacion de fechas ????


muchas gracias

Hola, una vez mas, ante todo mucha gracias a todos los que me han ayudado con la contrucion de una intranet, ahora les traigo otra consulta, tengo tablas de mas de 100.000 registros y necesito mostrar sus datos, con recordcount, me muestra un valor de -1, lo que me impide poder mostrar resultados compaginados, el mismo codigo me funsiona perfectamente con tablas de menos de registros, adjunto el codigo para que me echen una mano:

<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina' cuantos registros por pagina
Dim CuantosRegistros

TamPagina=10


if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if


Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
'Conexion a base de datos
StrConn = "Provider=SQLOLEDB;Data Source=BARON; Initial Catalog = Televenta_Chilesat; User Id =sa; Password=123123"
'Consulta SQL
sql = " select * from tb_cliente"


oConn.Open StrConn
RS.Open sql,oConn,3,3
'Cuento las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

PaginasTotales=rs.PageCount

response.Write(rs.pagecount)
response.Write(rs.Absolutepage)


'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then

Response.Write("No se encontraron resultados.")

else

'Vamos a paginar
'rs.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")
CuantosRegistros=0
'do while not rs.EOF and CuantosRegistros < TamPagina


%>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="0148B2">


<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="0148B2">
<td width="18%"><span class="Estilo24 Estilo23 Estilo25"><strong>CODIGO</strong></span></td>
<td width="82%"><span class="Estilo24 Estilo23 Estilo25"><strong>Fecha</strong></span></td>
<td width="82%"><span class="Estilo24 Estilo23 Estilo25"><strong>usuario</strong></span></td>

</tr>
<% do while not rs.eof and CuantosRegistros < TamPagina %>
<tr>

<td><span class="Estilo24 Estilo23"><strong><%=RS("area")%></strong></span></td>
<td><span class="Estilo4 Estilo23"><%'=RS("area")%></span></td>
<td><span class="Estilo4 Estilo23"><%'=RS("operador")%></span></td>


<%CuantosRegistros=CuantosRegistros+1
rs.movenext
loop
end if
%>
</tr>
</table>
</table>
<%'Limpiamos los objetos (SIEMPRE)
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=gest_usuarios.asp?pagina="& PaginaActual-1& ">10 Anteriores</A>   ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=gest_usuarios.asp?pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if

%>

hola como estan, espro me ayuden con esta semntencia:
response.redirect("paginador.asp?fechaini=" & fecha_actual

como hago para pasar mas de una variable a travez del respose.redirect, yo tengo esto y solo he podido, paar una variable, no se como modificar la sentencia, la sintaxis que uso que manda error, ojalas me puedna ayudar , graCIAS


con esta sentencia solo logro pasar una variable, pero como le hago para pasar mas de una ???


gracias

hola como estan ??, tengo en 2 textos diferentes fechas que se han escogido desde un calendario, la idea es que cuando se envien estos 2 textos para realizar el rango de busqueda de informacion, me muestre resultados de acuerdo al rango, el problema es que no logro controlar el echo de que la fecha2 (o de termino) sea mayor o igual que la fecha1( de inicio), alguien me pudiera ayudar a comparar estas 2 fechas con el fin de que text2 sea mayor o igual a text , desde ya muchas gracias...

salu2

hola como estan???

mi pregunta es la siguiente, tengo un form y kiero enlazarlo con una tabla de una base datos sql server 7.0, y kiero trabajarla con proc. almacenados, hasta ahora solamente, lo habia echo con ado, pero me dijieron que que con proc. almacenados era mas eficiente, asi ke si alguien me puede echar una mano, estaria agradecido.


muchas gracias

monuytox