Update 2 Tablas simultaneo

xDDDDDDDDD


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl



"Freddy Cáceres" @hotmail.com> escribió en el mensaje
news:O#XNa$#

con unos poquitos insert :-)).
te falto uno.

Saludos
-
Freddy Cáceres
Santiago - Chile

"Jhonny Vargas P." escribió en el

mensaje

news:%23ysYm8%
> Mira este ejemplo un poco tonto, pero sale como lo podrías hacer:
>
> Dim objCon
>
> ' Abro la conexión.
> Set objCon = Server.CreateObject("ADODB.Connection")
> objCon.Open "aqui va el string de conexión."
>
> 'Comienzo una transacción
> objCon.BeginTrans
>
> 'Activamos los errores por si algo ocurre
> On Error Resume Next
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> 'Como no existieron errores actualizo.
> objCon.CommitTrans
> objCon.Close
> Set objCon = Nothing
>
>
>
> Saludos,
> Jhonny Vargas P. [MS-MVP]
> Santiago de Chile
> http://www.mvp.cl
>
>
>
> "SRenau" escribió en el mensaje
> news:ddd701c3efea$dafa5350$
> Perdon por mi "ignorancia", me podrias indicar algun
> manual sobre el tema de las transacciones, voy viendo la
> luz...
> >Hola,
> >
> >A ver si entiendo ...
> >
> >Rescatas la información de la factura vía XML y la
> guardas en tu servidor.
> >Luego tienes problemas al grabar, ya que se cae y no
> guardas todos los
> >datos.
> >
> >Si es así en el servidor local, deberías utilizar
> transacciones, si una
> >falla no grabaría nada, si todas son correctas grabaría.
> >
> >
> >Saludos,
> >Jhonny Vargas P. [MS-MVP]
> >Santiago de Chile
> >http://www.mvp.cl
> >
> >
> >
> >"Srenau" escribió
> en el mensaje
> >news:dd9101c3efe6$e23c6030$
> >Primero Gracias a Todos, voy ha explicar un poco más la
> >situación.
> >
> >Tengo un sistema en el cual importo datos desde un
> >servidor remoto al cual accedo via XML.
> >Se me ha dado el problema de posibles errores, por
> >ejemplo, cae el servidor local con lo que se guardan datos
> >en unas tablas pero no da tiempo a que se guarden en el
> >resto.(Imaginaros una factura y su detalle en tablas
> >diferentes, se almacenaria la factura pero no los campos
> >del detalle)
> >
> >El diseño del sitema me lleva a no recuperar ya los campos
> >que me faltan pues ya tengo la factura. (Alguien tenia
> >razon, rediseñando como lo importo podria resolver el
> >problema.) Pero la cuestion se me seguiria quedando en el
> >aire.
> >
> >¿Puedo hacer que se almacenen los datos en todas las
> >tablas correspondientes o que no se almacene dato alguno?
> >
> >Gracias.
> >
> >
> >.
> >
>
>

Si el servidor cayera a mitad seguiriamos con el mismo
problema no?

xDDDDDDDDD


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl



"Freddy Cáceres" @hotmail.com> escribió

en el mensaje

news:O#XNa$#

con unos poquitos insert :-)).
te falto uno.

Saludos
-
Freddy Cáceres
Santiago - Chile

"Jhonny Vargas P."

escribió en el

mensaje

news:%23ysYm8%
> Mira este ejemplo un poco tonto, pero sale como lo

podrías hacer:

>
> Dim objCon
>
> ' Abro la conexión.
> Set objCon = Server.CreateObject

("ADODB.Connection")

> objCon.Open "aqui va el string de conexión."
>
> 'Comienzo una transacción
> objCon.BeginTrans
>
> 'Activamos los errores por si algo ocurre
> On Error Resume Next
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> 'Como no existieron errores actualizo.
> objCon.CommitTrans
> objCon.Close
> Set objCon = Nothing
>
>
>
> Saludos,
> Jhonny Vargas P. [MS-MVP]
> Santiago de Chile
> http://www.mvp.cl
>
>
>
> "SRenau"

escribió en el mensaje

> news:ddd701c3efea$dafa5350$
> Perdon por mi "ignorancia", me podrias indicar algun
> manual sobre el tema de las transacciones, voy viendo

la

> luz...
> >Hola,
> >
> >A ver si entiendo ...
> >
> >Rescatas la información de la factura vía XML y la
> guardas en tu servidor.
> >Luego tienes problemas al grabar, ya que se cae y no
> guardas todos los
> >datos.
> >
> >Si es así en el servidor local, deberías utilizar
> transacciones, si una
> >falla no grabaría nada, si todas son correctas

grabaría.

> >
> >
> >Saludos,
> >Jhonny Vargas P. [MS-MVP]
> >Santiago de Chile
> >http://www.mvp.cl
> >
> >
> >
> >"Srenau"

escribió

> en el mensaje
> >news:dd9101c3efe6$e23c6030$
> >Primero Gracias a Todos, voy ha explicar un poco más

la

> >situación.
> >
> >Tengo un sistema en el cual importo datos desde un
> >servidor remoto al cual accedo via XML.
> >Se me ha dado el problema de posibles errores, por
> >ejemplo, cae el servidor local con lo que se guardan

datos

> >en unas tablas pero no da tiempo a que se guarden en

el

> >resto.(Imaginaros una factura y su detalle en tablas
> >diferentes, se almacenaria la factura pero no los

campos

> >del detalle)
> >
> >El diseño del sitema me lleva a no recuperar ya los

campos

> >que me faltan pues ya tengo la factura. (Alguien

tenia

> >razon, rediseñando como lo importo podria resolver el
> >problema.) Pero la cuestion se me seguiria quedando

en el

> >aire.
> >
> >¿Puedo hacer que se almacenen los datos en todas las
> >tablas correspondientes o que no se almacene dato

alguno?

> >
> >Gracias.
> >
> >
> >.
> >
>
>

.

No, ya que si se cae, controlarías el error y vuelves atrás... con un
Rollback.


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


escribió en el mensaje
news:e74301c3f09e$336c9940$
Si el servidor cayera a mitad seguiriamos con el mismo
problema no?

xDDDDDDDDD


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl



"Freddy Cáceres" @hotmail.com> escribió

en el mensaje

news:O#XNa$#

con unos poquitos insert :-)).
te falto uno.

Saludos
-
Freddy Cáceres
Santiago - Chile

"Jhonny Vargas P."

escribió en el

mensaje

news:%23ysYm8%
> Mira este ejemplo un poco tonto, pero sale como lo

podrías hacer:

>
> Dim objCon
>
> ' Abro la conexión.
> Set objCon = Server.CreateObject

("ADODB.Connection")

> objCon.Open "aqui va el string de conexión."
>
> 'Comienzo una transacción
> objCon.BeginTrans
>
> 'Activamos los errores por si algo ocurre
> On Error Resume Next
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> 'Como no existieron errores actualizo.
> objCon.CommitTrans
> objCon.Close
> Set objCon = Nothing
>
>
>
> Saludos,
> Jhonny Vargas P. [MS-MVP]
> Santiago de Chile
> http://www.mvp.cl
>
>
>
> "SRenau"

escribió en el mensaje

> news:ddd701c3efea$dafa5350$
> Perdon por mi "ignorancia", me podrias indicar algun
> manual sobre el tema de las transacciones, voy viendo

la

> luz...
> >Hola,
> >
> >A ver si entiendo ...
> >
> >Rescatas la información de la factura vía XML y la
> guardas en tu servidor.
> >Luego tienes problemas al grabar, ya que se cae y no
> guardas todos los
> >datos.
> >
> >Si es así en el servidor local, deberías utilizar
> transacciones, si una
> >falla no grabaría nada, si todas son correctas

grabaría.

> >
> >
> >Saludos,
> >Jhonny Vargas P. [MS-MVP]
> >Santiago de Chile
> >http://www.mvp.cl
> >
> >
> >
> >"Srenau"

escribió

> en el mensaje
> >news:dd9101c3efe6$e23c6030$
> >Primero Gracias a Todos, voy ha explicar un poco más

la

> >situación.
> >
> >Tengo un sistema en el cual importo datos desde un
> >servidor remoto al cual accedo via XML.
> >Se me ha dado el problema de posibles errores, por
> >ejemplo, cae el servidor local con lo que se guardan

datos

> >en unas tablas pero no da tiempo a que se guarden en

el

> >resto.(Imaginaros una factura y su detalle en tablas
> >diferentes, se almacenaria la factura pero no los

campos

> >del detalle)
> >
> >El diseño del sitema me lleva a no recuperar ya los

campos

> >que me faltan pues ya tengo la factura. (Alguien

tenia

> >razon, rediseñando como lo importo podria resolver el
> >problema.) Pero la cuestion se me seguiria quedando

en el

> >aire.
> >
> >¿Puedo hacer que se almacenen los datos en todas las
> >tablas correspondientes o que no se almacene dato

alguno?

> >
> >Gracias.
> >
> >
> >.
> >
>
>

.

Vale,

Indagaré en los "Rollback" que no lo tengo muy claro.

Gracias.

No, ya que si se cae, controlarías el error y vuelves

atrás... con un

Rollback.


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


escribió en el

mensaje

news:e74301c3f09e$336c9940$
Si el servidor cayera a mitad seguiriamos con el mismo
problema no?

xDDDDDDDDD


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl



"Freddy Cáceres" @hotmail.com> escribió

en el mensaje

news:O#XNa$#

con unos poquitos insert :-)).
te falto uno.

Saludos
-
Freddy Cáceres
Santiago - Chile

"Jhonny Vargas P."

escribió en el

mensaje

news:%23ysYm8%
> Mira este ejemplo un poco tonto, pero sale como lo

podrías hacer:

>
> Dim objCon
>
> ' Abro la conexión.
> Set objCon = Server.CreateObject

("ADODB.Connection")

> objCon.Open "aqui va el string de conexión."
>
> 'Comienzo una transacción
> objCon.BeginTrans
>
> 'Activamos los errores por si algo ocurre
> On Error Resume Next
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
>
> Sql = "Insert into..."
> objCon.Execute Sql
> 'Si ocurrió un error
> If Err.Number <> 0 Then
> 'Volver todo atrás
> objCon.RollbackTrans
> objCon.Close
> Set objCon = Nothing
> Response.End
> End If
>
> 'Como no existieron errores actualizo.
> objCon.CommitTrans
> objCon.Close
> Set objCon = Nothing
>
>
>
> Saludos,
> Jhonny Vargas P. [MS-MVP]
> Santiago de Chile
> http://www.mvp.cl
>
>
>
> "SRenau"

escribió en el mensaje

> news:ddd701c3efea$dafa5350$
> Perdon por mi "ignorancia", me podrias indicar algun
> manual sobre el tema de las transacciones, voy viendo

la

> luz...
> >Hola,
> >
> >A ver si entiendo ...
> >
> >Rescatas la información de la factura vía XML y la
> guardas en tu servidor.
> >Luego tienes problemas al grabar, ya que se cae y no
> guardas todos los
> >datos.
> >
> >Si es así en el servidor local, deberías utilizar
> transacciones, si una
> >falla no grabaría nada, si todas son correctas

grabaría.

> >
> >
> >Saludos,
> >Jhonny Vargas P. [MS-MVP]
> >Santiago de Chile
> >http://www.mvp.cl
> >
> >
> >
> >"Srenau"

escribió

> en el mensaje
> >news:dd9101c3efe6$e23c6030$
> >Primero Gracias a Todos, voy ha explicar un poco más

la

> >situación.
> >
> >Tengo un sistema en el cual importo datos desde un
> >servidor remoto al cual accedo via XML.
> >Se me ha dado el problema de posibles errores, por
> >ejemplo, cae el servidor local con lo que se guardan

datos

> >en unas tablas pero no da tiempo a que se guarden en

el

> >resto.(Imaginaros una factura y su detalle en tablas
> >diferentes, se almacenaria la factura pero no los

campos

> >del detalle)
> >
> >El diseño del sitema me lleva a no recuperar ya los

campos

> >que me faltan pues ya tengo la factura. (Alguien

tenia

> >razon, rediseñando como lo importo podria resolver

el

> >problema.) Pero la cuestion se me seguiria quedando

en el

> >aire.
> >
> >¿Puedo hacer que se almacenen los datos en todas las
> >tablas correspondientes o que no se almacene dato

alguno?

> >
> >Gracias.
> >
> >
> >.
> >
>
>

.

.