Mensajes

la averad es q no c como hacer eso especificamente pero lei por ahi q para meter un control dentro de otro ytenes q usar la propiedad Container de los dataGrid. saludos

Muchas gracias Mr.Chispa, investigaré eso. ¿Alguna otra idea?

Aún sigo con la duda sobre cómo crear un control dentro de otro, pero si tienen alguna otra idea sobre cómo puedo darle solución a mi problema estoy abierto a comentarios.

[¿cómo coloco esos DataGrid dentro de un SSTab? Seré más explícito, antes de crear un control DataGrid agrego pestañas al control SSTab, ahora, quiero que después de haber agregado dichas pestañas crear un control DataGrid dentro de cada pestaña que yo específique]

Estoy creando varios controles DataGrid en tiempo de ejecución; para crearlos uso un arreglo, mi duda es la siguiente, ¿cómo coloco esos DataGrid dentro de un SSTab? Seré más explícito, antes de crear un control DataGrid agrego pestañas al control SSTab, ahora, quiero que después de haber agregado dichas pestañas crear un control DataGrid dentro de cada pestaña que yo específique. Espero haber expuesto mi duda con claridad.

El código que utilizo para crear controles en tiempo de ejecución es el siguiente:

Código [Seleccionar] Expandir



Private Sub Command1_Click()
    Load SSTab1(1)
   
    SSTab1(1).Visible = True
   
    SSTab1(1).Top = SSTab1(0).Top + SSTab1(0).Height
End Sub



Agrego un botón de comando y un control SSTab al cual le establezco el índice a 0.

abres el archivo de texto  y lee linea a linea

dim strCampos() as string,strTextoLinea as string,A as long
strCampos()=split(strTextoLinea,"|")
for a=0 to ubound(strCampos)-1
  strDato=strcampo(a)
next a

¡Funcionó a la perfección! ¡Gracias maxnet!

Aquí dejo el código modificado por si les interesa:

Código [Seleccionar] Expandir



Public Sub OPenFile()
    Dim strCampos() As String, strTextoLinea As String, _
        Archivo As String
    Dim A As Long
    Dim NumArchivo As Integer
   
    Archivo = txtRutaLocal.Text & txtNomArchivo.Text
    NumArchivo = FreeFile()
   
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Line Input #NumArchivo, strTextoLinea
            strCampos() = Split(strTextoLinea, "|")
            'MsgBox strCampos(0) 'AQUÍ SE CONOCE EL PRIMER REGISTRO
            'AQUÍ SE CREA LA BD CON EL NOMBRE DEL ARCHIVO
            'AQUÍ SE CREA LA TABLA CON EL NOMBRE DEL DATO 0
            For A = 0 To UBound(strCampos) - 1
                strDato = strCampos(A)
                MsgBox strDato
                'AQUÍ SE INSERTAN LOS DATOS EN DICHA TABLA
            Next A
        Loop
    Close #NumArchivo
End Sub



Los Objetos txtRutaLocal.Text y txtNomArchivo.Text son dos cuadros de texto que contienen la ruta y el nombre del archivo (pueden sustituirse por "C:\Archivo.txt")

Mi problema es el siguiente:

Tengo un archivo TXT con los siguientes registros:

Dato1|Dato2|Dato3|Dato4|
Dato5|Dato6|Dato7|Dato8|

Como notan, este archivo se conforma de dos registros, los cuales contienen 4 campos cada uno (en realidad difiere en la cantidad de campos por registro, pero con esto basta); mi problema es que deseo extraer dichos campos del primer registro a una tabla previamente creada por mí en MySQL, lo mismo es para el segundo registro, el problema aquí es que no llego a visualizar el cómo lo puedo hacer. Espero me puedan ayudar con esto.

Nota: Las tablas y las BD las crearé en tiempo de ejecución, las BD con un nombre predefinido y el nombre de las tablas tomando como referencia el primer dato del registro. Los datos están divididos por "pipes" (|).

por medio de sockets. debes codearte algo com Winsock Api, entonces. Vamos, Inicializar, crear un sock, poner los datos de IP, Puerto. utilizando las funciones send, bind, socket, y la estrucutra sockaddr_in   .

Gracias, pero no te he entendido bien, ¿podrías ser más especifico y claro por favor?

Hola a todos. Tengo una duda, ¿cómo puedo subir archivos por medio de una aplicación diseñada en Visual Basic a un servidor Linux? ¿Alguna idea que no incluya FTP o Telnet? Necesito que sea una conexión por medio de sockets. De ser posible publiquen un código de ejemplo por favor. Gracias.

Hola. Inserta ek siguiente código (necesitarás unbotón)

Código [Seleccionar] Expandir



Private Sub Command1_Click()
    Dim Web As Object
    Dim URL As String
   
        URL = "www.microsoft.com"
   
        Set Web = _
            CreateObject("InternetExplorer.Application")
   
    Web.Visible = True
    Web.navigate URL
End Sub



Nos vemos.

Por lo que veo no me expliqué bien, pero no importa, los dos me dieron una idea de cómo solucionar mi problema, es por eso que aquí publico la solución

Código [Seleccionar] Expandir



Private Sub Command1_Click()
    Dim X As Integer, Fila As Integer
   
    Dim NumArchivo As Long
   
    Dim Arreglo(4, 0 To 4) As String, Archivo As String
   
   
        Fila = 0
   
        Archivo = "c:\1.txt"
        NumArchivo = FreeFile()
   
    Open Archivo For Output As #NumArchivo
        Write #NumArchivo, "JUAN", "JESÚS", "JAVIER", "JORGE", "JEHÚ"
       
        Write #NumArchivo, "WINDOWS", "LINUX", "MAC_OS", "ATHE_OS", "UNIX"
    Close #NumArchivo
   
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Input #1, Arreglo(Fila, 0), Arreglo(Fila, 1), Arreglo(Fila, 2), _
                Arreglo(Fila, 3), Arreglo(Fila, 4)
            Fila = Fila + 1
        Loop
    Close #NumArchivo

    For X = 0 To Fila - 1
        If Arreglo(X, 1) = UCase(Text1.Text) Then
            MsgBox Arreglo(X, 0) & " " & Arreglo(X, 1) & _
                " " & Arreglo(X, 2) & " " & Arreglo(X, 3) & _
                " " & Arreglo(X, 4), vbInformation, "Línea encontrada"
        End If
    Next X
End Sub



Otra cosa t recomiendo q pongas al escribir dentro de un texto o archivo lo q sea q utilizes el Print

Si te refieres a la estructura del archivo, pues entonces eso no depende de mí, ya que yo tengo acceso a un archivo que no está en mí modificar, es por eso que publico el contenido de archivo de esa forma. Como sea, muchas gracias por tu consejo.

Me alegra ver que hay gente amable y dispuesta a ayudar en esta sección.

Hola. Tengo un problema con un archivo aleatorio, lo que necesito es extraer un registro previamente comparado de un archivo aleatorio, les muestro un ejemplo:

Contenido de archivo aleatorio:

"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
.
.
.
Y así sucesivamente, ya realicé una comparación y sí encuentra el registro adecuado, pero no sé cómo extraerlo. Ya he pensado en usar Line Input, pero esto es inservible si el número de registros es indefinido. ¿Qué puedo hacer? ¿Me podrían mostrar un ejemplo?

Gracias.