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,
He conseguido seleccionar la fila duplicada con un datagridview.
La cosa es que solo selecciono la fila con la fecha actual.. y me gustaía eliminar la fila con la fecha antigua..

¿algún consejo de como puedo hacerlo?

Aquí os dejo el código para que le echeis un vistazo..

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
 

Ya he coinseguido resolverlo.

A sido una tontería, solo había que cambiar el orden de llamada de los SUBs.

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

No me habia dado cuenta que esta la rama de redes en el foro... ahora mismo muevo el tema a esa rama.

LO SIENTO, MEA CULPA.

Los equipos que quiero que tengan acceso somn win 8 y win 10. pero da lo mismlo no? porque quiero que a todos loes pida contraseña solo que a estos usuarios se la dire..

SI, todos estan en el mismo grupo de trabajo y en la misma resdd y todo.
lo del firewall...no lo se, tengo que deshabilitarlo????

El win xp tiene 3 usuarios y se que 2 de ellos tienen contraseña pero que 1 no.. le tengo que poner contraseña? creo que la que no tiene contraseña es el admin. CREO. cuando pueda lo miro y te confirmo. pero de ser asi tengo que ponerle contraseña?

Me han dicho que tengo que elimianr todos los usuarios de compartir carpeta y poner solo al que quiero que pueda compartir. me explico. La carpeta que quiero bloquear acceso -compartir y seguridad- compartir- y me salen 3 usuarios pues elimino 2 y dejo el admin con la contraseña que le ponga?


 Esque no lo se, cada persona que pregunto me dice una cosa distitna, y esperaba que en este foro se me solucionase el problemilla...

Un saludo, PETETE:)

PD, en caso de no explicarme bien o de necesitgar mas datos no dudeis en preguntarme

he visto en internet que escribiendo
net user invitado "contraseña" en el cmd, se le asigna un a contraseña al usuario invitado. y es con esta contraseña con la que se accede a las carpetas compartidas?

que quite los firewalls??

y ya estaría?