SOCORRO CON EL STRING DEL RECORDSET

fc
29 de Diciembre del 2003
hola he creado este recordset
Private Sub Form_Load()

Set db = New Connection
Set miRs = New Recordset

'variable para una nueva conexión ADO


db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & App.Path & "control.mdb"
'seleccionamos la consulta
mCad = "SELECT * From referenciasOK wHERE month (fechaaviso) =" & Month(Date) & " and year(fechaaviso)=" & Year(Date) & " union " & "SELECT * From referenciare wHERE month (fechaavisore) =" & Month(Date) & " and year(fechaavisore)=" & Year(Date)
'
'conectamos el recordset
miRs.Open mCad, db, adOpenStatic, adLockOptimistic

Set MSHFlexGrid1.DataSource = miRs

MSHFlexGrid1.ColWidth(1) = 2000
MSHFlexGrid1.ColWidth(2) = 2500
MSHFlexGrid1.ColWidth(3) = 5000

End Sub
el problema viene despues ya que en el select he puesto UNION Y despues esos datos se ejecutan en este command button
Private Sub Command2_Click()
fila = MSHFlexGrid1.Row
If miRs.EOF Then
MsgBox " NO HAY REFERENCIAS "
Else
miRs.MoveFirst
'miRs.Move fila - 1
If miRs.EOF Then
MsgBox " NO HAY REFERENCIAS "
Else
With Form2
.Text1.Text = miRs!REFERENCIA
.Text2.Text = miRs!trazabilidad
.Text3.Text = miRs!proveedor
.Text4.Text = miRs!fechaaviso
miRs.Delete
Set MSHFlexGrid1.DataSource = miRs
.Show
End With
End If
End If
End Sub
Pues cuando llega al RECORDSET.DELETE ME Sale mensaje de ERROR, " es una consulta de solo lectura",
como puedo borrar el recordset?¿

AYUDA POR FAVORRRRRRRRRR

sdemingo
29 de Diciembre del 2003
Hola,

qué es lo que quieres hacer??
Liberar el recordset o eliminar registros???

rs.Close para liberarlo, pero lo de borrarlo así ....