Visual Basic - Guardar en otro Recordset

Life is soft - evento anual de software empresarial
   
Vista:

Guardar en otro Recordset

Publicado por Mito (21 intervenciones) el 25/03/2010 01:07:05
hey,
tengo un problema...
necesito guardar los datos de un control data ( data1) que se muestran en un msflexgrid, y que cuando presionen un boton (cmdDB) los guarde en otro recordset (data7) y este se guarde en su base de datos correspondiente.
Aqui les adjunto el codigo que he estado tratando de usar pero nada, me tira que Update or CancelUpdate without AddNew or Edit,

'Codigo
Private Sub cmdDB_Click()
Do While Not Data1.Recordset.EOF
Data7.Recordset.AddNew
Data7.Recordset!Referencia = 1
Data7.Recordset!Codigo = Data1.Recordset("Codigo")
Data7.Recordset!Producto = Data1.Recordset("Producto")
Data7.Recordset!Cantidad = Data1.Recordset("Cantidad")
Data7.Recordset!CostoUnitario = Data1.Recordset("CostoUnitario")
Data7.Recordset!CostoTotal = Data1.Recordset("CostoTotal")
Data7.Refresh
Data7.Recordset.Update
Data1.Recordset.MoveNext
Loop
End Sub

Lo que hace es recorrer todos los recordsets y guardarlo, pero me tira error en el update
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Guardar en otro Recordset

Publicado por Jackson (15 intervenciones) el 25/03/2010 18:16:32
Hazlo así
Private Sub cmdDB_Click()
Do While Not Data1.Recordset.EOF
Data7.Recordset.AddNew
Data7.Recordset.Fields("Referencia”) = 1
Data7.Recordset.Fields("Codigo”) = Data1.Recordset("Codigo")
Data7.Recordset.Fields("Producto”) = Data1.Recordset("Producto")
Data7.Recordset.Fields("Cantidad”) = Data1.Recordset("Cantidad")
Data7.Recordset.Fields("CostoUnitario”) = Data1.Recordset("CostoUnitario")
Data7.Recordset.Fields("CostoTotal”) = Data1.Recordset("CostoTotal")
Data7.Recordset.Update
Data7.Refresh
Data1.Recordset.MoveNext
Loop
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar