• Miércoles 14 de Mayo de 2025, 22:16

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.


Mensajes - F_Tanori

Páginas: 1 ... 57 58 [59] 60 61 ... 83
1451
Visual Basic para principiantes / Re: Insertar Texto
« en: Jueves 10 de Mayo de 2007, 21:34 »
Hola


Esta es una manera espero te sirva


Código: Text
  1. Private Sub Command1_Click()
  2.     Dim ls_Antes as string
  3.     ls_Antes = Mid(Text1.Text, 1, Me.Text1.SelStart)
  4.     Text1.Text = ls_Antes & Clipboard.GetText & Mid(Text1.Text, Me.Text1.SelStart + 1)
  5.     Me.Text1.SelStart = Len(ls_Antes) + Len(Clipboard.GetText)
  6.     Me.Text1.SetFocus
  7. End Sub
  8.  


Saludos

1452
PHP / Re: Ayuda! Pxp Y Xml
« en: Martes 8 de Mayo de 2007, 09:00 »
puedes invertir el orden de aparicion de los divs :P



Código: Text
  1. <?php
  2. header("Content-Type: text/html; charset=iso-8859-1");
  3. $mensajes = simplexml_load_file('mensajes.xml');
  4. $mensaje = $mensajes->mensaje;
  5.  
  6.  
  7. $DivId=1;
  8.  
  9. if ($mensaje) {
  10. foreach ($mensaje as $entrada) {
  11.  
  12.   if ($entrada->contacto != ''){
  13.      $msg="<div id='mensaje".$DivId."'><div class='datos'><a href='$entrada->contacto'>$entrada->nombre</a> dijo</div>".
  14.          "<div class='entrada'>$entrada->cuerpo</div></div>".$msg;
  15.   } else {
  16.      $msg="<div id='mensaje'><div class='datos'>$entrada->nombre dijo</div>".$msg;
  17.      $msg.="<div class='entrada'>$entrada->cuerpo</div></div>";
  18.      }
  19.  
  20.   $DivId++;
  21. }
  22. echo $msg;
  23. }
  24. ?>
  25.  

Espero te sirva
Saludos

1453
C/C++ / Re: Marxismo
« en: Martes 8 de Mayo de 2007, 08:23 »
http://foros.solocodigo.com/index.php?showtopic=5710



;)

1454
Visual Basic para principiantes / Re: Como Conectar Un Datagrid Sin Recurrir A Un Adodc
« en: Lunes 7 de Mayo de 2007, 03:31 »
Una vez que tengas los datos en el recordset se lo asignas al DataGrid


Ejemplo utilizando (ODBC) (Es necesario la refrencia a Microsoft Activex Data Object 2.x)

Código: Text
  1. Private Sub Form_Load()
  2.    Dim cnn As New Connection
  3.    Dim rs  As New Recordset
  4.    
  5.    cnn.Open "DSN=empleados"
  6.    cnn.CursorLocation = adUseClient
  7.    rs.Open "Select * from t_empleados", cnn
  8.    Set Me.DataGrid1.DataSource = rs
  9. End Sub
  10.  
  11.  


Lee esto
http://www.elguille.info/VB/cursos_vb/basico/basico41.htm


Saludos

1455
Visual Basic para principiantes / Re: Sentencia Sql
« en: Lunes 7 de Mayo de 2007, 03:09 »
¿Que base de datos estas utilizando?

¿Te da algun error?

Saludos

1456
Power Builder / Re: Power Builder Y Sql Server
« en: Domingo 6 de Mayo de 2007, 09:17 »
Cita de: "Jhois"
:( Muchas gracias, y disculpa la molestia...

De nada,No es ninguna :P

Citar
Es que la ayuda esta en inglés, y no sé muy bien inglés,pero gracias.

El codigo es en ingles, vete a los ejemplos directamente yo tambien soy malo para el ingles :P

Citar
Lo que también no se es que si imprimo así no mas el datawindow, yo solo utilizo un dw tipo grid, nada mas...

Si, depende de que es lo que necesites

Citar
Pero a de haber alguno en donde pueda diseñar algo pleno, por ejemplo diseñar un estado de resultados para que imprima...Cómo hago eso?

Hay otros tipos de presentaciones, como Forms puedes crear pantallas completas en DWs, Tabular : puedes mover las columnas libremente no como el grid,hay graficos( barras, pastel...) y en alguna versiones hay dw compuestos (dw dentro de dw :o) las versiones que he utilizado en mi caso 10,8 y 6.5 en ese orden :P (y algunas cosas no funcionan de una version a otra menos si le das para atras :P) hacer un estado financiaro es muy sencillo en un tabular, incluso hasta en un grid

Citar
Disculpa la molestia,

No hay nada que disculpar ;) para eso es este foro, para ayudar

Citar
pero me siento muy impotente, y pues parece cosas muy fáciles pero hay demasiadas cosas que no entiendo,

Todos iniciamos asi cuando queremos aprender algo


Citar
pero me interesa aprender mucho de power builder... ;)

Eso es lo importante


Citar
:D Disculpa

¿Otra vez ?  <_<


Citar
y agradezco mucho tu ayuda!

No hay de que :D

Citar
Atentamente
nueva programadora desesperada!

Suerte

Saludos

1457
Visual Basic para principiantes / Re: Como Imprimir Un Rango En Un Spreadsheet
« en: Sábado 5 de Mayo de 2007, 23:44 »
Hola

al parecer no hay un metodo de impresion, he probado de esta manera y se ha podido imprimir (a través de Excel)



Código: Text
  1. Function ImprimirRango(Rango As String)
  2. On Error GoTo xError
  3.  Dim oExcel As Object
  4.  
  5.  Set oExcel = CreateObject("Excel.Application")
  6. ' oExcel.Visible = True 'Mostrar aplicacion
  7.  
  8.    With oExcel
  9.         .WorkBooks.Add
  10.        
  11.             With Spreadsheet1
  12.                 .Range(Rango).Select
  13.                 .Selection.Copy
  14.             End With
  15.        
  16.         .Range(Rango).Select
  17.         .ActiveSheet.Paste
  18.         .Range(Rango).Select
  19.         .Selection.PrintOut Copies:=1, Collate:=True
  20.         .WorkBooks(1).Close (False)
  21.     End With
  22.    
  23.    oExcel.Quit 'Cerrar Aplicacion
  24.    Set oExcel = Nothing 'Destruir Objeto
  25.  
  26. xError:
  27. If Err.Number > 0 Then
  28.    MsgBox (Err.Description)
  29.    Err.Clear
  30. End If
  31. End Function
  32.  
  33.  

Ejemplo

Código: Text
  1. Private Sub Command1_Click()
  2.    ImprimirRango ("A1:G54")
  3. End Sub
  4.  
  5.  

Saludos Espero te sirva


y no esta de mas recordar el no repetir preguntas :)

1458
Power Builder / Re: Power Builder Y Sql Server
« en: Viernes 4 de Mayo de 2007, 08:48 »
MySQL :) es 'gratis', y es MUY BUENO, y cualquiera a traves de ODBC

mira esta es una manera de imprimir

Código: Text
  1. dw_1.print()
  2.  

otra

con esto lo mandas a la impresora predeterminada

Código: Text
  1.  
  2. long job
  3. job = PrintOpen( )
  4. PrintDataWindow(job, dw_deudas)
  5. PrintClose(job)
  6.  


para tomar las impresoras te devuelve los nombres en una cadena de las impresoras disponibles

Código: Text
  1. string ls_Impresoras
  2. ls_Impresoras=PrintGetPrinters ( )
  3.  
  4.  

La predeterminada
Código: Text
  1.  
  2. ls_Default=PrintGetPrinter ( )
  3.  


Para enviar a otra impresora no predeterminada

Código: Text
  1.  
  2. long job
  3.  
  4. ls_Default=PrintGetPrinter ( )
  5. PrintSetPrinter ('HP')
  6. job = PrintOpen( )
  7. PrintDataWindow(job, dw_deudas)
  8. PrintClose(job)
  9. PrintSetPrinter (ls_Default)
  10.  
  11.  


En la ayuda de PB esta muy completa y puedes encontrar muchos ejemplos, es la mejor ayuda que e visto de todos los programas que he visto :P


Saludos

1459
Visual Basic 6.0 e inferiores / Re: Importar Datos De Excel A Vb Aplicación
« en: Viernes 4 de Mayo de 2007, 08:09 »
Hola


mira de esta manera puedes abrir un archivo de excel creando un objeto tipo excel


Código: Text
  1. Private Sub Command1_Click()
  2. On Error GoTo xError
  3.   Dim oExcel As Object
  4.  
  5.   Set oExcel = CreateObject("Excel.Application")
  6.      
  7.   'oExcel.Visible = True 'Mostrar aplicacion
  8.  
  9.     With oExcel
  10.         .Workbooks.Open App.Path & "\Libro1.xls"
  11.         .Workbooks(.Workbooks.Count).Activate
  12.    
  13.         MsgBox (.Range("C1"))
  14.      End With
  15.    
  16.     oExcel.Quit 'Cerrar Aplicacion
  17.     Set oExcel = Nothing 'Destruir Objeto
  18.  
  19. xError:
  20.  If Err.Number > 0 Then
  21.     MsgBox (Err.Description)
  22.     Err.Clear
  23.  End If
  24. End Sub
  25.  


Con eso leerias el valor que esta en C1 y se mostraria en un cuadro de mensaje,ahora si esto te sirve solo tendrias que hacer una funcion para tomar las celdas que quieras leer :)

Saludos
Espero te sirva

Gracias a Angel_K_Ido por su referencia :P

1460
Power Builder / Re: Mantenimiento De Registros Mediante Conexión Odbc
« en: Miércoles 2 de Mayo de 2007, 08:33 »
No creo que sea la version, ese codigo esta probado en 8 y en 10 el nueve no lo tengo :P

La base de datos estaba cerrada cuando intentaste compactar? debe estarlo
ni aun el mismo access puede compactar las base de datos abierta :P


las rutas son correctas?
verifica que no vayas a estar haciendo referencia a rutas invalidas



Saludos

1461
Power Builder / Re: Funcion SetFilter
« en: Martes 1 de Mayo de 2007, 21:17 »
El detalle esta asi:

Si tu quieres filtrar por un campo texto es necesario que los valores lleven comillas
ejemplo:

Citar
em_fechai.text='23/11/2007'

Citar
"compras_fecha >= "+ em_fechai.text  (si lo vemos con datos seria algo asi),

"compras_fecha >= 23/11/2007"

entonces si el campo compras_fecha es texto la expresion no es valida
debe de ser le valor entre comillas ('):

Citar
"compras_fecha >= '23/11/2007'"

Para lograr eso es necesario concatenarle las comillas asi:

Código: Text
  1. "compras_fecha >= '"+ em_fechai.text +"'"
  2.  

Ese detalle es para los campos tipo texto (varchar,char ...) tu puedes resolver el filtro que estas aplicando
concatenado comillas
Código: Text
  1.  
  2. "compras_fecha >= '"+ em_fechai.text +"' and compras_fecha <= '"+ em_fechaf.text +"'"
  3.  
  4.  

Pero el resultado no seria el esperado, debido a que no estas estableciendo un rango de fechas pues estas comparando
cadenas

si tu campo es tipo texto y quieres un rango de fechas es necesario convertir el dato del campo en una fecha
(no se necesario cambiar el tipo de dato en la bd, si no se desea) a traves de la funcion Date seria asi

Código: Text
  1.  
  2. ls_Filtro="Date(compras_fecha) >= Date('"+ em_fechai.text +"') and Date(compras_fecha) <= Date('"+ em_fechaf.text +"')"
  3.  
  4. dw_cuentas.SetFilter(ls_Filtro)
  5. dw_cuentas.Filter()
  6.  
  7.  

asi comparas fechas contra fechas :)

Otro detalle, no es posible aplicar un filtro sobre datos filtrados en el mismo DW pues al colocar el filtro
(SetFilter) y ejecutarlo (Filter) se elimina el anterior aplicando el nuevo por eso es necesario aplicar todos los
criterios en un solo filtro

Código: Text
  1.  
  2. ls_Filtro="Proveedor='Solocodigo' and Date(compras_fecha) >= Date('"+ em_fechai.text +"') and Date(compras_fecha) <= Date('"+ em_fechaf.text +"')"
  3.  
  4. dw_cuentas.SetFilter(ls_Filtro)
  5. dw_cuentas.Filter()
  6.  
  7.  
  8.  

Saludos

1462
Power Builder / Re: Mantenimiento De Registros Mediante Conexión Odbc
« en: Martes 1 de Mayo de 2007, 19:18 »
Si tu base de datos tiene tanto trabajo no creo que access sea lo adecuado deberias conciderar el cambiarlo...

Si aun no haz encontrado la solucion...

para compactar yo lo hago de esta manera y me funciona, es cuestion de que lo adaptes a lo tuyo y ver si requiere validaciones y modificaciones ... (Nota Es necesario tener instalado Access para poder crear el Objeto)

Código: Text
  1. Oleobject Access
  2. String ls_Base,ls_Base2
  3.  
  4. ls_Base="C:\encuesta.mdb"
  5. ls_Base2="C:\encuesta2.mdb"
  6.  
  7. Access=Create Oleobject
  8. Access.ConnectToNewObject("Access.Application")
  9.  
  10.  
  11. if FileExists(ls_base2) then
  12.   FileDelete(ls_base2)
  13. end if  
  14.  
  15. Access.CompactRepair(ls_base,ls_base2,True)
  16.  
  17. /* Remplazar el archivo ORIGINAL por el COMPACTADO */
  18.  
  19. if FileExists(ls_base2) then
  20.   FileCopy (ls_Base2,ls_Base, True)
  21.   FileDelete(ls_base2)
  22. end if  
  23.  
  24. Access.Quit
  25. Destroy Access
  26.  


Saludos

1463
Power Builder / Re: Funcion SetFilter
« en: Martes 1 de Mayo de 2007, 18:40 »
El filter es como un Having y puedes utilizar varios criterios para hacer el filtro por ejemplo solicitar el proveedor y la fecha inicial y la fecha final y crear el criterio del filtro

En una variable string....

Código: Text
  1. String Criterio
  2.  
  3. Criterios="Proveedor='070550' and (Fecha>=Date('29/03/2007')  and Fecha<=Date('26/04/2007')) "
  4.  
  5. dw_1.SetFilter(Criterios)
  6. dw_1.Filter()
  7.  

Saludos

1464
La taberna del BIT / Re: Felicidades Angel38
« en: Martes 1 de Mayo de 2007, 05:26 »
Felicidades que te la pases excelente  :comp:  :ball:  :beer:  :birthday:  :clown:  :guitar:  :good:  :food:

1465
Visual FoxPro / Re: Como Ejecutar Vfp 6.0 Desde Ejecutar De Windows
« en: Domingo 29 de Abril de 2007, 23:29 »
http://foros.solocodigo.com/index.php?showtopic=28356&hl=

 :P

Es la misma operacion

1466
Visual Basic 6.0 e inferiores / Re: Cargar Vb 6.0 Desde Boton Ejecutar De Windows
« en: Domingo 29 de Abril de 2007, 23:25 »
Puedes crear un acceso directo en la carpeta del sistema


Citar
%windir%\system32

y crear un acceso directo (*.lnk) a Visual Basic (ejemplo: "C:\Archivos de programa\Microsoft Visual Studio\VB98\VB6.EXE")

y ahi le das el nombre que tu quieras (ejemplo: Visual)

y ahora  en ejecutar escribes visual (o el nombre que hayas elegido) y listo
se abrira el visual :P


Espero te sea de utilidad


Saludos

1467
Visual Basic 6.0 e inferiores / Re: Curiosidad Al Desplazar Un Control
« en: Domingo 29 de Abril de 2007, 07:36 »
Pue si es algo curioso y es verdad no todas las letras dejan rastro de esa fuente

ami me funciono cambiando la propiedad ed la etiqueta AutoSize=False y funcion


Para hacerlo rebotar puedes guiarte con esto

Código: Text
  1.  
  2. Dim ARRIBA_ABAJO  As Integer, IZQUIERDA_DERECHA As Integer, AVANCE As Integer
  3. Private Sub Form_Load()
  4.     ARRIBA_ABAJO = 1
  5.     IZQUIERDA_DERECHA = 1
  6.     AVANCE = 100
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10.    
  11.     If (lbletiqueta.Top) <= 0 Then ARRIBA_ABAJO = 1: Beep
  12.     If (lbletiqueta.Left) <= 0 Then IZQUIERDA_DERECHA = 1: Beep
  13.    
  14.     If (lbletiqueta.Top + lbletiqueta.Height) + (AVANCE + 150) >= Me.Height Then ARRIBA_ABAJO = -1
  15.     If (lbletiqueta.Left + lbletiqueta.Width) >= Me.Width Then IZQUIERDA_DERECHA = -1
  16.    
  17.     lbletiqueta.Left = lbletiqueta.Left + (AVANCE * (IZQUIERDA_DERECHA))
  18.     lbletiqueta.Top = lbletiqueta.Top + (AVANCE * (ARRIBA_ABAJO))
  19.     DoEvents
  20.        
  21. End Sub
  22.  


Saludos mi estimado Abel espero te ayude

1468
SQL Server / Re: Querys Dinamicos
« en: Martes 24 de Abril de 2007, 01:10 »
Ya que estamos hablando de querys dinamicos :P

alguien me puede dar una mano con esto?

tengo este query  con execute pero necesito sacarlo a una variable

Código: Text
  1.  
  2. declare @var int
  3.  
  4. execute('select count(p.idproyecto) from actividades a,proyectos p where a.idproyecto=p.idproyecto and p.idproyecto in (1,12,3,7)')
  5.  


Saludos

1469
Sobre los Foros de SoloCodigo / Re: Sobre Los Mensajes De La Taberna Del Bit
« en: Lunes 23 de Abril de 2007, 04:48 »
Pues yo tambien me voy por el NO

* Tambien creo que habria muchas discuciones improductivas en las discuciones activas
* A mi a veces se me olvida entra a la Taberna del Bit y hay varias discuciones suaves y mucho material para leer :P (entre peleas y cosas razonables) entonces es 'emocionante' entrar

--*Hipoteis*---
* No se si esto afecte o sea evitable  :unsure: , pero si se tomara como un foro 'normal' los mensajes que se publican ahi serian contabilizados?!?  :unsure:  entonces este seria un foro de puros usuarios improductivos ya que la mayoria de los usuarios frecuentes publican (amos) mucho en la TB, ya he visto muchas respuestas que no ayudan y un dia lei a un usuario nuevo que le replico una respuesta a un miembro (ya mas viejo, con bastantes mensajes no recuerdo quien era  :whistling: ) pero le dijo..

"Con razon eres un usuario tan activo con esas respuestas tan inutiles" o algo asi  :lol:
vaya tal vez me fui muy a fondo, pero habria usuarios que pasarian a ser 'Gran colaborador' con mensajes que quizas no tengan sentido o aporte (lo cual yo lo veo como un foro de mala calidad, y SC no es de esos  :blink: )... no se si me explico :P

disculpen,tal vez hoy me levante muy amargado... :angry:



:P
--* fin *--

Saludos

1470
Power Builder / Re: Devolver Uno O Más Valores Con Retrieve
« en: Lunes 23 de Abril de 2007, 02:09 »
Tu duda es un poco confusa, la verdad es que no he logrado tomarte la idea, o el problema :P


Cita de: "juan_pz "
el problema es con uno ellos el cual tiene tiene 4 parámetros


el problema son los parametros?  :blink:

Saludos

1471
General / Ajax
« en: Domingo 22 de Abril de 2007, 20:51 »
Aqui hay unas paginas muy buenas con informacion de ajax


una pagina 'Menu'  :P :
http://www.miniajax.com/

Ejemplos:
http://www.dhtmlgoodies.com/index.html?page=ajax


mi favorita, un trabajo excelente y facil de integrar a los proyectos

http://prototype-window.xilinus.com/

Aqui en el foro ya hay ejemplos sencillos

todo esto no solo tiene aplicacion en Web sino tambien en programas de 'escritorio' (visual basic,powerbuilder.... etc)


Saludos

1472
Java / Re: Dibujar Diagramas Uml
« en: Domingo 22 de Abril de 2007, 02:05 »
esta este

http://argouml.tigris.org/


tambien puedes usar el visio


Saludos

1473
Visual Basic 6.0 e inferiores / Re: Constante
« en: Domingo 22 de Abril de 2007, 00:49 »
Hola Abel


mira para borrar el contenido de un TextBox


puedes usarlo asi


Código: Text
  1.    Text1.Text = vbNullString
  2.  

o
Código: Text
  1.    Text1.Text = Empty
  2.  

o
Código: Text
  1.    Text1.Text = ""
  2.  


Espero te sea de utilidad

Saludos

1474
MySQL / Re: Como Conectar A Mysql?
« en: Sábado 21 de Abril de 2007, 23:26 »
te falta entrar a la carpeta BIN que es donde esta el mysql



Saludos

1475
La taberna del BIT / Feliz Cumpeaños
« en: Sábado 21 de Abril de 2007, 23:05 »
Feliz cumpleaños a nuestro compañero

 :beer:  :birthday:  :guitar:  :kicking:

sergiotarrillo el chico MS :P


Saludos

Páginas: 1 ... 57 58 [59] 60 61 ... 83