Cita:
Iniciado por stock Pues si, como dice MaxExtreme generaalmente es por el mal uso de la memoria por no cerrar correctamente las conecciones con la base de datos....
es por eso que cuando se desarrolla un sistema es de suma importacia pensar en fallos y siempre respaldar correctamente la informacion para que no nos sorprendan error
Gracias por sus respuestas.
De hecho cuando manda a depurar el programa, me muestra la flecha de instruccion actual en las 2 ultimas lineas.En las que hace referencia a los datos. Pero no se en donde moverle para evitar ese mensaje.
"error de ejecucion(##) el num de valores y el num destino son diferentes#
De hecho cuando se cayo mi red LAN, al iniciar la aplicacion mostro un mensaje que decia "error 3265 en tiempo de ejecucion, no se encontro el elemento de la coleccion que corresponde con el nombre o el ordinal pedido"
Lo que hice fue desinstalarlo y volverlo a instalar, pero me empezo a mandar el error que comento al principio. Chequen mi codigo y porfavor suguieranme como pordria corregirlos. Gracias
' PROCESO PARA TRANSFERIR LOS DATOS DE PEDIDO-REMISION O DE REMISION-FACTURA
Public Sub GrabaEnRemiFact(NumPedRemi As Integer, NumRemiFact As Integer, Proviene As String)
Dim rcPedRem As ADODB.Recordset
Dim rc As ADODB.Recordset
' CONSULTA PARTIDAS DEL PEDIDO O DE LA REMISION SEGUN
' SEA EL CASO
If TipoProceso = "REMISIONES" Or Proviene = "PEDIDO" Then
SQL = "SELECT DetalleDePedidos.*, Pedidos.* "
SQL = SQL + "FROM Pedidos INNER JOIN DetalleDePedidos ON Pedidos.IdPedido = DetalleDePedidos.IdPedido "
SQL = SQL + "WHERE DetalleDePedidos.IdPedido = " & NumPedRemi & ";"
Else
SQL = "SELECT RemiFact.*, DetalleDeRemiFact.* "
SQL = SQL + "FROM RemiFact INNER JOIN DetalleDeRemiFact ON (RemiFact.Tipo = DetalleDeRemiFact.Tipo) AND (RemiFact.NumRemFact = DetalleDeRemiFact.NumRemFact) "
SQL = SQL + "WHERE RemiFact.NumRemFact = " & NumPedRemi & " "
SQL = SQL + "AND RemiFact.Tipo = 'R';"
End If
Set rcPedRem = New ADODB.Recordset
rcPedRem.Open SQL, cnBDDecfruver, adOpenStatic, adLockOptimistic