Mensajes

te dejo un ocx muy util que me encontre hace ya un buen de tiempo, creo lo baje de www.potalvb.com.

http://www.geocities.com/cero780814/scroll.zip


para que funcione este ocx lo que debes hacer es poner lo que quieres mostrar en un PictureBox y luego "meter el picturebox al control" que te pase.

Código [Seleccionar] Expandir


scrollViewPort1.ViewContainer = "picture1"
scrollViewPort1.Refresh


nota: la propíedad ViewContainer es en donde le pones que picture quieres meter, le tienes que pasar el nombre del picture parametro como una linea de texto

jejeje, ya me salio lo del For Each, jejeje

Código [Seleccionar] Expandir



    Dim bd As Database
    Dim Tabla As TableDef
   
    Set bd = OpenDatabase("C:\...\bd.mdb")
    For Each Tabla In bd.TableDefs
        If Tabla.Attributes = 0 Then MsgBox Tabla.name
    Next
    bd.Close
    Set bd = Nothing


espero y sea lo que estas buscando... saludos y Feliz navidad

habia una manera de hacerlo con un for Each pero no me acuerdo como, pero esta podría ser otra solución:

Código [Seleccionar] Expandir


    Dim bd As Database
    Dim i As Integer
 
    Set bd = Workspaces(0).OpenDatabase("C:\..\bd01.mdb")
    On Local Error Resume Next
    While Err.Number = 0
        MsgBox bd.TableDefs(i).Name
        i = i + 1
    Wend
    On Local Error GoTo 0
    bd.Close


otra cosa que puedes hacer es usar un txt para guardar la ruta de la base de datos, asi cuando inicies tu aplicación y no encuentre la BD, que te pida el path y lo dejas almacenado, esto sería muy útil sobre todo si piensas poner tu BD en un servidor.

creo que lo más fácil sería poner un FileListBox, darle el path de los archivos txt, ir abriendo cada archivo y en una variable guardar el texto

Código [Seleccionar] Expandir


    Dim Texto As String
    Dim NuevoTexto As String
    Dim F As Long
    'aqui le pones el directorio
    File1.Path = "c:\..."
    File1.Pattern = "*.txt"
   
    For i = 1 To File1.ListCount
        'Abres los archivos uno por uno
        F = FreeFile
        Open File1.List(i) For Input As #F
        Input #F, Texto
        Close #F
        ' vas juntando el texto en esta variable
        NuevoTexto = NuevoTexto & Texto & vbCrLf
       
    Next i
     'y luego pues ya nadamás guardas el nuevo archivo
     F = FreeFile
     Open "c:\...\nuevo_archivo.txt" For Input As #F
     Write #F, NuevoTexto
     Close #F




espero te sirva de algo este ejemplo

Buenas, alguien sabe en que control ocx vengan las scrolbars pero al estilo windows xp???

pues lo que yo le encontre esque los ocx que trae estan mejores, por ejemplo el data control, en el VB5 tenias que armar un circo para meter una imagen en la tabla y con el datacontrol de VB6 y su SP2 lo puedes hacer igual que si metieras cualquier otro valor.

pues según lo que pones en las imagenes el error se provoca porque no encuentra el campo "origen" en la tabla, checa si lo tienes bien escrito, o si usas una consulta SQL que hayas seleccionado el campo:

Código [Seleccionar] Expandir


Adodc.recordset.execute("SELECT campo1,campo2, Origen FROM...")


y porque no haces un sistema???, aqui en el foro hay un tutorial sobre facturación es el 2o post, así lo haces a tu gusto y necesidades

de nada!!, que bueno que saliste del problema,