• Jueves 2 de Mayo de 2024, 01:50

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - jodijo5

Páginas: 1 ... 3 4 [5] 6 7 ... 9
101
VB .NET / Modos De Coneccion
« en: Miércoles 4 de Enero de 2006, 18:10 »
hola amigos, como se trabaja en modo conectado

102
VB .NET / Que Raro, Con Vb2005
« en: Lunes 2 de Enero de 2006, 17:36 »
hola amigos, esto es un poco raro para mi, estoy ya hace 2 meses que programo una aplicacion en vb.net2005, pero los controles, me salen como los del xp, que raro, porque eh probado haciendo una aplicxacion chiquita y aparte y en ella si me salen los controles correctos, eh revisado mi codigo por todos lados, y no encuentro nada, por si acaso no eh actualizado mi aplicacion mejor dicho no eh migrado desde una version anterior, estoy con el visualbasic 2005, y hace 2 dias que recien me di cuenta, vaya cabeza la mia, soy tan distraido que no me di cuenta a tiempo

GRACIAS DE ANTEMANO POR SU AYUDA

103
Programación de Archivos del Sistema / Archivos Inservibles
« en: Jueves 29 de Diciembre de 2005, 18:17 »
oigan amigos, cuando instalo un OS, a pesar que se eliminan los archivos de instalacion, simpre quedan archivos basura que el OS nunca utiliza, por ejemplo una vez quite el archivo driver.cab, y mi windows, siguió fuuncionando normal, pero si ese archivo no se instalaba la primera vez que deberia de usar el OS no, arancaba, asi, supongo que deben haber varios. queria pedirles que me pasen el dato de todos esos archivos inservibles, mi maquina esta desesperada de espacio

104
VB .NET / Sdl Y Lectora De Cdroom
« en: Sábado 24 de Diciembre de 2005, 19:24 »
hoa amigos, yo necesito apagar mi pc, en el momento en que la bandeja de mi lectora de DVD se abra, como lo puedo hacer, se como apagar el PC, pero no se como hacer lo otro, eh estado investigando, y tiene relacion con algo llamado sdl, que la verdad no tengo ni la menor idea de lo que es, por ahi encontrè sobre sdl net pero igual, la nota es que esa cosa tiene que ver con lo que busco, como puedo solucionar este problema, gracias de anteano por su ayuda

105
VB .NET / Teckla Windows
« en: Martes 20 de Diciembre de 2005, 21:51 »
copachays, como bloqueo la tecla windows, solo esa, ya probe con este truco de internet que consegui pero no funciona, bloque pero las combinaciones donde aparece la dichosa tecla, como le hago. gracias de antemano

106
VB .NET / Blokear Alt-tab
« en: Sábado 17 de Diciembre de 2005, 17:53 »
hola amigos, eh encontrado poraqui en el foro de visual basic 6.0, un codigo para bloquear la combinacion ALT + TAB, pero no es compatible con el .net, queria saber si hay algun modo de bloquear esta combinacion

107
ASP .NET / Conexion Fallida
« en: Jueves 15 de Diciembre de 2005, 01:21 »
HOLA AMIGOS, TENGO UN PROBLEMA AL HACER UNA APLICACION CON ASP.NET, me dice que mi coneccion esta mal, el nombre de mi maquina donde alojo el sitio web es DANNY-SOFT, diganme cual es el error aqui no lo consigo

Citar

Error de servidor en la aplicación '/salesiano'.
--------------------------------------------------------------------------------

Login failed for user 'DANNY-SOFT\ASPNET'.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.Data.SqlClient.SqlException: Login failed for user 'DANNY-SOFT\ASPNET'.

Error de código fuente:


Línea 25:         InitializeComponent()
Línea 26:         db.ConnectionString = "server=DANNY-SOFT;initial catalog=foros;integrated security=true"
Línea 27:         db.Open()
Línea 28:     End Sub
Línea 29:
 

Archivo de origen: c:\inetpub\wwwroot\salesiano\WebForm1.aspx.vb    Línea: 27

Seguimiento de la pila:


[SqlException: Login failed for user 'DANNY-SOFT\ASPNET'.]
   System.Data.SqlClient.ConnectionPool.GetConnection(Boolean& isInTransaction)
   System.Data.SqlClient.SqlConnectionPoolManager.GetPooledConnection(SqlConnectionString options, Boolean& isInTransaction)
   System.Data.SqlClient.SqlConnection.Open()
   salesiano.WebForm1.Page_Init(Object sender, EventArgs e) in c:\inetpub\wwwroot\salesiano\WebForm1.aspx.vb:27
   System.Web.UI.Control.OnInit(EventArgs e)
   System.Web.UI.Control.InitRecursive(Control namingContainer)
   System.Web.UI.Page.ProcessRequestMain()

 


--------------------------------------------------------------------------------
Información de versión: Versión de Microsoft .NET Framework:1.1.4322.573; Versión de ASP.NET:1.1.4322.573

108
VB .NET / Duda Con For Each
« en: Lunes 12 de Diciembre de 2005, 16:58 »
hola amigos, tengou problema, como le hago para recorrer todos los controles de u solo tipo especifico, esque lo que quiero hacer es recorrer todos los datetimepicker que tego un formulario, y a cada uno asignarle u mismo handler, lo recorro de la siguiente forma:
Código: Text
  1.  
  2. dim n as control
  3. for each n i me.controls
  4.      if(n.gettype="datetimepicker")then
  5.            addhandler n.valuechanged,addressof funcionmia
  6.      end if
  7. next
  8.  
  9.  
pero me da error al momento de aignarle el handler, porque me dice que no es un evento de un tipo generic o algo asi, el evento no me cuerdo bien, pero estoy seguro que es el correcto, alguie deme una idea por favor

gracias de antemano

109
VB .NET / Sentencia Sql
« en: Viernes 9 de Diciembre de 2005, 19:40 »
hola amigos, quiero hace una sentencia sql que me restaura un base de datos y otra que me hace un back u0p, se cmo hacerlo pero no se como implementarlo con el .net, esque no me deja si hago una coneccion y un dataset, eh probado con sqlcommand, pero na.

110
Delphi / Estructura De Datos
« en: Jueves 1 de Diciembre de 2005, 16:58 »
hola amigos, soy aun novato en delphi, como se hacen estructuras de datos.

111
C/C++ / Duda Con Char
« en: Sábado 26 de Noviembre de 2005, 20:48 »
hola amigos, eh encontrado un codigo que dice asi:
Código: Text
  1.  
  2. #include<iostream.h>
  3. #include<string.h>
  4. void main(){
  5. char n1[4],n2[8];
  6. strcpy(n1,"hola");
  7. strcpy(n2,"arbolito");
  8. cout<<n1-n2<<endl;
  9.  
  10.  
y ahora en la salido me sale:
Citar
-48
mi pregunta es cual es el proceso, o que es lo que se est{a haciendo alli para que salga ese valor.
gracias de antemano

112
Visual Basic 6.0 e inferiores / Ejercicios Con Ado
« en: Lunes 21 de Noviembre de 2005, 22:36 »
hola amigos, a peticion de una amiga, les pido esto, esque no tego mucho tiempo, porfa, donde puedo encontrar ejemplos con dbcombo y datagrid. gracias de antemano.

113
VB .NET / Listas
« en: Lunes 21 de Noviembre de 2005, 03:46 »
hola amigos, como se implementan listas enlazadas, esque no me deja, quiero hacer algo asy y no me deja:
Código: Text
  1.  
  2. public class matrix
  3.      public dato as string
  4.      public nodo as matrix
  5. end class
  6.  
  7.  

114
Visual Basic 6.0 e inferiores / Arbol Treeview
« en: Domingo 20 de Noviembre de 2005, 18:38 »
hola amigos tengo un problema quisiera que me ayuden a hacer este algoritomo que no me sale.

eh agregado el treeview de "microsoft windows controls 6.0" y le eh puesto la opcion para poner checks a cada nodo, y mi pregunta es:

como puedo hacer para que al poner check o sacar el check a un nodo padre, todos sus hijos tambien se checkeen o queden descheckeados, segun el caso.

gracias de antemano por su ayuda

115
Visual C++ / Aplicacion De 16 Bits
« en: Miércoles 9 de Noviembre de 2005, 16:32 »
hola amigos, hace tiempo publicque una discucion, como puedo hacer que mi aplicacion se ejecute despues de la bios pero antes del OS, y me contestaron que tengo que hacer una aplicacion de 16 bits en asm, pero no se mucho de assembler asi que queria saber si se puede en c++, o quizas en un compilador especifico, si es que se puede como le puedo hacewr?

gracias de antemano por su ayuda

116
Visual Basic 6.0 e inferiores / Fechas En Sql
« en: Domingo 6 de Noviembre de 2005, 16:17 »
holaamigos, como que me da un poco de verguenza preguntar esto pero bueno, con las bases de datos de sql siempre eh trabajado pero no eh necesitado trabajar especificamente con fechas, pèro ahora lo tengo que hacer y no me funciona la consulta de vb, eh probado de los siguientes modos y ninguno funciona:

Código: Text
  1.  
  2. set dbf=db.execute("select * from pedidos where fecha = 25/10/2005")        *
  3. set dbf=db.execute("select * from pedidos where fecha = '25/10/2005'")       *
  4. set dbf=db.execute("select * from pedidos where fecha = #25/10/2005#")    
  5. set dbf=db.execute("select * from pedidos where fecha like 25/10/2005")     *
  6. set dbf=db.execute("select * from pedidos where fecha like '25/10/2005'")    *
  7. set dbf=db.execute("select * from pedidos where fecha like #25/10/2005#")
  8.  
  9.  

como deberia de ser la sintaxis correcta, los que estan con (*), funcionan pero no cargan ningun registro, los demas me dicen error de sintaxis.

gracias de antemano por su yuda

117
Visual Basic 6.0 e inferiores / Problema Con Savepicture
« en: Martes 1 de Noviembre de 2005, 21:00 »
hola copachays, tengo un problema, miren tengo una imagen ya cargada en tiempo de diseño y utilizo luego el metodo paintpicture paraponer una imagen mas dentro de este picturebox algoasi:

Código: Text
  1.  
  2. private sub form_load()
  3.     picture1picture=loadpicture(app.path + "\miarchivo.bmp")
  4.     'aqui viene lo que les digo
  5.     picture1.paintpicture(image1.picture,0,0)
  6.     'mi problema viene aqui cuando quiero guardar la imagen de picturebox
  7.     'junto con la que le agregué, el problema es que solo guarda la imagen
  8.     'que estaba cargada sin la que la agregue
  9.     savepicture picture1.picture,app.path + "\miarchivo2.bmp"
  10. end sub
  11.  
  12.  

y bueno ese es mi problema, como podria solucionarlo amigos?
gracias de antemano por su ayuda

118
Visual Basic 6.0 e inferiores / Ruta De Carpetas Especiales
« en: Lunes 31 de Octubre de 2005, 15:38 »
hola amigos, como se la ruta de las carpetas especiales de windows:

sistema de windows
windows
system32
escritorio
mis documentos
documentos compartidos
fuentes
etc...

119
Hardware / Os Pendejo
« en: Viernes 28 de Octubre de 2005, 03:15 »
disculpen la exprecion en primer lugar, bueno en mi maquina tenia dos OS de windows y uno falló asi que lo saqué de el archivo boot.ini, pero ese OS estaba en la particion primariam y ese fue el que instalé primero, ahora: lo quite del disco duro, pero para la siguiente vez ya no inicio el OS que me quedaba a pesar que rescaté el archivo boot.ini, ahora no me queda otra opcion que reinstalar ese sistema que saque, o ustedes que me recomiendan

120
Visual Basic 6.0 e inferiores / Grilla Con Combobox
« en: Lunes 24 de Octubre de 2005, 15:13 »
hola amigos, tengo una necesidad, necesito que mi grilla, mshflexgrid, datagrid, o flexgrid que al situarme en una celda me aparezca un combobox, quiero hacer algo com cuando en el excel le pongo filtros a mis datos y en ciertas celdas ya aparecen los combos, eso quiero hacer oooooo algo asi miren:

121
VB .NET / Datagrid
« en: Miércoles 19 de Octubre de 2005, 00:35 »
hola amigos, tengo que hacer una aplicacion para estadistica, pero lo quiero hacer en .net para poder aprender, necesito una grilla, pero no me conecto a ninguna base de datos; sino que en esta grilla tengo que poner algunos datos y luego hacer algnos calculos; mi problema es que entre los componentes solo encuentro un datagrid, pero este, no permite nisiquiera agregar los campos respectivos; que puedo hacer?  :(

graxias de antemano por su ayuda

122
VB .NET / Problema Con Excel
« en: Lunes 3 de Octubre de 2005, 17:26 »
hola amigos, tengo que hacer una aplicacion que haga un analisis estadistico en excel, agreggo la referencia correspondiete, y declaro las siguientes variables
Código: Text
  1.  
  2. private wbook as new excel.workbook
  3. private wsheet as new excel.worksheet
  4. private xc as new excel.application
  5.  
pero me da error, no se porque, incluso si le quito el "new";
porfavopr ayudenme, gracias de antemano, no les paso mi codigo porque no lo tengo a la mano esta es una pc prestada ya que la mia no tiene internet.

chaofas

123
Visual Basic 6.0 e inferiores / Capturar Solo Ventana Activa
« en: Miércoles 21 de Septiembre de 2005, 17:45 »
ahola amigos, tengo un problema y es urgente, porfa; tengo que capturar la pantalla pero solo de la ventana activa, y no se como hacerlo; no lo quiero con todo y el escritorio, solo quiero la ventana activa; ya probe usando send keys para mandar al teclado ctrl+ alt+ prtsc, pero no responde, probe con el .net, pero existe un problema no puedo hacer DLL's, asi que por ahi vi algo sobre capturar todo el escritorio pero por meido de apis, pero eso no lo puedo aplicar a lo que yo quiero, porfa ayudenme, es urgente. gracias de antemano por su cooperacion

124
VB .NET / Hacer Un Dll
« en: Miércoles 21 de Septiembre de 2005, 17:10 »
hola amigos, pues veran tengo este problema, estube probando con vb 6.0 para utilizar sendkeys, y presionar las teclas "ctrl+alt+impr pant" pero no me daba resultado pues estoy haciendo un sistema en ese lenguaje como ya casi está acabado pues no puedo migrar a .net, la nota es que este metodo si dio resultado en el .net, y ahora quiero formar un dll en vb.net y asi solucionar mi problema, pero no existe una opcion para formar dlls, como lo hago oooo tienen alguna otra idea de como puedo solucionar mi problema. gracias amigos por su ayuda de antemano.

125
Visual Basic 6.0 e inferiores / Problema Con Excel
« en: Jueves 15 de Septiembre de 2005, 17:28 »
hola amigos, hice una clase para poder tabajar con excel desde mi aplicacion, pero me da problemas, esta clase lo uso para generar reportes en excel, ya que no me gusta trabajar con datareports ni crystal reports, la nota es que tengo una funcion "agregar", que sirve para llenar una celda determinada;
aparte de la clase tengo una serie de fnciones que ahora se las paso:
Código: Text
  1.  
  2. Option Explicit
  3. Const n As Integer = 8
  4. Private i As Integer
  5. Private infoboleta As xrpt
  6. Private Sub Prtrpt()
  7. 'On Error Resume Next
  8. Set dbf = db.Execute("select enccomprobante.IdEncComprobante," & _
  9.                      "clientes.Nombres," & _
  10.                      "clientes.Paterno," & _
  11.                      "clientes.Materno," & _
  12.                      "enccomprobante.Fecha," & _
  13.                      "enccomprobante.Subtotal," & _
  14.                      "enccomprobante.IGV," & _
  15.                      "enccomprobante.Total," & _
  16.                      "enccomprobante.IdEmpleado " & _
  17.                      "from EncComprobante inner join clientes " & _
  18.                      "on enccomprobante.idcliente=clientes.idcliente ") ' & _
  19.                      '"where enccomprobante.fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#")
  20. With infoboleta
  21.     Call .agregar("A" & (n + i) & ":G" & (n + i), "Listado de comprobantes")
  22.     i = i + 1
  23.     Call .agregar("A" & n + i, "Codigo", True)
  24.     Call .agregar("b" & n + 1, "Cliente", True)
  25.     Call .agregar("c" & n + i, "Fecha", True)
  26.     Call .agregar("d" & n + i, "Empleado", True)
  27.     Call .agregar("e" & n + 1, "Subtotal", True)
  28.     Call .agregar("f" & n + i, "Total", True)
  29.     i = i + 1
  30.     Do Until (dbf.EOF)
  31.     If (CDate(dbf(4)) < CDate(Text1(1)) And CDate(dbf(4)) > CDate(Text1(0))) Then
  32.         Call .agregar("a" & n + i, dbf(0), True) 'codigo
  33.         Call .agregar("b" & n + i, dbf(1) & " " & dbf(2) & " " & dbf(3), True) 'cliente
  34.         Call .agregar("c" & n + i, dbf(4), True) 'fecha
  35.         'Call .agregar("d" & n + i, empleado(dbf(8)), True) 'empleado
  36.         Call .agregar("e" & n + i, dbf(5), True) 'subtotal
  37.         Call .agregar("f" & n + i, dbf(6), True) 'igv
  38.         Call .agregar("g" & n + i, dbf(7), True) 'total
  39.         i = i + 1
  40.     End If
  41.         dbf.MoveNext
  42.     Loop
  43. End With
  44. End Sub
  45. Private Sub prtcf(ByVal x As String) 'imprimir frecuencia cliente
  46. On Error GoTo bug
  47. Set dbf = db.Execute("SELECT (IdCliente) AS clientes, COUNT(IdCliente) AS veces " & _
  48. "From EncComprobante  " & _
  49. "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#" & _
  50. " GROUP BY IdCliente  " & _
  51. "ORDER BY min(IdCliente) " & x)
  52. i = i + 1
  53. If (x = "desc") Then
  54.     Call infoboleta.agregar("a" & n + i, "El cliente más frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras")
  55. Else
  56.     Call infoboleta.agregar("a" & n + i, "El cliente menos frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras")
  57. End If
  58. bug:
  59. End Sub
  60. Private Sub prtvd() 'impriomir ventas diarias
  61. Set dbf = db.Execute("SELECT Fecha, SUM(Total) AS Expr1 " & _
  62.                 "From EncComprobante " & _
  63.                 "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "# " & _
  64.                 "GROUP BY Fecha  " & _
  65.                 "ORDER BY Fecha")
  66. i = i + 1
  67. With infoboleta
  68. Call .agregar("a" & n + i & ":g" & n + i, "Ventas Diarias")
  69. i = i + 1
  70. Call .agregar("a" & n + i, "fecha", True)
  71. Call .agregar("b" & n + i, "Total", True)
  72. i = i + 1
  73. Do Until dbf.EOF
  74.     Call .agregar("a" & n + i, dbf(0), True)
  75.     Call .agregar("b" & n + i, dbf(1), True)
  76.     i = i + 1
  77.     dbf.MoveNext
  78. Loop
  79. End With
  80. End Sub
  81. Private Sub prtpv(x As String)
  82. Set dbf = db.Execute("SELECT Idproducto, SUM(Cantidad) AS total " & _
  83.                     "From Kardex " & _
  84.                     "WHERE     (Motivo LIKE 'venta') " & _
  85.                     "GROUP BY Idproducto " & _
  86.                     "ORDER BY SUM(Cantidad)")
  87. If (x = "desc") Then
  88.     x = " más "
  89. Else
  90.     x = " menos "
  91. End If
  92. i = i + 1
  93.     Call infoboleta.agregar("a" & n + i, "El producto" & x & "vendido es: " & dbf(0) & " con una cantidad de: " & dbf(1) & " unidades")
  94. End Sub
  95. Private Sub prtkx()
  96. Set dbf = db.Execute("select * from kardex")
  97. Dim a As Integer
  98. With infoboleta
  99. i = i + 1
  100. .neg = True
  101. .agregar "a" & n + i & ":g" & n + i, "Kardex"
  102. .agregar "a" & n + i, "Producto", True
  103. .agregar "b" & n + i, "Cantidad", True
  104. .agregar "c" & n + i, "Motivo", True
  105. .agregar "d" & n + i, "Tipo de doc.", True
  106. .agregar "e" & n + i, "N° Documento", True
  107. .agregar "f" & n + i, "Fecha", True
  108. i = i + 1
  109. .neg = False
  110. Do Until dbf.EOF
  111.     .agregar "a" & n + i, dbf(1), True
  112.     .agregar "b" & n + i, dbf(2), True
  113.     .agregar "c" & n + i, dbf(3), True
  114.     .agregar "d" & n + i, dbf(4), True
  115.     .agregar "e" & n + i, dbf(5), True
  116.     .agregar "f" & n + i, dbf(6), True
  117.     dbf.MoveNext
  118. Loop
  119. End With
  120. End Sub
  121. Private Sub prtp(x As String)
  122. Set dbf = db.Execute("SELECT Productos.IdProveedor, COUNT(Productos.Idproducto) AS Expr1 " & _
  123.                     "FROM Productos INNER JOIN " & _
  124.                     "Proveedores ON Productos.IdProveedor = Proveedores.IdProveedor " & _
  125.                     "GROUP BY Productos.IdProveedor " & _
  126.                     "ORDER BY COUNT(Productos.Idproducto)" & n)
  127. If (x = "desc") Then
  128.     x = " mejor "
  129. Else:
  130.     x = " peor "
  131. End If
  132. i = i + 1
  133. infoboleta.agregar "a" & n + i, "el" & x & "proveedor es:"
  134. 'aqui falta completar la oraci{on
  135. End Sub
  136. Private Sub Command1_Click()
  137. 'Listado de comprobantes.YA
  138. 'Cliente más frecuente.YA
  139. 'Cliente menos frecuente.YA
  140. 'Ventas diarias.YA
  141. 'Producto mas vendido.YA
  142. 'Producto menos vendido.YA
  143. 'Kardex.YA
  144. 'Mejor proveedor.YA
  145. 'Peor proveedor.YA
  146. i = 0
  147. Set infoboleta = New xrpt
  148. infoboleta.nuevo_doc (App.Path + "\Reportes\general.xlt")
  149. infoboleta.mostrar_doc = True
  150. If (List1.Selected(0) = True) Then Call Prtrpt
  151. If (List1.Selected(1) = True) Then Call prtcf("desc")
  152. If (List1.Selected(2) = True) Then Call prtcf("asc")
  153. If (List1.Selected(3) = True) Then Call prtvd
  154. If (List1.Selected(4) = True) Then Call prtpv("desc")
  155. If (List1.Selected(5) = True) Then Call prtpv("asc")
  156. If (List1.Selected(6) = True) Then Call prtkx
  157. If (List1.Selected(7) = True) Then Call prtp("desc")
  158. If (List1.Selected(8) = True) Then Call prtp("asc")
  159. Unload Me
  160. End Sub
  161. Private Sub Command2_Click()
  162. Unload Me
  163. End Sub
  164. Private Function cliente(id As String) As String
  165. On Error Resume Next
  166. Dim cli As New ADODB.Recordset
  167. Set cli = db.Execute("select nombres,paterno,materno from clientes where idcliente='" & id & "'")
  168. cliente = cli(0) & " " & cli(1) & " " & cli(2)
  169. End Function
  170. Private Function empleado(id As String) As String
  171. On Error Resume Next
  172. Dim emp As New ADODB.Recordset
  173. Set emp = db.Execute("select nombres,paterno,materno from personal where idempleado='" & id & "'")
  174. empleado = emp
  175. End Function
  176. Private Sub Form_Load()
  177. Text1(0) = Date
  178. Text1(1) = Date
  179. i = 0
  180. End Sub
  181.  
  182.  
  183.  

que es para rellenar todos los requeimientos del reporte; cuando llamo solo a una funcion de estas no me da error, pero si llamo a mas de una dentro de la clase me da un error que dice "error con la variable global Range", pero mi sintaxis esta bien, ayudenme con esto lo mas antes posible por favor, es urgente

gracias de antemano

Páginas: 1 ... 3 4 [5] 6 7 ... 9