• Viernes 8 de Noviembre de 2024, 13:58

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

Páginas: [1]
1
Java / Ayuda Plis
« en: Lunes 30 de Octubre de 2006, 23:23 »
Hola colegas soy nuevo en esto, tengo un programa que me pide una frase por teclado y yo la tngo que devolver con las letras cambiadas de orden. Es decir, por ejemplo:
HOLA KE TAL.
ALOH EK LAT.

Alguien me podria echar una mano,
gracias....

2
Java / Java En Linux
« en: Martes 17 de Octubre de 2006, 22:22 »
Hola alguien me puede decir donde puedo encontrar algun manual sobre como programar java en linux: programacion, compilacion, ejecucion, paquetes necesarios, etc...
un saludo y gracias

3
Visual Basic 6.0 e inferiores / Re: Visual Y Archivos .bat
« en: Domingo 15 de Octubre de 2006, 18:37 »
hola, y muchas gracias ahora mismo lo pruebo...

4
Windows / Directorio Actual
« en: Domingo 15 de Octubre de 2006, 17:23 »
Hola como se haria para saber el directorio actual desde donde estoy ejecutando un archivo .bat por ejemplo que te devuelva por pantalla "estas trabajando en el directorio xxx que es donde se esta ejecutando el .bat"
gracias colegas

5
Visual Basic 6.0 e inferiores / Visual Y Archivos .bat
« en: Domingo 15 de Octubre de 2006, 16:11 »
Hola colegas, me gustaria saber como se haria para que al cargar el formulario se me ejecutase un archivo .bat que se encuentra en el directorio actual del programa...,
un saludo colegas

6
Visual Basic 6.0 e inferiores / Re: Gif Animados En Visual???
« en: Miércoles 11 de Octubre de 2006, 16:17 »
Muchisimas gracias colegas ya me funciona bien, muchas gracias, un saludo

7
Visual Basic 6.0 e inferiores / Gif Animados En Visual???
« en: Martes 10 de Octubre de 2006, 22:50 »
Hola colegas me preguntaba si se podrian poner gif en movimiento en un formulario de visual basic , por ejemplo un barrita ke haga el efecto ke se mueve , tipo lucecitas el coche fantastico :P, y si se puede me podriais decir como se hace???
 ;D

8
Visual Basic 6.0 e inferiores / Re: Hola Alguien Me Puede Ayudar Con Este Error???
« en: Martes 10 de Octubre de 2006, 18:02 »
Hola el programa lo ke hace es recoger cada linea de un data (recordset) y los va pegando en hojas de excel segun si en la hoja actual en tal celda existe un valor en concreto entonces lo pegas en esa hoja sino pasas a la siguiente hoja y sigues buscando, hasta el final de los registros...

Código: Text
  1.  
  2. consulta4 = "select * from lista where lista.[Réf Cde client]='IMP' and lista.[Exportado]=0;"
  3.     Data5.RecordSource = consulta4
  4.     Data5.Refresh
  5.    
  6.     If Data5.Recordset.RecordCount <> 0 Then
  7.        
  8.     'Crear fichero IMPx.xls
  9.     Application.DisplayAlerts = False
  10.    
  11.     nombre = crear_ruta(2)
  12.     nombre = nombre & "imp" & nficheroimp & ".xls"
  13.    
  14.     If Dir(nombre) = "" Then
  15.    
  16.         Application.Workbooks.Open App.Path & "\mdb\plantilla.xls"
  17.         Application.Visible = False
  18.  
  19.         nombre = crear_ruta(2)
  20.         nombre = nombre & "imp" & nficheroimp & ".xls"
  21.         Application.ActiveWorkbook.SaveAs nombre
  22.         Application.Quit
  23.        
  24.     Else
  25.         'nada
  26.     End If
  27.    
  28.         Application.Workbooks.Open nombre
  29.         Application.Visible = False
  30.        
  31.         nhojas = Application.Worksheets.Count
  32.         Application.ActiveWorkbook.Close
  33.         Application.Quit
  34.        
  35.     Do While Not Data5.Recordset.EOF
  36.         For cont = 0 To 6
  37.             campos(cont) = Data5.Recordset.Fields(cont)
  38.         Next
  39.        
  40.         'Buscar cliente y pegar datos
  41.        
  42.         For ihojas = 2 To nhojas 'empieza en 2 para saltarse la primera que es la plantilla
  43.                        
  44.             Application.Workbooks.Open nombre
  45.             Application.Visible = False
  46.            
  47.             Application.Worksheets(ihojas).Activate
  48.             nomhojas = Application.ActiveSheet.Name
  49.             rangoB = "B"
  50.            
  51.             compara = Application.Worksheets(nomhojas).Cells(fila, rangoB).Value
  52.             'compara = compara & "    "
  53.            
  54.             archivo = Split(compara, " ")
  55.             archivo2 = Split(campos(1), " ")
  56.            
  57.             If archivo(0) = archivo2(0) Then
  58.             'If compara = campos(1) Then
  59.                 rangoG = "G"
  60.                
  61.                 If Application.Worksheets(nomhojas).Cells(fila, rangoG).Value = "" Then
  62.  
  63.                     'Pegar datos
  64.                     rangoA = "A"
  65.                     Application.Worksheets(nomhojas).Cells(fila, rangoA).Value = campos(0)
  66.                     Text1.Text = campos(0)
  67.                     rangoB = "B"
  68.                     Application.Worksheets(nomhojas).Cells(fila, rangoB).Value = campos(1)
  69.                     Text2.Text = campos(1)
  70.                     rangoC = "C"
  71.                     Application.Worksheets(nomhojas).Cells(fila, rangoC).Value = campos(6)
  72.                     Text7.Text = campos(6)
  73.                     rangoD = "D"
  74.                     Application.Worksheets(nomhojas).Cells(fila, rangoD).Value = campos(2)
  75.                     Text3.Text = campos(2)
  76.                     rangoE = "E"
  77.                     Application.Worksheets(nomhojas).Cells(fila, rangoE).Value = campos(3)
  78.                     Text4.Text = campos(3)
  79.                     rangoF = "F"
  80.                     Application.Worksheets(nomhojas).Cells(fila, rangoF).Value = "1"
  81.                     Text5.Text = "1"
  82.                     rangoG = "G"
  83.                     Application.Worksheets(nomhojas).Cells(fila, rangoG).Value = campos(5)
  84.                     Text6.Text = campos(5)
  85.                     Text8.Text = "IMP"
  86.                    
  87.                     Data5.Recordset.Edit
  88.                     Data5.Recordset.Fields(7) = 1
  89.                    
  90.                     Application.ActiveWorkbook.Save
  91.                     Application.ActiveWorkbook.Close
  92.                     Application.Quit
  93.                    
  94.                 ElseIf Application.Worksheets(nomhojas).Cells(fila, rangoG).Value <> "" Then
  95.                
  96.                     If Application.Worksheets(nomhojas).Cells(fila, rangoG).Value = campos(6) Then 'antes (6)
  97.                         'Nada
  98.                     ElseIf Application.Worksheets(nomhojas).Cells(fila, rangoG).Value <> campos(6) Then
  99.                    
  100.                         fila = fila + 1
  101.                         rangoG = "G" & fila & ""
  102.                         Application.Range(rangoG).EntireRow.Insert
  103.                         'Pegar datos
  104.                         rangoA = "A"
  105.                         Application.Worksheets(nomhojas).Cells(fila, rangoA).Value = campos(0)
  106.                         Text1.Text = campos(0)
  107.                         rangoB = "B"
  108.                         Application.Worksheets(nomhojas).Cells(fila, rangoB).Value = campos(1)
  109.                         Text2.Text = campos(1)
  110.                         rangoC = "C"
  111.                         Application.Worksheets(nomhojas).Cells(fila, rangoC).Value = campos(6)
  112.                         Text7.Text = campos(6)
  113.                         rangoD = "D"
  114.                         Application.Worksheets(nomhojas).Cells(fila, rangoD).Value = campos(2)
  115.                         Text3.Text = campos(2)
  116.                         rangoE = "E"
  117.                         Application.Worksheets(nomhojas).Cells(fila, rangoE).Value = campos(3)
  118.                         Text4.Text = campos(3)
  119.                         rangoF = "F"
  120.                         Application.Worksheets(nomhojas).Cells(fila, rangoF).Value = "1"
  121.                         Text5.Text = "1"
  122.                         rangoG = "G"
  123.                         Application.Worksheets(nomhojas).Cells(fila, rangoG).Value = campos(5)
  124.                         Text6.Text = campos(5)
  125.                         Text8.Text = "IMP"
  126.                        
  127.                         Data5.Recordset.Edit
  128.                         Data5.Recordset.Fields(7) = 1
  129.                         Data5.Recordset.Update
  130.                        
  131.                         Application.ActiveWorkbook.Save
  132.                         Application.ActiveWorkbook.Close
  133.                         Application.Quit
  134.                        
  135.                     End If
  136.                    
  137.                 End If
  138.                
  139.             End If
  140.            
  141.         Next 'recorrer hojas del libro
  142.        
  143.         Data5.Recordset.MoveNext
  144.     Loop
  145.     'Guardar el fichero nuevo
  146.     'Application.ActiveWorkbook.Save
  147.     'Application.Quit
  148.    
  149.     Data5.Refresh
  150.    
  151.     Else
  152.         nficheroimp = nficheroimp + 1
  153.     End If
  154.  
  155.  

Me da error en la instruccion:

Código: Text
  1. Application.Worksheets(nomhojas).Cells(fila, rangoE).Value = campos(3)
  2.  

pero del ElseIf

Código: Text
  1. ElseIf Application.Worksheets(nomhojas).Cells(fila, rangoG).Value <> "" Then
  2.  

no el primero ke hace...

pero no en la primera pasada sino cuando ya lleva varias hojas miradas y procesadas entonces me da el error.

9
Visual Basic 6.0 e inferiores / Hola Alguien Me Puede Ayudar Con Este Error???
« en: Martes 10 de Octubre de 2006, 17:13 »
Hola colegas he realizado un programa en visual basic, pero en tiempo de ejecucion me da un error (el de la foto y no se ke hacer porke no entiendo de ke puede ser)
Espero ke alguien me ayude , por favor.

img174.imageshack.us/img174/9104/errorol2.jpg

un saludo

10
Visual Basic 6.0 e inferiores / Re: Ayuda Con Selects En Una Hoja De Excel
« en: Lunes 9 de Octubre de 2006, 00:09 »
Muchas gracias colega, me ha servido... gracias

11
Visual Basic 6.0 e inferiores / Ayuda Con Selects En Una Hoja De Excel
« en: Sábado 7 de Octubre de 2006, 11:06 »
Hola alguien me podria decir como hacerlo o donde encontrar como conectar con una base de datos en excel??, el problema que tengo es que los 'select * from tabla1' no me los hasce bien y quisiera que alguien me ayudara con un buen ejemplo para ver donde fallo.
gracias
un saludo

12
Visual Basic 6.0 e inferiores / Selects Sobre Una Hoja De Excel
« en: Viernes 6 de Octubre de 2006, 17:53 »
Hola colegas, tengo una duda y por ahora no lo he visto en ningun sitio claro,
tengo un select sobre una base de datos en excel el cual quiero que me realice esto:

En sql seria:
Código: Text
  1. Select lista.[nombre] from contactos GROUP BY lista.[nombre];
  2.  

pero en visual para utilizarlo en excel no lo tngo muy claro como seria, porque lo he probado y no me coje lista.[nombre]....
alguien me podria ayudar???, un saludo

13
Visual Basic 6.0 e inferiores / Visual Dbgrid Y Excel
« en: Viernes 6 de Octubre de 2006, 12:23 »
Hola colegas tngo un problema sobre conexion de datos y selects sobre excel alguien me podria ayudar???

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3. Application.DisplayAlerts = False
  4.  
  5. If ruta <> "" Then
  6. 'On Error GoTo salir
  7. Label11 = 0
  8. Dim prendas, bultos As Integer
  9. Dim Mirecordset1 As Recordset
  10. Dim Mirecordset2 As Recordset
  11. Dim Mirecordset3 As Recordset
  12.  
  13. Dim fecha, code_client, ref_code_client, N_expedition, N_comande, codi_CWF, codi_CEPL As String
  14. Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
  15.  
  16. While Not Mirecordset1.EOF
  17.     fecha = Mirecordset1.Fields(2)
  18.     Text1.Text = fecha
  19.     bultos = 0
  20.     prendas = 0
  21.    
  22.     code_client = Mirecordset1.Fields(4)
  23.     ref_code_client = Mirecordset1.Fields(7)
  24.    
  25.     Set Mirecordset2 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client)
  26.     While Not Mirecordset2.EOF
  27.         N_comande = Mirecordset2.Fields(11)
  28.              
  29.         Set Mirecordset3 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client & " and Data1.Recordset.Fields(11)=" & N_comande)
  30.         While Not Mirecordset3.EOF
  31.             code_client = Mirecordset3.Fields(4)
  32.             codi_CWF = Mirecordset3.Fields(27)
  33.             codi_CEPL = Mirecordset3.Fields(28)
  34.             N_expedition = Mirecordset3.Fields(1)
  35.    
  36.             Text2.Text = code_client
  37.             prendas = prendas + Val(Mirecordset3.Fields(23))
  38.             Text7.Text = codi_CEPL
  39.             Text3.Text = codi_CWF
  40.             Text6.Text = N_expedition
  41.             Text8.Text = ref_code_client
  42.             bultos = bultos + 1
  43.             Text4.Text = prendas
  44.             Text5.Text = bultos
  45.            
  46.             Mirecordset3.MoveNext
  47.             Label11 = Label11 + 1
  48.         Wend
  49.         Mirecordset2.MoveNext
  50.     Wend
  51.     Mirecordset1.MoveNext
  52. Wend
  53. ElseIf ruta = "" Then
  54.     GoTo salir
  55. End If
  56. salir:
  57. MsgBox "sacabo"
  58. End Sub
  59.  
  60.  
_____
Me da un error "Error de conversion de tipos de datos", en esta linea:
Código: Text
  1. Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
  2.  

alguien me podria decir porke me falla y si la sintaxi de los bucles estan bien para ke cada select seleccione datos mas filtrados todavia... gracias...

Páginas: [1]