数据库代码创建一个事务tran1，实现1001账户向1002账户转账600元，若转账失败，则提示“警告，转账失败”

假设有一个账户表account，包含以下字段：
- account_id：账户ID
- account_name：账户名
- balance：账户余额

那么可以使用以下的 SQL 代码创建一个事务 tran1，实现1001账户向1002账户转账600元：

BEGIN TRANSACTION tran1;

UPDATE account SET balance = balance - 600 WHERE account_id = 1001;

IF @@ROWCOUNT = 0 -- 如果没有更新任何一行，则说明转账失败
BEGIN
    ROLLBACK;
    PRINT '警告，转账失败';
END
ELSE
BEGIN
    UPDATE account SET balance = balance + 600 WHERE account_id = 1002;
    COMMIT;
END

这段代码的流程是先向账户1001转账，如果更新行数为0，则说明转账失败，回滚事务并输出提示信息；否则向账户1002转账并提交事务。