有没有人有SQLDB的完整事例。

yunyong

其中要包括，增加、删除、修改、保存，等操作。

yunyong

SQLite3Connection1.DatabaseName:=path;
      SQLite3Connection1.Open;
      SQLQuery1.Close;
      SQLQuery1.SQL.Clear;
      SQLQuery1.SQL.Add('insert into YK_TYPK(YPXH,YPMC,YPGG,YPDW)');
      SQLQuery1.SQL.Add('values(2,''test'',''5ml'',''支'')');
      SQLQuery1.ExecSQL;

看看是不是这样就可以新增一条记录了，但我试了几次数据库中都没添加成功，也没出错提示，请问为什么？是不是跟SQLTransaction这个控件有关？

morgan

为了提高效率，Sqlite4fpc会把数据缓存在内存中，所以必须手工对Dataset进行ApplyUpdates。如果使用query，可使用SQLTransaction来控制事务的开始和提交。下面是我写的测试代码，供参考：

procedure TForm1.Button1Click(Sender: TObject);
var
  strs:TStringList;
begin
  SQLite3Connection1.Connected:= true;
  strs := TStringList.Create;
  try
    SQLite3Connection1.GetTableNames(strs,false);
    if strs.Count=0 then
    begin
      SQLite3Connection1.ExecuteDirect('CREATE TABLE test(ID INTEGER PRIMARY KEY autoincrement, F1 VARCHAR(100), F2 INTEGER, F3 VARCHAR(100));');
    end;
  finally
    strs.Free;
  end;
  qry.Close;
  qry.SQL.Clear;
  SQLTransaction1.StartTransaction;
  qry.SQL.Add('insert into test(F1,F2,F3) values '+format('("%s",%d,"%s");',['test1',1,'testtest1']));
  qry.ExecSQL;
  SQLTransaction1.Commit;
end;

yunyong

SQLTransaction1.StartTransaction;
  qry.append;
  qry.fieldbyname('F1').value:='1';
  qry.fieldbyname('F2').value:='test';
  qry.post;
  SQLTransaction1.Commit;

这样可以吗？