Mensajes

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

Código [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PEPE\Desktop\centrosNavarra_correcciones.accdb")

        ' CREADA CONEXION CNN

        ' Dim da As New OleDbDataAdapter("select Código_centro, count(Código_Centro) from Hoja1  group by Código_Centro having(count(Código_Centro) >1) ", cnn)

        '  Dim da As New OleDbDataAdapter("select Código_centro from Hoja1", cnn)

        Dim da As New OleDbDataAdapter("select * from Hoja1", cnn)



        'CREADO ADAPTER DA, RECUPERA DATOS DEL SELECT DE LA CONEXION CNN



        ' EN CASO DE NO FUNCIONAR ESTE SELECT UTILIZAR EL SIMPLE CON EL FILTRO WHERE

        Dim ds As New DataSet



        da.Fill(ds)



        DataGridView1.DataSource = ds.Tables(0)





        Dim buscar As Integer = 19500101



        Dim numero As Integer = 1

        For Each fila As DataGridViewRow In DataGridView1.Rows

            numero += 1

            If fila.Cells("F-EFECT").Value > buscar Then



                fila.Selected = True

            End If



        Next





    End Sub

End Class


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.

Código [Seleccionar] Expandir


Module Module1



    Sub Main()

        Dim stn As OleDb.OleDbConnection ' conector

        Dim cmd As OleDb.OleDbCommand ' escritor

        Dim lector As OleDb.OleDbDataReader ' lector





        stn = New OleDb.OleDbConnection ' nuevo conector

        stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PEPE\Desktop\centros_correcciones.accdb") ' conexion

        stn.Open() ' abrir conexion



        cmd = New OleDb.OleDbCommand ' nuevo escritor

        cmd.Connection = stn ' escritor conectado con conector





        cmd.CommandText = "select Código_centro FROM Hoja1"





        lector = cmd.ExecuteReader ' lector conectado con lector del escritor

        Do While lector.Read



            Console.WriteLine("{0}   ", lector("Código_centro"))



        Loop

        Console.ReadLine()



        lector.Close()

        Console.WriteLine("{0} filas modificadas", cmd.ExecuteNonQuery)

        Console.ReadLine()







        stn.Close()

    End Sub



End Module


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?

Código (vbnet) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir


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?