|
大家看看有什么问题: - SQLite3Connection1 := TSQLite3Connection.Create(nil);
- SQLQuery1:= TSQLQuery.Create(nil);
- SQLTransaction1:= TSQLTransaction.Create(nil);
- sqlquery1.DataBase:= SQLite3Connection1;
- SQLite3Connection1.Transaction:= SQLTransaction1;
- SQLTransaction1.DataBase:=SQLite3Connection1 ;
- SQLite3Connection1.CharSet := 'UTF8';
- SQLite3Connection1.Options := [sloTransactions, sloDesignTransactions];
- sqlquery1.Transaction := SQLTransaction1;
- path:=UTF8Encode(ExtractFilePath(ParamStr(0))+'test.s3db');
- SQLite3Connection1.DatabaseName:=path;
- SQLite3Connection1.Open;
- SQLTransaction1.Active:=true;
- SQLQuery1.Close;
- SQLQuery1.SQL.Clear;
- SQLQuery1.SQL.Add('insert into YK_TYPK(YPXH,YPMC,YPGG,YPDW)');
- SQLQuery1.SQL.Add(utf8Decode(' values(9,''test9'',''100ml'',''支'');'));
- listbox1.Add(sqlquery1.sql.text);
- SQLQuery1.ExecSQL;
- SQLTransaction1.Commit;
复制代码 |
|