problema al recorrer un recordset

[anadelaisla]

También tengo otro problema, q es cdo ejecuto este código:

Set rs.DataSource = Me.dgrid.DataSource


If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
Do While Not rs.EOF
strSQL = "INSERT INTO albaran_detalle (idAlbaran, clave_producto, num_unidades, coste_albaran)" & _
"VALUES ( " & Val(idAlbaranReg.text) & "," & Val(Me.dgprodcomprados.Columns(0).text) & ", " & Me.dgprodcomprados.Columns(2).text & ", " & Me.dgprodcomprados.Columns(3).text & ") "
Set rs2= Cn.Execute(strSQL)
rs.MoveNext --> aqui me da el error
Loop
End If

me dice donde os he indicado "operacion no permitida si el objeto está cerrado", y lo q he hecho es asociar el recordset al datagrid, ya que quiero q me mientras haya datos en el recordset me los guarde en la base de datos y previamente a ello he definido el recordset:
Dim rs As New ADODB.Recordset y abierto está pq me hace la query correctmente.

Gracias.
Saludos.

[seba123neo]

Hola, el error esta en la linea anterior el recordset se llama rs no rs2...

Código:

Set rs= Cn.Execute(strSQL)

saludos.

[anadelaisla]

si, tenías razón eso estaba mal, pero me sigue dando el mismo fallo....

[seba123neo]

proba esto, tendria que andar...

Código:

If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
Do While Not rs.EOF
strSQL = "INSERT INTO albaran_detalle (idAlbaran, clave_producto, num_unidades, coste_albaran)" & _
"VALUES ( " & Val(idAlbaranReg.text) & "," & Val(Me.dgprodcomprados.Columns(0).text) & ", " & Me.dgprodcomprados.Columns(2).text & ", " & Me.dgprodcomprados.Columns(3).text & ") "
mCmd.ActiveConnection = Cn
mCmd.CommandText = strSQL 
mCmd.Execute
rs.MoveNext 
Loop
End If

y antes declara esto:

Código:

Dim mCmd As New ADODB.Command

saludos.

[anadelaisla]

Hola, me sigue dando el mismo problema... :(