Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23/01/2009, 08:39
Avatar de seba123neo
seba123neo
 
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 3 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