PC Toledo

Enviado: **18 Nov 2015 11:29**

Bom dia,

Alguém poderia me dar um exemplo de como usar a função DBCreate() para substituir a seguinte chamada SQL:

CREATE TABLE IF NOT EXISTS CLIENTES(
CLI_COD INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
CLI_NOM VARCHAR(100) NOT NULL,
CLI_CPF VARCHAR (11),
CLI_RG VARCHAR(14),
CLI_NAS CHAR(8),
CLI_TRB VARCHAR(100),
CLI_OBS VARCHAR(100),
CONSTRAINT
	UNIQUE(CLI_CPF)
)

Estou usando Xailer e MariaDB. Sei como criar as tabelas via SQL, pelos métodos do TDataSource, mas encontrei essa função ":CreateTable()",
para a qual a sintaxe é igual à do Harbour, segundo o manual do Xailer.
Gostaria de usá-la, mas não entendi bem a sintaxe de DBCreate().
Espero ter postado no fórum correto.

Obrigado,

Enviado: **18 Nov 2015 14:33**

Olá!

Veja:
DbCreate()
DbCreateInd()

Enviado: **23 Nov 2015 13:05**

Obrigado, deu certo.

Fiz da seguinte forma:

Código: Selecionar todos


  LOCAL aCli:={}
  
  AADD(aCli, ::oNom:Value)
  AADD(aCli, ::oCpf:Value)
  AADD(aCli, ::oRg:Value)
  AADD(aCli, ::oNas:Value)
  AADD(aCli, ::oTra:Value)
  AADD(aCli, ::oObs:Value)
  AADD(aCli, ::oRua:Value)
  AADD(aCli, ::oNum:Value)
  AADD(aCli, ::oBai:Value)
  AADD(aCli, ::oCid:Value)
  AADD(aCli, ::oUf:cText)
  AADD(aCli, ::oCom:Value)

  CadCli(aCli)

  PROCEDURE CadCli(aCli)  //Cadastro de clientes. Recebe um array com os dados.

    WITH OBJECT AppData:oDts
      :cDatabase:="controle"
      :Execute("INSERT INTO CLIENTES(CLI_NOM, CLI_CPF, CLI_RG, CLI_NAS, CLI_TRA, CLI_OBS ) VALUES('"+aCli[1]+"','"+aCli[2]+"','"+aCli[3]+"','"+aCli[4]+"','"+aCli[5]+"','"+aCli[6]+"')")
    END
  END

PC Toledo

Exemplo de uso de DBCreate()

Exemplo de uso de DBCreate()

Exemplo de uso de DBCreate()

Exemplo de uso de DBCreate()