Hola Mariano buenas tardes, momentáneamente estoy trabajando sobre sql 2000
ya que las pruebas las estoy haciendo sobre mi equipo,  tanto origen como
destino son 2 bases de sql y  el primer viaje de cada sucursal  rondaria en
unos 2000 registros.  No se si eso contesta tu pregunta. Desde ya muchas
gracias. 

 

           Alejandra Blasco

     Departamento de Sistemas

         Naldo Lombardi S.A. 

        02362-422039(Int. 201)

HYPERLINK
"mailto:[EMAIL PROTECTED]"[EMAIL PROTECTED]
.ar 

   _____  

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Jose Mariano
Alvarez
Enviado el: Miércoles, 21 de Mayo de 2008 03:14 p.m.
Para: [EMAIL PROTECTED]
Asunto: [dbadmin] Error en un DTS

 

Cuantos registros son?

Cual es el origen y el destino de los datos?

Que version de SQL usas?

 

Y lo mas importante cual es el objetivo funcional.

 

 

Saludos


-- 
-------------------------------- 
Atte.
Ing. Jose Mariano Alvarez
SQL Total Consulting 

 



 

2008/5/21 Programacion Naldo Lombardi SA <HYPERLINK
"mailto:[EMAIL PROTECTED]"[EMAIL PROTECTED]
.ar>:

Hola lista buenas tardes, estoy tratando de hacer unos dts para importar de
una base a otra ciertos datos, no todos. El tema esta es que en este proceso
obviamente se va a realizar mas  de una vez y van a existir registros
repetidos, y con este codigo no me los esta encontrando y me los vuelve a
dar de alta.  

Este es el codigo:

 

         oCom.ActiveConnection =myDestConn

         oCom.CommandType = adCmdStoredProc

 

for Counter = 1 to mySourceRecordset.RecordCount

' primero busco si existe

 

                         oCom.CommandText = "dts_Ciudad_c"

                         oCom(1)
=mySourceRecordset.Fields("Localidad").value

                         set myDestRecordset = oCom.Execute()   

 

' si no esta lo doy de alta

 

                      If myDestRecordset.RecordCount < 1 Then      

                            oCom.CommandText = "dts_Ciudad_a"


                            oCom.Parameters(1)
=mySourceRecordset.Fields("Localidad").value

                             oCom.Execute

                      end iF

  

         mySourceRecordset.MoveNext

    Next

 

Si a alguien se le ocurre alguna idea o ve donde estoy errando,  y me da una
manito, se los voy a agradecer.  Desde ya muchas gracias.  Saludos  

 

 

 

 

           Alejandra Blasco

     Departamento de Sistemas

         Naldo Lombardi S.A. 

        02362-422039(Int. 201)

HYPERLINK "mailto:[EMAIL PROTECTED]"
[EMAIL PROTECTED] 

 

 

No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.21/1458 - Release Date: 21/05/2008
07:21 a.m.





No virus found in this incoming message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.21/1458 - Release Date: 21/05/2008
07:21 a.m.


No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 269.23.21/1458 - Release Date: 21/05/2008
07:21 a.m.
 

Responder a