Hola buenas,

Estoy haciendo un código que si os resumo el funcionamiento es este:
leo un txt, y voy rellenando un excel utilizando alguna base de datos access ( OLEDB)
y la informacion del txt.

Pero como puedo hacer para que al leer un valor alfanumerico de un acces este se incremente en uno y se ponga en el excel?

me explico : leo el valor del access: cya_0000, cya_0001 (pero solo utilizo el segundo valor)
y dependiendo de las lineas del txt se ponen uno o más. 1 por linea.
EJEMPLO:
y al escribirlo en el excel txt con una línea) cya_0002
                                      (txt con 2 lineas) cya_0002 y cya_0003

al terminar esto: deberia de actualizar el access.

ACCESS FINAL:
cya_00000, cya_00001
cya_00002, cya_00004 (dando por hecho que el txt tiene 3 lineas)

No se si me he explicado bien... en caso de que no entendais preguntar y os contestare.

base de datos="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Usuario\Desktop\prueba\TABLAS_PRUEBA.accdb"
 

Hola quiero buscar un registro en access.

La instruccion select se como funciona, pero la cosa es que quieor introducir una variable en el select.

esto es.

NECESITO AYUDA, ME URGE REALIZAR EL CÓDIGO Y POCO A POCO ESTOY HACIENDOLO.
PD, PARA MI NIVEL ES ALGO DIFICIL DIFICIL..

por eso si realizo preguntas que para alguno es facil que no piense que no intento resolverlas por mi cuenta peor me sobrepasa...

Hola buenas,

como puedo extraer el una palabra de un string?

ejemplo:
 1235518329429492 PEPE 8392r05935
sabiendo que empieza en el caracter 20 y termina en el 25?
 he de decir que el string es un .TXT.

Hola buenas,

si escribo:

select distinct codigo from hoja1---me escribe todos los codigos sin duplicidades

pero si escribo:

select distinct codigo, fecha, denominacion from hoja1 ---me da error

¿POR QUE??

hay alguna manera de escribir la instruccion para muchos datos y soy yo quien la escribe mal?
o esque no se puede?

Hola buenas,
estoy intentando hacer un código peor no me sale..
Quiero hacer un código que detecte duplicidades en los códigos de centro de una tabla access.

He conseguido leer toda la columna de los códigos pero no se como hacer que detecte las duplicidades.

Os comparto el código par aque le echeis un vistazo y me orienteis en lo que teng que hacer.

Hola buenas,

como bien dice el titulo no se como hacer una lista de los archivos de 2 ficheros.

He abierto las dos carpetas con folderbrowserDialog y al pasar el nombre de los archivos a un excel, me escribe la ruta entera de los archivo...

Como podría hacer que solo escribiera el nombre del archivo?

 Sub leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, openfolderdialog, openfolderdialog2)
        ' Dim fichero
        Dim xlapp
        Dim xllibro
        Dim xlhoja
        Dim i As Integer = 1
        'Dim fichero
        Dim archivo As String = "*.pdf"
        Dim listbox1 As ListBox
        xlapp = CreateObject("Excel.Application")
        xllibro = xlapp.workbooks.add
        xlhoja = xllibro.worksheets("Hoja1")
        xlapp.visible = True
 
        ficheroscarpeta = System.IO.Directory.GetFiles(path)
        ficheroscarpeta2 = System.IO.Directory.GetFiles(path2)
 
        For Each fichero As String In ficheroscarpeta
            listbox1. = fichero
            xlhoja.cells(i, 1) = fichero
            i += 1
        Next
        For Each fichero As String In ficheroscarpeta2
            xlhoja.cells(i, 1) = fichero
            i += 1
        Next
 
 
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFolderDialog As New FolderBrowserDialog
        Dim path As String
        Dim ficheroscarpeta() As String
 
        Dim OpenFolderDialog2 As New FolderBrowserDialog
        Dim path2 As String
        Dim ficheroscarpeta2() As String
 
        OpenFolderDialog.SelectedPath = "C:\Users\pepe\Desktop"
        OpenFolderDialog2.SelectedPath = "C:\Users\pepe\Desktop"
 
 
        If OpenFolderDialog.ShowDialog() = DialogResult.OK Then
            path = OpenFolderDialog.SelectedPath
 
        End If
 
        If OpenFolderDialog2.ShowDialog() = DialogResult.OK Then
            path2 = OpenFolderDialog2.SelectedPath
            leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, OpenFolderDialog, OpenFolderDialog2)
        End If
 
    End Sub
 
 
End Class
 

Hola buenas,
El asunto que em trae hoy es un problema que tengo con itextsharp.
He anclado una tabla en un pdf, dandole una posicion fija.
Se supone que la tabla debería de salir en todas las paginas del pdf, pero solo aparece en la última página.

Os adjunto parte del código poruq el código entero es muy largo...

 tabla0.horizontalalignment = Element.ALIGN_RIGHT
        tabla0.totalwidth = 180.0F
        tabla0.lockedwidth = True
        tabla0.spacingafter = 20.0F
 
        tabla1.setwidths(New Single() {27.5F, 80.0F, 20.0F, 22.0F})
        tabla1.totalwidth = 565.0F  ' ANCHURA TOTAL DE LA TABLA
        tabla1.LockedWidth = True
        tabla1.spacingafter = 6.5F
 
        tabla2.setwidths(New Single() {22.0F, 30.0F, 115.0F, 15.0F, 33.0F})
        tabla2.totalwidth = 560.0F
        tabla2.LockedWidth = True
        tabla2.splitrows = True
        tabla2.HeaderRows = 1  ' LA FILA 1 DE LA TABLA2 SE CONVIERTE EN LA CABECERA DE LA TABLA Y SIEMPRE QUE SALTA DE PAGINA APARECERÁ ESTA FILA.
 
        'tabla6.setwidths(New Single() {24.0F, 30.0F, 114.0F, 30.0F, 34.0F})
        'tabla6.totalwidth = 539.0F
        'tabla6.LockedWidth = True
 
        tabla7.setwidths(New Single() {22.0F, 31.0F, 119.0F, 17.7F, 30.5F})
        tabla7.totalwidth = 565.0F
        tabla7.LockedWidth = True
 
        tabla3.SetWidths(New Single() {46.5F, 27.5F, 16.5F, 26.5F, 39.5F, 12.5F, 27.0F, 38.5F})
        tabla3.TotalWidth = 565.0F
        tabla3.LockedWidth = True
        tabla3.SpacingBefore = 6.0F
 
 
 For i = numreg - 8 To numreg ' CONTAMOS LAS ULTIMAS 8 LINEAS DEL TXT
 
            Dim micelda = New pdf.PdfPCell(New Phrase(b(i).ToString(), New Font(Font.ITALIC, 8.0F, Font.NORMAL)))
            micelda.FixedHeight = 54.0F
 
            micelda.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            micelda.VerticalAlignment = iTextSharp.text.Element.ALIGN_MIDDLE
 
            tabla3.addcell(micelda)
        Next
 
  Public Class EVENTOS_ITEXT '
 
        Inherits PdfPageEventHelper
 
        Public Overrides Sub OnEndPage(writer As PdfWriter, document As Document) ' OVERRIDES reemplaza el método por el método personalizado
 
 
            contador_paginas_total += 1
            'If contador_paginas_total = 1 Then
            '    tabla6.WriteSelectedRows(0, -1, 28.2, 552, writer.DirectContent())
            'tabla5.writeselectedrows(0, -1, 28.4, 132, writer.DirectContent())
            'tabla3.WriteSelectedRows(0, -1, 28.4, 190, writer.DirectContent())
 
            '    tabla0.WriteSelectedRows(0, -1, 315, 700, writer.DirectContent())
 
            '    tabla1.WriteSelectedRows(0, -1, 28.4, 600, writer.DirectContent())
            'End If
            'If contador_paginas_total = 1 Then
 
            tabla7.WriteSelectedRows(0, -1, 22.0, 571.5, writer.DirectContent())
 
 
            'tabla5.writeselectedrows(0, -1, 28.4, 132, writer.DirectContent())
 
            tabla3.WriteSelectedRows(0, -1, 22, 195, writer.DirectContent())
 
            tabla0.WriteSelectedRows(0, -1, 325, 720, writer.DirectContent())
 
            tabla1.WriteSelectedRows(0, -1, 22, 620, writer.DirectContent())
 

En caso de necesitar mas datos solo teneis que pedirlos..l

No se porque pasa eso de que solo aparezca en la ultima página...

Hola buenas,
Llevo un tiempo mirando en internet y probando cosas pero no me termina de salir.

Tengo una red LAN de varios PCs. 1 PC no tiene ni pantalla ni nada, hace la funcion de servidor.
Quiero que solo 2 PCs tengan acceso a este pc(servidor). Y no se como hacerlo.

He intentado ponerle contraseña al acceso del pc pero no se como.. he intentado betar la carpeta con permisos pero no me sale....

se que es algo simple pero me estoy poniendo nervioso porke no me funciona...

¿podríais ayudarme por favor?

El sistema operativo es windows xp.

Un saludo,
PETETE;)

Hola buenas,

estoy intentando guardar un archivo xml en una matriz peor no me sale..

e.j del xml:

envio
     cabecera
            aplicacion =12
     datos
             personales
                       nombre=pepe
              color= rojo

estoy intentando guardar los datos por filas y columnas apra luego apsar al excel, pero la matriz se me queda vacia, los datos no se guardan..

¿algún con sejo de como puedo hacerlo?

toda ayuda es bien agradecida.

Un saludo de vuestro amigo y vecino,
PETETE;)

Hola buenas,
os comento el problemilla que me ha surgido.

he creado una tabla en un pdf desde visual basic pero no se como hacer estas 2 cosas:
1- darle un tamaño especifico a las celdas
2- mover a la tabla a una ubicación especifica y que no salga centrada en el pdf....

¿podría ayudarme alguien?
estaría muy agradecido.

Un saludo de vuestro amigo y vecino,
PETETE;)