错误唯一约束失败

时间:2015-08-25 12:51:49

标签: android sqlite delphi unique firedac

我的android项目有问题。 我正在使用 Delphi XE 来开发这个项目。

所以,我尝试制作1个输入表单,但是当我在我的android上尝试它时,弹出错误。

喜欢[firedac][phys][SQLite] error unique constraint failed: "+tablename+"."+fieldname

您可以在以下链接中看到它:

http://s4.postimg.org/wep9pcfbh/Screenshot_2015_08_25_20_27_07_053.jpg

这是我Simpan按钮的代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ((Edit1.Text='') or (Edit2.Text='')) then
    ShowMessage('Data Kosong')
  else if (FDQuery1.Locate('kode_kategori',Edit1.Text,[loCaseInsensitive])) then
    ShowMessage('Data Sudah Ada')
  else begin
    qkategori.Command.CommandKind := skInsert;
    qkategori.SQL.Text:='INSERT INTO kategori VALUES ("'+Edit1.Text+'","'+Edit2.Text+'")';
    qkategori.Close;
    qkategori.ExecSQL();
    qkategori.Open;
    FDQuery1.Close;
    FDQuery1.Open;
  end;
end;

至于我只有2个字段的表(“kode_kategori”,“nama_kategori”)

kode_kategori = primary key, varchar(5)
nama_kategori = varchar(30), Not Null

将我的组件翻译成英语:

  

simpan = save
  kode_kategori =类别代码
  数据kosong =有数据仍然是空的   data sudah ada =这个数据已经存在   nama_kategori =类别名称

我很抱歉我的英语不足......

任何帮助都会没事......谢谢......


更新:

仍然记录了数据,我需要做的是使错误消失或被排除......


我的问题已经由TLama解决了,非常感谢:D

0 个答案:

没有答案