HMGforum.com

Code: Select all

cQuery := "CREATE TABLE tab_test("
	cQuery += "     file VARCHAR(40), "
	cQuery += "     content BYTEA )"
	oQuery := oServer:Query(cQuery)

Code: Select all

cBufor   :=   STRTRAN(cBufor, CHR(92), "\134")
cBufor   :=   STRTRAN(cBufor, CHR(0),  "\000")
cBufor   :=   STRTRAN(cBufor, CHR(39), "\047")	
cBufor   :=   STRTRAN(cBufor, CHR(34), "\042")	

Code: Select all

   cQuery := "CREATE TABLE " + xtab + " ( "

   aStrut := DBSTRUCT()
   FOR i = 1 TO LEN( aStrut )
      cQuery += aStrut[ i, DBS_NAME ]
      DO CASE
         CASE aStrut[ i, DBS_TYPE ] = "C"
            cQuery += " character(" + ALLTRIM( STR( aStrut[ i, DBS_LEN ] ) ) + "), "
         CASE aStrut[ i, DBS_TYPE ] = "N"
            cQuery += " numeric(" + ALLTRIM( STR( aStrut[ i, DBS_LEN ] ) ) + ',' + ALLTRIM( STR( aStrut[ i, DBS_DEC ] ) ) + "), "
         CASE aStrut[ i, DBS_TYPE ] = "D"
            cQuery += " date, "
         CASE aStrut[ i, DBS_TYPE ] = "L"
            cQuery += " boolean, "

         CASE aStrut[ i, DBS_TYPE ] = "M"
            IF ::lBlob = .T.
               cQuery += " bytea, "
            ELSE
               cQuery += " text, "
            ENDIF
      ENDCASE
   NEXT
   // add for internal use
   cQuery += " __deleted    boolean NOT NULL DEFAULT false, "
   cQuery += " __record     serial  NOT NULL, "

   // create PRIMARY KEY
   cQuery += " CONSTRAINT " + xtab + "_pkey PRIMARY KEY (__record)"
   cQuery += " )"   

   oPG:exec( cQuery )                                                 // create Table
   IF ResultStatus( oPG, oMain )
   ELSE
      // if fail
   ENDIF

Code: Select all

   // for every Record
   cPreText := "INSERT INTO " + xtab + " VALUES("

   GO TOP
   DO WHILE .NOT. EOF()
      cIns += cPreText
      i = 1
      FOR i = 1 TO LEN( aStrut )
         DO CASE
            CASE aStrut[ i, DBS_TYPE ] = "C"
            CASE aStrut[ i, DBS_TYPE ] = "N"
            CASE aStrut[ i, DBS_TYPE ] = "D"
            CASE aStrut[ i, DBS_TYPE ] = "L"
            CASE aStrut[ i, DBS_TYPE ] = 'M'
               // if you have Bitmap in Memo
               IF ::lBlob = .T.
                  cIns += " '\x" + cBin2Hex( FIELDGET( i ) ) + "',"
               ELSE
                  cIns += " '" + STRTRAN( FIELDGET( i ), "'", '"' ) + "',"
               ENDIF

         ENDCASE
      NEXT
      // add "__deleted" default
      cIns += "false,"                                             // "__deleted"

      // use nextval() for Sequence !
      cIns += "nextval('" + xtab + "___record_seq')" + ","         // use nextval()

      oPG:exec( cIns )                                          // now send Query
      IF ResultStatus( oPG, oMain )                             // get Result Status
         // Reset
         cIns := ""
      ELSE
         // if fail
      ENDIF

      SKIP
   ENDDO

   IF !EMPTY( cIns )
      oPG:exec( cIns )                                                // send Rest 
   ENDIF