Delete en visual basic y access

[jeaguiar25]

Pense haber resuelto el tema en otra intervencion, pero al utilizar el programa me da error en esta sentencia, lo que necesito realizar es borrar en una planilla acces por medio de una sentencia DELETE ejecutandola desde un Listview. la Tabla es Historico y la Referencia es la fila Matricula. Este es el codigo:

cnn.Execute (consulta1)

Si dejo el codigo hasta acá me borra todos los datos (cosa que está bien), si dejo la sentencia anterior me da el mensaje "no coinciden los tipos de datos en la expresion de criterios", y el la opcion depurar me muestra la consulta1 subrrayada en amarillo y al posicionarme arriba me muestra:

consulta1 = "DELETE FROM Historico WHERE Matricula = 12345 "

(12345 es la matricula que estoy intentando borrar)

A quien me pueda ayudar muchas gracias

[lokoman]

Hola!
"Matricula" es Caracter o Integer?
Si es caracter debes colocar entre comillas simples:

Consulta1 = "DELETE FROM Historico WHERE Matricula = '12345' "

[jeaguiar25]

Matricula lo tengo como caracter, pero le hago referencia de un Selected.Item
así:

consulta1 = "DELETE FROM Historico WHERE Matricula = 'ListView2.SelectedItem.Text' "

y no realiza nada

[jeaguiar25]

Si quieres te puedo mandar un correo con todo el proyecto para que lo veas, y lo utilices si de algo te sirve.

[hugo180486]

Iniciado por jeaguiar25

Matricula lo tengo como caracter, pero le hago referencia de un Selected.Item
así:

consulta1 = "DELETE FROM Historico WHERE Matricula = 'ListView2.SelectedItem.Text' "y no realiza nada

Compañero creo que lo que no te esta borrando nada por que le estas diciendo que te borre cuando en el campo matricula sea 'ListView2.SelectedItem.Text' en todo caso intenta esto...

Código vb:

consulta1 = "DELETE FROM Historico WHERE Matricula = " & Chr$(39) & ListView2.SelectedItem.Text  & Chr$(39)
 
'//  Chr$(39) Concatenar la '
 

[jeaguiar25]

Nop me hace exactamente lo mismo........

[lokoman]

Hola otra vez!!
Intenta asi:

• consulta1 = "DELETE FROM Historico WHERE Matricula = '" & ListView2.SelectedItem.Text & "'"

Coloca un punto de interrupción y verifica el valor del string, nos cuentas!!

[jeaguiar25]

Este ultimo me funciono al sin ningun error, al final el procedimiento lo deje así:

consulta1 = "INSERT INTO Datos SELECT Historico.* FROM Historico WHERE Matricula = '" & ListView2.SelectedItem.Text & "'"
cnn.Execute (consulta1)
consulta2 = "DELETE FROM Historico WHERE Matricula = '" & ListView2.SelectedItem.Text & "'"
cnn.Execute (consulta2)

consulta1 para pasar los datos a otra tabla (Datos) y consulta2 para borrarla de la que carga el listview (Historico)
Utilice las mismas sentencias para pasar los datos a la tabla historica, cambiando los nombres de las tablas y la referencia del listview (todo esto lo pongo por si le sirve de dato a alguien más). Te agradezco mucho lokoman fuiste de gran ayuda, hugo180486 te agradezco a ti tambien tu aporte pero no me resulto.

[lokoman]