Foros del Web » Programando para Internet » ASP Clásico »

de SQl server a ACCESS

Estas en el tema de de SQl server a ACCESS en el foro de ASP Clásico en Foros del Web. Hola a todos: Mi pregunta es la siguiente quiero guardar un recordset, extraido desde una cosulta sql desde una base de datos SQL de un ...
  #1 (permalink)  
Antiguo 26/01/2010, 09:04
 
Fecha de Ingreso: enero-2010
Mensajes: 15
Antigüedad: 14 años, 2 meses
Puntos: 0
de SQl server a ACCESS

Hola a todos:
Mi pregunta es la siguiente

quiero guardar un recordset, extraido desde una cosulta sql desde una base de datos SQL de un servidor externo y copiarlo en una tabla con las mismas caracteristicas en el servidor local pero en access . validando campos para que no me copie registros repetidos.

Se agradece cualquier comentario
de antemano gracias.
  #2 (permalink)  
Antiguo 26/01/2010, 09:52
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 3 meses
Puntos: 146
Respuesta: de SQl server a ACCESS

Y cuál es la duda específica?

La conexión al servidor externo? la conexión a Access? leer cada campo de cada registro? cuál?
  #3 (permalink)  
Antiguo 26/01/2010, 10:05
 
Fecha de Ingreso: enero-2010
Mensajes: 15
Antigüedad: 14 años, 2 meses
Puntos: 0
Respuesta: de SQl server a ACCESS

lo que nescesito saber es como reccorrer el recordset de la conexion externa y pasarlo a una tabla de acces con un bucle
  #4 (permalink)  
Antiguo 26/01/2010, 10:40
 
Fecha de Ingreso: enero-2010
Mensajes: 15
Antigüedad: 14 años, 2 meses
Puntos: 0
Respuesta: de SQl server a ACCESS

Este es un ejemplo hecho en Visual Basic, pero yo lo quiero en asp

siendo rstVtasCheck recordset de un select a sql server
y rstCheckFact recorset abierto para comparar datos


si el dato existe... pasa al siguiente registro
si no existe lo copia en la tabla acces

Gracias

Código:
With rstVtasCheck
    .MoveFirst
    Do While Not .EOF
    sw = 0
      Folio = !Folio
      rstCheckFact.Seek "=", Val(Folio)
      If rstCheckFact.NoMatch Then
        'MsgBox "No aparece"
        sw = 0
      Else
        'MsgBox "Apareció"
        sw = 1
      End If
      
      If sw = 0 Then
        NroInt = !NroInt
        Fecha = !Fecha
        codaux = !codaux
        NomAux = !NomAux
        CodVend = !Codvendedor
          
          With rstCheckFact
                .AddNew
                !Folio = Folio
                !NroInt = NroInt
                !Fecha = Fecha
                !codaux = codaux
                !NomAux = NomAux
                .Update
          End With
      End If
      .MoveNext
    Loop
  End With

Etiquetas: access, server, sql
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:21.