Detectar copia en tabla access
Publicado por PETTETE (8 intervenciones) el 08/08/2017 11:57:34
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.
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.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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.ReadConsole.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
Valora esta pregunta
0
