Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MS SQL Server
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 06-06-2012
4PS_MultiPass 4PS_MultiPass is offline
Registrado
 
Registrado: may 2008
Posts: 5
Poder: 0
4PS_MultiPass Va por buen camino
Muchas gracias compañeros, sin vuestra ayuda me hubiese quedado atascado demasiado tiempo intentando resolver este tema.

Bueno, pues finalmente me he decidido por el siguiente grupo de instrucciones. Espero que no parezca muy chapucero, pero después de algunas pruebas, esto me encaja para lo que quiero llevar a cabo, es decir, funciona, no sé si será la mejor opción, pero al menos me funciona.

Finalmente no he recurrido ni a un procedimiento almacenado ni a transacciones anidadas pero encajará (creo ).

Tomando el ejemplo de mightydragonlor, he visto la sintaxis para referenciar tablas de distintas bases de datos, es decir [base de datos 1].dbo.tabla1

Con ese dato lo que voy a hacer es componer una transacción que implique cambios en las dos bases de datos y... o todo va bien, o no se hace nada.

Nota: cSentencia es una variable de tipo WideString, dbDatos es un TADOConnection y zComillaSimple es una función que agrega una comilla simple ' al principio y al final de la cadena de caracteres que se le pasa como parámetro.
Código:
...
// preparo la transacción que implica dos bases de datos.
cSentencia := 
' INSERT INTO [HISTORIC].[dbo].[ARTICULO] (cCodigoArt,cDescriArt) ' + 
'     SELECT cCodigoArt,cDescriArt ' + 
'     FROM [DATA].dbo.ARTICULO ' + 
'     WHERE cCodigoArt = ' + zComillaSimple('009999') + ';';

cSentencia := cSentencia + 
' DELETE FROM [DATA].dbo.ARTICULO'+
'     WHERE cCodigoArt = ' + zComillaSimple('009999') + ';'

// Inicio la transacción.
dbDatos.BeginTrans;
try
    frmPrincipal.dbDatos.Execute(cSentencia);
    dbDatos.CommitTrans;
    // si se hace el cut & paste de manera correcta, saldrá por aquí.
    showMessage('todo correcto');
except
    dbDatos.RollbackTrans;
    // si algo va mal, se deshacen los cambios y saldrá por aquí.
    showMessage('Oh, oh. Algo ha ido mal.');
end;
Este trozo de código traspasa el artículo con código 009999 de la tabla ARTICULO de la base de datos DATA a la tabla ARTICULO de la base de datos HISTORIC, es decir una especie de Cut and paste.

Vuelvo a insistir en agradecer vuestra ayuda, sois fabulosos.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Delphi 7 + SQL Server 2005 Express lsedr Conexión con bases de datos 6 19-08-2011 22:14:45
¡¡¡Ayuda con sql server express 2005!!! manrock44 SQL 6 02-09-2010 16:33:34
Sql Server Express 2005 dvlt SQL 1 10-03-2008 14:51:05
SQL Server 2005 Express Iceman MS SQL Server 2 04-12-2006 23:19:57
Sql Server Express 2005 problemas... Nelson Polanco MS SQL Server 2 08-05-2006 23:57:58


La franja horaria es GMT +2. Ahora son las 04:44:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi