Código de Visual Basic para borrar un registro en una Tabla de Microsoft Access Política de privacidad de plasticaweb

Academia Plasticaweb

Temas de la semana Código Visual Basic para borrar un registro en una Tabla de Microsoft Access
¿Cómo llegar?: Código en Visual Basic
Pasos :

Este código borrra un registro en una Tabla de Microsoft Access

Notas :

Dim MIBD As Database  ' se define el objeto base de datos

Dim miRS1 As Recordset ' se define el objeto recordset conjunto de registros

Set MIBD = DBEngine.Workspaces(0).Databases(0) ' se instancia el espacio de trabajo
Set miRS1 = MIBD.OpenRecordset("mitabla", DB_OPEN_TABLE) ' se instancia el recordset

miRS1.MoveFirst

Do Until miRS1.EOF

if miRS1![precio] = 5000    then

miRS1.Delete   ' metodo de borrado en el recordset

end if 

miRS1.MoveNext

loop

miRS1.Close

MIBD.Close