Dim rs As New ADODB.Recordset
With dbFlex
If .Row <= 0 Then
MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation
Exit Sub
End If
' AQUI ES DONDE MUETSRA EL ERROR'
TxtCedula = .TextMatrix(.Row, 1)
'Cadena SQL.
SQL = "DELETE * FROM " & chicas & " WHERE " & cedula & "=" & TxtCedula
If MsgBox("Eliminar el Registro ?", _
vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If
' Elimina el registro
nc.Execute SQL
' deshabilitar el redraw para el MSHFlexGrid
.Redraw = False
' Vuelve a cargar el FlexGrid para reflejar el cambio
Set .DataSource = Nothing
' ejecutar el Requery para volver a llenar el recordset con los cambios
rs.Requery
Set .DataSource = rs
' Volver a habilitar el redraw para el control MSHFlexGrid
.Redraw = True
End With
Y EN EL LOAD TENGO :
Command1.Caption = " Eliminar registro "
With dbFlex
'Crear una Nueva conexión
Set nc = New ADODB.Connection
'Abre la bd pasando de la cadena de conexión OLEDB
nc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myapp.dat;Persist Security Info=False"
'Crear un Nuevo recordset
Set rs = New ADODB.Recordset
' Llenar el Recorset
'rs.Open Cadena_SQL, nc, adOpenDynamic, adLockBatchOptimistic, adCmdText
'Enlazar y Cargar el FlexGrig
'Set .DataSource = rs
'Seleccionar por fila
.SelectionMode = flexSelectionByRow
Command1.Caption = " Eliminar registro "
End With
que solucion me dan..
