problema al eliminar un registro

Ana
03 de Febrero del 2004
Hola, tengo un gran problema al eliminar un registro de la base de datos. El error es el siguiete "-2147467259(80004005) No se pudieron eliminar de las tablas especificadas"

El caso es el siguiente, quiero eliminar un registro de la tabla "matcomanda" que se encuentra en un DataGrid.

Código de boton eliminar:
Private Sub Elimina_m_Click()
Dim cmdBorrarRegs As Command
Dim ordenSQL As String
Dim nregs As Integer

If (Not MatComanda.EOF) And (Not MatComanda.BOF) Then
Set cmdBorrarRegs = New Command
ordenSQL = "DELETE FROM C_MATCOMANDA WHERE ID_MCOM =" & MatComanda.Fields("ID_MCOM")
With cmdBorrarRegs
.ActiveConnection = Principal.RHO
.CommandText = ordenSQL
.CommandType = adCmdText
.Prepared = True
End With
cmdBorrarRegs.Execute
MatComanda.Requery
Call arregla_grid_com
End If
End Sub

Y no funciona. Estoy segura que éste código es correcto ya que si intento eliminar el registro manualmente del Dbgrid me dice el mismo error pero si me voy al access y elimino dicho registro manualmente no me pone ninguna pega.

Un café para el que me diga la solución ; D

Muchas gracias.


sdemingo
03 de Febrero del 2004
Hola Ana,

Supongo que el campo ID_MCOM es numérico en la base de datos ¿no?
En caso contrario debería ir entre comillas simples en la sentencia SQL
"DELETE FROM C_MATCOMANDA WHERE ID_MCOM ='" & MatComanda.Fields("ID_MCOM") & "'"

Saludos
sdemingo
http://boards/melodysoft.com/sdemingo