transacciones y tdatabase

[DarkBlue]

bueno ahi les va la solucion

1. primero que nada necesitan hacer un origen de datos

• vallan desde widows esta ruta inicio,panel de control , herramientas administrativas , origines de datos

una ves ahi hagan su DNS de usuario ó DNS de sistema (la diferencia de uno y otro que de sistema es para uso en red, recuerden que el servidor sql debe de estar habilidato par conexiones tcp/ip), bueno no es necesario un tutorial para esto es muy sencillo completar la configuracion

1. agregen un tdatabse
2. en la propiedad alias name esciban el nombre del origen de datos que hicieron ya sea dns de sistema o de usuario
3. y en params denle el nombre de usuario y contrañena de inicio de sesion de esa base de datos o es mejor hacer doble click al componente y y ponerle defaults
4. en sql passthrought escriban non shared si desean que sql server o su servidor manje las consultas directamente en un tquery ( quiero decir que ejecutaran la consulta con codigo de su servidor a como se escriban las transacciones y ese estilo de cosas) y no el motor dbe de delphi si no escriban shared autocommit
5. en sqlquery mode escriban server similar a la opcion anterior si no denjenlo en local y ya esta la segunda parte

1. agregen un componente tquery
2. asegurense que sea tquery y no adoquery o algo asi
3. propiedad sql una consulta cualquier
4. databasename escriban su origen de datos odbc
5. denle en active true
6. listo solo falta ejecutar sus consultas de la siguiente manera

Código Delphi [-]
//m es mi modulo de datos

 try
    m.tdatabase.open;//este es un componente del tipo tadoconnection
    m.tdatabase.BeginTrans;
 
     m.consulta.SQL.Clear;

     m.consulta.SQL.Add(' insert into servicioscarros (folio) values (567)  ');
     m.consulta.SQL.Add(' insert into servicioscarros (folio) values (7655)  ');

  
      m.tdatabase.commit;

    //updating, deleting or inserting

  except
    on E:Exception do m.tdatabase.RollbackTrans;
  end;//try
end;
//consulta su componente tquery
//tdatabase es su tdatabase coponent xD