Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/05/2012, 08:26
Avatar de freesoftwarrior
freesoftwarrior
 
Fecha de Ingreso: marzo-2006
Mensajes: 362
Antigüedad: 18 años, 9 meses
Puntos: 10
Respuesta: realizar select+insert+update

Bueno, a la volada...

Cita:
c
Temp="Select * From TablaOrigen Where El_Criterio_De_Selección"
Tabla.Open Temp, Conexion
arrDBDataTablaOrigen=Tabla.GetRows()
Tabla.Close

For J = 0 To UBound(arrDBDataTablaOrigen, 2)
Temp="Select * From TablaDestino Where Campo_a_Comparar = '" & arrDBDataTablaOrigen(X,J) & "'"
Tabla.Open Temp, Conexion, adOpenStatic, adCmdTable
If Tabla.RecordCount > 0 Then
... pregunta si los ingresa o no pues ya encontró ese elemento en la tabla
Else
... lo ingresa normal
End If
Tabla.UpDate
Tabla.Close
Next
Ten en cuenta de que en arrDBDataTablaOrigen(X,J) la X representa la ubicación del campo que quieres comparar, y he puesto '" ..... "' en el caso sea un campo texto pero si es número basta con cerrar comillas dobles y nada más.

Ahora, la pregunta sobre si lo ingresa o no lo puedes hacer con un simple script con un confirm en javascript y que de aceptar el usuario lo mandas a otra rutina ASP donde simplemente ingresa los datos.

Espero haberte ayudado en algo.