ผมมีเรื่องสงสัยครับ แนะนำกันหน่อยนะครับไม่แน่ใจว่าทำได้หรือป่าว

DELIMITER $$

DROP PROCEDURE IF EXISTS `GENERATE_RICE_GENOTYPE` $$
CREATE PROCEDURE `GENERATE_RICE_GENOTYPE`
(
   _VAR_ORTHER_FIELDS_LIST TEXT
)
BEGIN
   DECLARE _STR                  TEXT DEFAULT '';
   DECLARE _DYNAMIC_COLUMN_STR   TEXT DEFAULT '';
   DECLARE _MAX_LENGTH           INT  DEFAULT 0 ;

   SELECT MAX(LENGTH(`DATA`)) INTO _MAX_LENGTH FROM `A1` ;

   SET _DYNAMIC_COLUMN_STR = GENERATE_GENOTYPE_COLUMN ( '_GENOTYPE_PRIME' ,_MAX_LENGTH ) ;


   IF (LENGTH(_VAR_ORTHER_FIELDS_LIST) > 0) THEN
      SET _STR = CONCAT(_VAR_ORTHER_FIELDS_LIST, ',') ;
   END IF;

   SET _STR = CONCAT( 'SELECT ' ,_STR ,' RPAD(`DATA`, @MAXLENGTH ,\' \')'
      ,' AS _GENOTYPE_PRIME FROM A1 AS QR_MAIN'
      ,' \t,(SELECT @MAXLENGTH:=MAX(LENGTH(`DATA`))'
      ,' FROM `A1`) as QR_GETMAXLENGTH ');

   SET _STR = CONCAT('SELECT * ,',_DYNAMIC_COLUMN_STR , ' FROM '
      ,'( ', _STR, ') AS QR_SECONDARY ;');

   SET @CMDSTR = _STR ;

   PREPARE _DYNAMIC_SQL FROM @CMDSTR ;
   EXECUTE _DYNAMIC_SQL  ;
   DEALLOCATE PREPARE _DYNAMIC_SQL  ;

END $$

DELIMITER ;

DELIMITER $$

DROP FUNCTION IF EXISTS `GENERATE_GENOTYPE_COLUMN` $$
CREATE DEFINER=`root`@`localhost` FUNCTION `GENERATE_GENOTYPE_COLUMN`(
  _VAR_FIELD_NAME TEXT ,_VAR_MAX_DATA_IN_FIELD_LEN INT
) RETURNS text CHARSET tis620
BEGIN

   DECLARE _STR_RET                 TEXT DEFAULT '';
   DECLARE _COUNTER                 INT  DEFAULT 0 ;
   DECLARE _TEMP_STR                TEXT DEFAULT '' ;
   DECLARE _FIELD_PARSER            TEXT DEFAULT '' ;


   REPEAT

      SET _COUNTER = _COUNTER + 1;

      SET _TEMP_STR = CONCAT ('SUBSTRING(`', _VAR_FIELD_NAME, '`,'
         ,_COUNTER, ',1) AS `', _COUNTER ,'`');

      IF _COUNTER = 1 THEN
         SET _FIELD_PARSER = CONCAT('\t', _TEMP_STR) ;
      ELSE
         SET _FIELD_PARSER = CONCAT( _FIELD_PARSER,'\n\t, ', _TEMP_STR )  ;
      END IF ;

   UNTIL (_COUNTER > _VAR_MAX_DATA_IN_FIELD_LEN) END REPEAT ;

   SET _STR_RET = _FIELD_PARSER ;


   RETURN _STR_RET ;

END $$

DELIMITER ;

ไม่อยากเขียน code php ค่ะ ANTI สุดๆ << นิสัยไม่ดีเป็นการส่วนตัวค่ะ
พอเรียนผ่านก้อฝากคืนท่านอาจารย์ไปเลยค่ะ ^ ^