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