INSERT usando DBExpress mySQL Web

MySQL

Delphi

19/09/2016

Olá Devs,

Pessoal estou tentando executar um insert em um banco online numa base mySQL da Hospedagem só que dá erro. Já testei o script na minha máquina, pelo PhpmyAdmin e roda. Oque está errado?

AddI := AddI + 1;
          sQry.SQL.Clear;
          sSQL := 'INSERT INTO `oc_category` (';
          sSQL := sSQL+'`category_id`, `image`, `parent_id`, `top`, `column`, `sort_order`,';
          sSQL := sSQL+' `status`, `date_added`, `date_modified`';
          sSQL := sSQL+') VALUES (';
          sSQL := sSQL+IntToStr(AddI)+', NULL, 0, 1, 0, 0, ';
          sSQL := sSQL+' 1, NOW(), NOW())';
          sQry.SQL.CommaText := sSQL;
          sQry.ExecSQL();
Paulo Andrade

Paulo Andrade

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

19/09/2016

Post a estrutura da tabela para eu cria-la e fazer testes via web

mais só para lembrar os valores devem está na sequencia das colunas
GOSTEI 0
Paulo Andrade

Paulo Andrade

19/09/2016

Olá Devs,

Pessoal estou tentando executar um insert em um banco online numa base mySQL da Hospedagem só que dá erro. Já testei o script na minha máquina, pelo PhpmyAdmin e roda. Oque está errado?

AddI := AddI + 1;
          sQry.SQL.Clear;
          sSQL := 'INSERT INTO `oc_category` (';
          sSQL := sSQL+'`category_id`, `image`, `parent_id`, `top`, `column`, `sort_order`,';
          sSQL := sSQL+' `status`, `date_added`, `date_modified`';
          sSQL := sSQL+') VALUES (';
          sSQL := sSQL+IntToStr(AddI)+', NULL, 0, 1, 0, 0, ';
          sSQL := sSQL+' 1, NOW(), NOW())';
          sQry.SQL.CommaText := sSQL;
          sQry.ExecSQL();



Script da tabela:

CREATE TABLE openc.oc_category (
  category_id INT(11) NOT NULL AUTO_INCREMENT,
  image VARCHAR(255) DEFAULT NULL,
  parent_id INT(11) NOT NULL DEFAULT 0,
  top TINYINT(1) NOT NULL,
  `column` INT(3) NOT NULL,
  sort_order INT(3) NOT NULL DEFAULT 0,
  status TINYINT(1) NOT NULL,
  date_added DATETIME NOT NULL,
  date_modified DATETIME NOT NULL,
  PRIMARY KEY (category_id),
  INDEX parent_id (parent_id)
)
ENGINE = MYISAM
AUTO_INCREMENT = 61
AVG_ROW_LENGTH = 40
CHARACTER SET utf8
COLLATE utf8_general_ci;
GOSTEI 0
Paulo Andrade

Paulo Andrade

19/09/2016

[RESOLVIDO]

sQry.SQL.Clear;
          sSQL := 'INSERT INTO `oc_category` (';
          sSQL := sSQL+'`image`, `parent_id`, `top`, `column`, sort_order,';
          sSQL := sSQL+'`status`, `date_added`, `date_modified`';
          sSQL := sSQL+') VALUES (';
          sSQL := sSQL+'NULL, 0, 1, 0, 0,';
          sSQL := sSQL+'1, :pDataAdd, :pDataMod);';
          sQry.CommandText := sSQL;
          sQry.ParamByName('pDataAdd').AsDateTime := Now();
          sQry.ParamByName('pDataMod').AsDateTime := Now();
          sQry.ExecSQL();
GOSTEI 0
POSTAR