Clipper On Line • Ver Tópico - Erro Query MySQL

Erro Query MySQL

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

Moderador: Moderadores

 

Erro Query MySQL

Mensagempor gilsonpaulo » 14 Mar 2012 10:46

CREATE TABLE `produto` (
   `codigo` CHAR(13) NULL DEFAULT '',
   `descricao` CHAR(60) NULL DEFAULT '',
   `tamanho` CHAR(3) NULL DEFAULT '',
   `cor` CHAR(8) NULL DEFAULT '',
   `secao` INT(1) NULL DEFAULT '1',
   `grupo` INT(4) NULL DEFAULT '0',
   `gru_descricao` CHAR(50) NULL DEFAULT '',
   `fornecedor` INT(6) NULL DEFAULT '0',
   `for_descricao` CHAR(60) NULL DEFAULT '',
   `preco_venda` DECIMAL(10,2) NULL DEFAULT '0.00',
   `preco_custo` DECIMAL(10,2) NULL DEFAULT '0.00',
   `ultimo_custo` DECIMAL(10,2) NULL DEFAULT '0.00',
   `custo_medio` DECIMAL(10,2) NULL DEFAULT '0.00',
   `estoque` DECIMAL(10,2) NULL DEFAULT '0.00',
   `data_cadastro` DATE NULL DEFAULT NULL,
   `data_alteracao` DATE NULL DEFAULT NULL,
   `data_p_venda` DATE NULL DEFAULT NULL,
   `data_u_venda` DATE NULL DEFAULT NULL,
   UNIQUE INDEX `codigo` (`codigo`),
   INDEX `produto_fornecedor` (`fornecedor`),
   INDEX `produto_grupo` (`grupo`),
   INDEX `FK_produto_grupo` (`gru_descricao`),
   INDEX `FK_produto_fornecedor` (`for_descricao`),
   INDEX `descricao` (`descricao`),
   CONSTRAINT `FK_produto_grupo` FOREIGN KEY (`gru_descricao`) REFERENCES `grupo` (`descricao`) ON UPDATE CASCADE,
   CONSTRAINT `FK_produto_fornecedor` FOREIGN KEY (`for_descricao`) REFERENCES `fornecedor` (`razao_social`) ON UPDATE CASCADE,
   CONSTRAINT `produto_fornecedor` FOREIGN KEY (`fornecedor`) REFERENCES `fornecedor` (`codigo`) ON UPDATE CASCADE,
   CONSTRAINT `produto_grupo` FOREIGN KEY (`grupo`) REFERENCES `grupo` (`codigo`) ON UPDATE CASCADE
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB;


   Local   pCod,pDes,pTam,pCor,pSecao,pCodGru,pDesGru,pCodFor,pDesFor,pEst,pCstAtu,pVlrVen,pDatCad
   Local   oQuery

   if pInc = .t.
   
      pCod      :=   produto.txt_codigo.Value
      pDes      :=   produto.txt_descricao.Value
      pTam      :=   produto.txt_tamanho.Value
      pCor      :=   produto.txt_cor.Value
      pSecao   :=   produto.combo_secao.Value
      pCodGru   :=   val(produto.txt_codgrupo.Value)
      pDesGru   :=   produto.txt_grupo.Value
      pCodFor   :=   1
      pDesFor   :=   "JOSE MARIA DE PAULA"
      pEst      :=   produto.txt_estoque.Value
      pCstAtu   :=   produto.txt_custoatual.Value
      pVlrVen   :=   produto.txt_venda.Value
      pDatCad   :=   dtos(date())
   
      oQuery:=oServer:Query("insert into produto (codigo,descricao,tamanho,cor,secao,grupo,gru_descricao,fornecedor,for_descricao,estoque,preco_custo,preco_venda,data_cadastro) values ('"+pCod+"','"+pDes+"','"+pTam+"','"+pCor+"',"+pSecao+","+pCodGru+",'"+pDesgru+"',"+pCodFor+",'"+pDesFor+"',"+pEst+","+pCstAtu+","+pVlrVen+",'"+pDatCad+"')")

      oQuery:Destroy()                                                 

   endif


pCodGru,pCodFor,pEst,pCstAtu,pVlrVen são variaveis numéricas, quando dou o insert no banco acusa este erro.:

Error BASE/1081 Erro nos parÆ’metros: +

Called from PRODUTO_BTN_GRAVAR_ACTION(171)
Called from (b)PRODUTO(89)
Called from _DOCONTROLEVENTPROCEDURE(5268)
Called from EVENTS(1434)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4933)
Called from DOMETHOD(7374)
Called from PRODUTO(13)
Called from (b)MAIN(9)
Called from _DOCONTROLEVENTPROCEDURE(5268)
Called from EVENTS(1396)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4933)
Called from DOMETHOD(7374)
Called from MAIN(20)


Sei que deve ser algo com aspas simple e duplas, mas não consegui fazer funcionar.

:%
gilsonpaulo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 135
Data de registro: 02 Fev 2008 10:30
Cidade/Estado: Quatro Barras
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Erro Query MySQL

Mensagempor gilsonpaulo » 14 Mar 2012 11:12

Resolvido.::

      pCod      :=   produto.txt_codigo.Value
      pDes      :=   produto.txt_descricao.Value
      pTam      :=   produto.txt_tamanho.Value
      pCor      :=   produto.txt_cor.Value
      pSecao   :=   str(produto.combo_secao.Value)
      pCodGru   :=   produto.txt_codgrupo.Value
      pDesGru   :=   produto.txt_grupo.Value
      pCodFor   :=   "1"
      pDesFor   :=   "JOSE MARIA DE PAULA"
      pEst      :=   str(produto.txt_estoque.Value)
      pCstAtu   :=   str(produto.txt_custoatual.Value)
      pVlrVen   :=   str(produto.txt_venda.Value)
      pDatCad   :=   dtos(date())
   
      oQuery:=oServer:Query("insert into produto (codigo,descricao,tamanho,cor,secao,grupo,gru_descricao,fornecedor,for_descricao,estoque,preco_custo,preco_venda,data_cadastro) values ('"+pCod+"','"+pDes+"','"+pTam+"','"+pCor+"',"+pSecao+","+pCodGru+",'"+pDesgru+"',"+pCodFor+",'"+pDesFor+"',"+pEst+","+pCstAtu+","+pVlrVen+",'"+pDatCad+"')")

      oQuery:Destroy()                                                 
gilsonpaulo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 135
Data de registro: 02 Fev 2008 10:30
Cidade/Estado: Quatro Barras
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 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