SoloCodigo

Ok Gracias

te lo agradezco

Hola a todos
realice un programa con la ayuda de ustedes
mi pregunta es que cargo el archivo que contiene los siguientes datos

75
75
59
43
27
11
10
24
38
52
66
50
34
18
2
1


y el codigo es asi

Private Sub Command5_Click()

Dim FSO As New FileSystemObject
Dim tst As TextStream
Dim n As String
Dim c As Integer
Set tst = FSO.OpenTextFile("C:archivo.txt", ForReading, True)
Me.Picture5.Cls
Do Until tst.AtEndOfStream
n = tst.ReadLine
If CInt(n) >= 60 And CInt(n) <= 75 Then
g = g + 1
Me.Picture5.Print n
If g = 5 Then
Exit Do
End If
End If
Loop

tst.Close
Set FSO = Nothing
End Sub




no hay problema con el
El codigo no genera el archivo
pero en el archivo me muestra solo numeros repetidos/Duplicados en el encabezado del archivo, como ejemplo el 75
yo solo quiero que muestre un solo un numero que en este caso es 75
el archivo lo importo de una base de datos
agradesco sus valiosas ayudas

Exitos a ustedes

Hola a todos

me pregunta es si con datareport puedo cargar un archivo de texto  cual quera de los objetos que contene como RPTLable, RPTTextBox entre otros, y si lo tiene como seria el Codigo Fuente

cargar un archivo de texto por ejemplo

15    
14
10
24
40
74
1
2
6
47
..
.
.

con el Objeto RPTLabel del DataReport "Repote"

agradezco sus valiosas ayudas

Hola a todos

mi pregunta es que tengo un archivo que siempre traer 90 datos solo numericos y son datos del 1 hasta el 90
ejemplo

15
14
8
48
3
.
.
.


mi pregunta es quero traer datos a los texbox
que el primer datos  sea cargado al primer textbox

ejemplo


15   que lo muestre el texbox1
14   que lo muestre al texbox2
8     que lo muestre al texbox3

y asi sucecibamente es un promblema mas bien largo


de antemano gracias por su atencion

Es repetir en un texbox lo mismos datos en 4 campos
si digito un numreo como 10
entonces se guardan a los mismos campos

si usted puede hacerlo

como me ayudaria a hacerlo

Hola a todos

quisiera saber como grabar una base datos un datos en un texbox no importa si son repetidos, el hecho es que cundo yo introsuzca un dato a un texbox me  guarde ese dato en cuatro campos de la tabla

ejemplo

10


al grabar

campo 1    Campo 2      Campo 3        Campo 4

10               10                  10                  10

La union se hace asi

Código: SQL

1.  
2. SELECT Campo1,Campo2 FROM Tabla1
3. UNION
4. SELECT Campo1,Campo2 FROM Tabla2
5.  
6.  

Ambas Consultas deben de tener el mismo numero de campos


Saludos

gracias y si los campos no son iguales por ejemplo si en la primera sentencia SQL tiene mas campos que en la Segunda, que metodo o propiedad me aconsejarias  

Que pena pera yo pido ayuda no regaños y/o insultos si es asi en este foro es mejor envien un mensaje de notificacion para sacarme

y esa no es la mejor manera de ayudar a alguin

 

claro que si el ejemplo es:

yo lo tengo asi

col1  col 2  col 3  col 4  col 5 col 6

1       15
2       14  
3                25
4                                          60
5       1
6       8
7       9
8                18
10              19
11              21
12                       34
13                                46
14                                47
15                       35
16                                           72
17     11
18                                  52
19                                  54
.
.
.
75                                          75

tengo  75 numeros regados por toda la grilla y en el codigo anterior funciona asi y este es el codigo y los datos estan colocados en estan colocados en todas las columnas pero la columna 1 esta los datos del 1 hasta el 75, mientras que la columna 2 estan numeros del 1 has 15 la columna 3 del 16 hasta 30
la columna 4 del 31 hasta el 45 la columna 5 del 46 hasta el  60 y columna 6 del 60 hasta el 75

[list type=]

Dim Listadatos(90) As Long
Private Type tData
s_Nombre_Producto As Currency ' -- Campo para el Nombre del producto
cur_Precio_Producto As Currency ' -- Campo para el precio del producto
End Type

' -- Declarar matriz de datos para almacenar los registros del archivo
Private the_array() As tData
' -----------------------------------------------------------------------------------------
' \ Leer los registros del archivo y cargarlos en la matriz para poder ordenarlos
' -----------------------------------------------------------------------------------------
Private Function Fill_Array(sFileName As String) As Boolean

On Error GoTo error_handler

Dim nFileNumber As Integer
Dim lIndex As Long
Dim sLine As String
Dim arrLine() As String

' -- Buscar un número de archivo libre
nFileNumber = FreeFile

Open sFileName For Input As #nFileNumber

' -- Redimensionar el array que contendrá la lista de archivos a buscar en windows
ReDim the_array(0)

' -- Cambiar puntero de espera del mouse
Me.MousePointer = vbHourglass

' -- Buscar ...
While Not EOF(nFileNumber)
' -- índice del último elemento de la matriz
lIndex = UBound(the_array)

Line Input #nFileNumber, sLine

arrLine = Split(sLine, " ")

' -- Cargar los datos en array ( Tamaño y nombre)
With the_array(lIndex)
.cur_Precio_Producto = CCur(arrLine(0))
.s_Nombre_Producto = arrLine(1)
End With
' -- redimensionar la matriz para el próximo elemento
ReDim Preserve the_array(lIndex + 1)
Wend

' -- Cerrar el archivo
Close #nFileNumber

' -- Si hay mas de un archivo, entonces eliminar el último ya que es un elemento vacío
If UBound(the_array) > 0 Then
ReDim Preserve the_array(UBound(the_array) - 1)
End If

Fill_Array = True


Me.MousePointer = vbDefault
Exit Function
error_handler]


y ahora quiero que solo muestre 5 de cada columnas del 2 hasta el 6, mo importa si son 5 primeros y que esten regados
solo quiero 5 datos de la columnas 2 hasta el 6 y qye la columna 1 no cambie

Asi

Col 1  Col 2  Col 3  Col 4  Col 5  Col 6
1         5
2         14
3         15
4         7
5         2
6                 19
7                 18
8                 23
9                 27
10               30
11                          32  
12                          41
13                          39
14                          35
15                          43
16                                   47
17                                   51
18                                   48
19                                   57
20                                   59
21                                             61  
22                                             71
23                                             67
24                                             72
25                                             75


claro el orden puede variar pero que los datos me tragan del archivo y solo quiero que me tragan en la columan 1   solo   25 datos y en las demas columnas muestren 5 datos

agradesco sus valiosas respuestas

hola a todos tengo un archivo .txt

el archivo me carga los datos a una grilla y lo hace bien
este es el codigo



en la grilla los muestra en la primera columna 10 en la segunda 3 en la tercera columna 25 y asi con las demas columnas


Dim Listadatos(80) As Long
Private Type tData
    s_Nombre_Producto               As Currency            ' -- Campo para el Nombre del producto
    cur_Precio_Producto             As Currency         ' -- Campo para el precio del producto
End Type

' -- Declarar matriz de datos para almacenar los registros del archivo
Private the_array()         As tData

' -----------------------------------------------------------------------------------------
' \ Leer los registros del archivo y cargarlos en la matriz para poder ordenarlos
' -----------------------------------------------------------------------------------------
Private Function Fill_Array(sFileName As String) As Boolean

    On Error GoTo error_handler
   
    Dim nFileNumber     As Integer
    Dim lIndex          As Long
    Dim sLine           As String
    Dim arrLine()       As String
   
    ' -- Buscar un número de archivo libre
    nFileNumber = FreeFile
   
    Open sFileName For Input As #nFileNumber
   
    ' -- Redimensionar el array que contendrá la lista de archivos a buscar en windows
    ReDim the_array(0)
   
    ' -- Cambiar puntero de espera del mouse
    Me.MousePointer = vbHourglass
   
    ' -- Buscar ...
    While Not EOF(nFileNumber)
        ' -- índice del último elemento de la matriz
        lIndex = UBound(the_array)
       
        Line Input #nFileNumber, sLine
       
        arrLine = Split(sLine, " ")
       
        ' -- Cargar los datos en array ( Tamaño y nombre)
        With the_array(lIndex)
            .cur_Precio_Producto = CCur(arrLine(0))
            .s_Nombre_Producto = arrLine(1)
        End With
        ' -- redimensionar la matriz para el próximo elemento
        ReDim Preserve the_array(lIndex + 1)
    Wend
   
    ' -- Cerrar el archivo
    Close #nFileNumber
   
    ' -- Si hay mas de un archivo, entonces eliminar el último ya que es un elemento vacío
    If UBound(the_array) > 0 Then
        ReDim Preserve the_array(UBound(the_array) - 1)
    End If
    Fill_Array = True

    ' -- Fin
    Me.MousePointer = vbDefault
    Exit Function
error_handler:
    MsgBox Err.Description, vbCritical
    Me.MousePointer = vbDefault
    Close
End Function



Private Sub Form_Load()
IniciarConexion

Dim columna As Integer
Dim Number As Integer
Dim rn As Integer
Dim j As Integer

' -- Cargar los registros del archivo en el array
    If Fill_Array("C:texto.txt") Then
        ' -- Llamar a la función para ordenar con QuickSort
       
        ' -- Cargar los datos ordenados en el Grid ( Microsoft Flexgrid )
        Dim i As Variant
       
        With MSFlexGrid1

            For i = LBound(the_array) To UBound(the_array)
             
                For columna = 0 To 4
                 
                ' -- Agregar producto y precio ordenados en forma ascendente
                .AddItem _
                    CStr(the_array(i).s_Nombre_Producto)
                    MSFlexGrid1.TextMatrix(i, 0) = CStr(the_array(i).s_Nombre_Producto)
                    If CStr(the_array(i).cur_Precio_Producto) <= 15 Then
                    MSFlexGrid1.TextMatrix(i, 1) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 30 Then
                    MSFlexGrid1.TextMatrix(i, 2) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 45 Then
                    MSFlexGrid1.TextMatrix(i, 3) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 60 Then
                    MSFlexGrid1.TextMatrix(i, 4) = CStr(the_array(i).cur_Precio_Producto)
                    Else
                    MSFlexGrid1.TextMatrix(i, 5) = CStr(the_array(i).cur_Precio_Producto)
                    End If
                   
               Next
               Next
            'Next
        End With
       
    End If

' configuracion de la grilla
With MSFlexGrid1
For i = 0 To .Cols - 1
            .FixedAlignment(i) = 4
            .ColAlignment(i) = 4
        Next
.ColWidth(0) = 10
End With


lo que quiero es que muestre 5 datos en las filas de las 6 columnas ya que me muetra todos los datos en la grilla
el orden no interesa
Matrix (5 X 6)
de antemano gracias por su atencion prestada

Hola a todos tengo problemas con compilar y ejecutar progranas en Java

mi version es Java jre1.6.0_07

y la ruta de instalacion es

C:Archivos de programaJavajre1.6.0_07


Agradesco sus valiosas respuestas