23/01/2009, 08:39
|
 | | | Fecha de Ingreso: febrero-2007 Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 18 años, 2 meses Puntos: 19 | |
| Respuesta: problema al recorrer un recordset
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.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein |