Clipper On Line • Ver Tópico - Exemplo de uso de DBCreate()

Exemplo de uso de DBCreate()

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

Exemplo de uso de DBCreate()

Mensagempor André Corrêa » 18 Nov 2015 10: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,
-- André Corrêa

"Opte por aquilo que faz o seu coração vibrar, apesar de todas as consequências". - Osho
Avatar de usuário

André Corrêa
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 81
Data de registro: 03 Nov 2015 06:46
Cidade/Estado: Caraguatatuba/SP
Curtiu: 8 vezes
Mens.Curtidas: 3 vezes

Exemplo de uso de DBCreate()

Mensagempor alxsts » 18 Nov 2015 13:33

[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2945
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Exemplo de uso de DBCreate()

Mensagempor André Corrêa » 23 Nov 2015 12:05

Obrigado, deu certo.

Fiz da seguinte forma:


  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

-- André Corrêa

"Opte por aquilo que faz o seu coração vibrar, apesar de todas as consequências". - Osho
Avatar de usuário

André Corrêa
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 81
Data de registro: 03 Nov 2015 06:46
Cidade/Estado: Caraguatatuba/SP
Curtiu: 8 vezes
Mens.Curtidas: 3 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro