11 Set 2016 22:26
STATIC FUNCTION JPPREHISCreateMySql()
RETURN ;
"CREATE TABLE IF NOT EXISTS JPPREHIS ( " + ;
"PHID INT(11) NOT NULL AUTO_INCREMENT, " + ;
"PHITEM VARCHAR(6) NOT NULL DEFAULT '', " + ;
"PHCADAS VARCHAR(6) NOT NULL DEFAULT '', " + ;
"PHFORPAG VARCHAR(6) NOT NULL DEFALT '', " + ;
"PHDATA DATE NULL, " + ;
"PHHORA VARCHAR(8) NOT NULL DEFAULT '', " + ;
"PHVALOR DOUBLE(16,4) NOT NULL DEFAULT '0', " + ;
"PHOBS VARCHAR(60) NOT NULL DEFAULT '', " + ;
"PHINFINC VARCHAR(80) NOT NULL DEFAULT '', " + ;
"PHINFALT VARCHAR(80) NOT NULL DEFAULT '', " + ;
"PRIMARY KEY ( PHID ), " + ;
"INDEX IDXITEM ( PHITEM, PHCADAS, PHFORPAG, PHDATA DESC, PHHORA DESC ), " + ;
"INDEX IDXCADAS ( PHCADAS, PHITEM, PHFORPAG, PHDATA ), " + ;
"INDEX IDXDATA ( PHDATA, PHITEM, PHCADAS, PHFORPAG ) " + ;
") COLLATE=latin1_swedish_ci ENGINE=InnoDB"
13 Set 2016 08:32
13 Set 2016 09:35
13 Set 2016 11:21
IF .NOT. File( "arquivo.dbf" )
dbCreate( "arquivo.dbf", ... )
ENDIF
IF .NOT. File( "arquivo.cdx" )
INDEX ON ...
ENDIF
13 Set 2016 14:05
//------------------------------------------------------------------------------
STATIC FUNCTION ScriptGenerator()
LOCAL cSql As Character
LOCAL aRet As Array
aRet := {}
TEXT INTO cSql
USE [Harbour]
/****** Object: Table [dbo].[tbAddressType] Script Date: 09/04/2014 20:18:23 ******/
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
SET ANSI_PADDING ON
CREATE TABLE [dbo].[tbAddressType](
[idAddressType] [int] IDENTITY(1,1) NOT NULL,
[dsAddressType] [varchar](20) NOT NULL,
CONSTRAINT [XPKtbAddressType] PRIMARY KEY CLUSTERED
(
[idAddressType] ASC
)WITH (PAD_INDEX = ON, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 80) ON [PRIMARY]
) ON [PRIMARY]
SET ANSI_PADDING OFF
ENDTEXT
AAdd( aRet, cSql )
// demais tabelas...
RETURN aRet
//---------------------------------------------------------------------------
TablesGenerator( ScriptGenerator() )
//------------------------------------------------------------------------------
STATIC FUNCTION TablesGenerator( aScripts )
LOCAL cSql As Character
LOCAL lRet As Logical
lRet := .F.
Try
oCn:Open()
For Each cSql In aScripts
oCn:Execute( cSql )
Next
lRet := .T.
Catch oErr
Throw( oErr )
Finally
If oCn:state() = adStateOpen
oCn:Close()
Endif
End
RETURN lRet
//------------------------------------------------------------------------------
13 Set 2016 18:31
STATIC FUNCTION JPPREHISCreateMySql( cTxt )
TEXT INTO cTxt
CREATE TABLE IF NOT EXISTS JPPREHIS (
PHID INT(11) NOT NULL AUTO_INCREMENT,
PHITEM VARCHAR(6) NOT NULL DEFAULT '',
PHCADAS VARCHAR(6) NOT NULL DEFAULT '',
PHFORPAG VARCHAR(6) NOT NULL DEFAULT '',
PHDATA DATE NULL,
PHHORA VARCHAR(8) NOT NULL DEFAULT '',
PHVALOR DOUBLE(16,4) NOT NULL DEFAULT '0.0',
PHOBS VARCHAR(60) NOT NULL DEFAULT '',
PHINFINC VARCHAR(80) NOT NULL DEFAULT '',
PHINFALT VARCHAR(80) NOT NULL DEFAULT '',
PRIMARY KEY ( PHID ),
INDEX IDXITEM ( PHITEM, PHCADAS, PHFORPAG, PHDATA DESC, PHHORA DESC ),
INDEX IDXCADAS ( PHCADAS, PHITEM, PHFORPAG, PHDATA ),
INDEX IDXDATA ( PHDATA, PHITEM, PHCADAS, PHFORPAG )
) COLLATE=latin1_swedish_ci ENGINE=InnoDB
ENDTEXT
RETURN cTxt
rccriamysql.prg:632: error E0030 Syntax error "syntax error at 'INTO'"
rccriamysql.prg:633: error E0030 Syntax error "syntax error at 'TABLE'"
rccriamysql.prg:634: error E0030 Syntax error "syntax error at 'INT'"
rccriamysql.prg:635: error E0030 Syntax error "syntax error at 'VARCHAR'"
rccriamysql.prg:636: error E0030 Syntax error "syntax error at 'VARCHAR'"
rccriamysql.prg:637: error E0030 Syntax error "syntax error at 'VARCHAR'"
13 Set 2016 18:41
13 Set 2016 19:10
13 Set 2016 20:00
#include "hbcompat.ch"
PROCEDURE Main
LOCAL x
TEXT INTO x
sdfsfdsdfds
sdfsdfsdsfds
sdfsdfdsfsdfds
ENDTEXT
CLS
? x
RETURN
hbmk2 test xhb.hbc
23 Set 2016 13:03
JoséQuintas escreveu:Correção: Isso é do xHarbour.
/* TEXT INTO <varname> */
#xcommand TEXT INTO <v> => #pragma __text|<v>+=%s+hb_eol();<v>:=""
06 Out 2016 23:53
oClientes := DBTables():new( "clientes" )
oClientes:int("id"):notNull():autoIncrement():uniqueIndex():primaryKey() //Adiciona um campo INT not null, auto increment, unique Index e primary Key.
oClientes:string( "razao_social", 100 ):notNull() //adiciona um VARCHAR de tamanho 100 e not null
oClientes:string( "telefone", 11 ) adiciona um VARCHAR de tamanho 11
oClientes:string( "ie", 11 )
oClientes:string( "cnpj", 15 )
oClientes:string( "endereco", 150 )
oClientes:string( "cep", 8 )
oClientes:date("datacadastro") // adiciona um campo data
oClientes:decimal("limite", 11, 2) // adiciona um decimal 11, 2 )
oClientes:create()
07 Out 2016 00:05
07 Out 2016 10:13
07 Out 2016 11:37
07 Out 2016 13:40