Borrar varios registros
Hola, quiero saber cómo borrar varios registros al seleccionar en un datagrid o en un truedbgrid, intenté pero no logré nada acá te muestro mi código fuente para que me ayudes:
Private Sub cmdeliminararticulo_Click()
multiopcion = MsgBox("¿Desea Eliminar el Artículo Seleccionado?", vbExclamation + vbYesNo, "Advertencia")
If multiopcion = vbYes Then
Set rstarticulos = cnnADODB.Execute("Delete from articulos where codigoarticulo=" + Me.datagrid_articulos.Columns(0).Text + "")
Set rstarticulos = cnnADODB.Execute("Select * from articulos")
Me.adodb_articulo.Refresh
End If
End Sub
Me interesaría saber sí se puede borrar más de una fila de registros con sql, ado y el datagrid o truedbgrid, sí puedes responder este mje te lo agradezco.
Private Sub cmdeliminararticulo_Click()
multiopcion = MsgBox("¿Desea Eliminar el Artículo Seleccionado?", vbExclamation + vbYesNo, "Advertencia")
If multiopcion = vbYes Then
Set rstarticulos = cnnADODB.Execute("Delete from articulos where codigoarticulo=" + Me.datagrid_articulos.Columns(0).Text + "")
Set rstarticulos = cnnADODB.Execute("Select * from articulos")
Me.adodb_articulo.Refresh
End If
End Sub
Me interesaría saber sí se puede borrar más de una fila de registros con sql, ado y el datagrid o truedbgrid, sí puedes responder este mje te lo agradezco.
1 respuesta
Respuesta de macros_excel
1
Lo que estas haciendo hay es creando un areferencia circular con la clapsula where, es decir le dices que borre los articilos cuando b es igual a b...
Ce un textbos donde pongas la condición (código de los arcticulo a borrar).
y despues de la clapcula where pon = " & 'TextBox.Text' &".
Ce un textbos donde pongas la condición (código de los arcticulo a borrar).
y despues de la clapcula where pon = " & 'TextBox.Text' &".
