F�rum INSERT usando DBExpress mySQL Web #562470

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

Curtir t�pico

+ 0

Responder

Posts

19/09/2016

Raimundo Pereira

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

Responder

Gostei + 0

19/09/2016

Paulo Andrade

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;

Responder

Gostei + 0

20/09/2016

Paulo Andrade

[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();

Responder

Gostei + 0