首页 > 代码库 > FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除
FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除
先在空白窗体上添加: TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery、TDataSource、TDBGrid(并在设计时关联好).
你也可以复制下面文本框中的内容, 然后直接往窗体上贴, 以快速完成以上的添加过程:
代码:
{建立}
procedure TForm1.FormCreate(Sender: TObject);
const
dbPath = ‘C:\Temp\SQLiteTest.sdb‘;
strTable = ‘CREATE TABLE MyTable(Id integer PRIMARY KEY AUTOINCREMENT, Name string(10), Age byte)‘; //Id, Name, Age 三个字段
//integer PRIMARY KEY AUTOINCREMENT: 自增字段
begin
if FileExists(dbPath) then DeleteFile(dbPath);
FDConnection1.ConnectionString := ‘DriverID=SQLite; Database=‘ + dbPath;
FDConnection1.ExecSQL(strTable);
FDQuery1.Open(‘SELECT * FROM MyTable‘);
end;
{插入}
procedure TForm1.Button1Click(Sender: TObject);
const
strInsert = ‘INSERT INTO MyTable(Name, Age) VALUES(:name, :age)‘;
begin
FDConnection1.ExecSQL(strInsert, [‘AAA‘, 11]);
FDConnection1.ExecSQL(strInsert, [‘BBB‘, 22]);
FDConnection1.ExecSQL(strInsert, [‘CCC‘, 33]);
FDConnection1.ExecSQL(strInsert, [‘DDD‘, 44]);
FDConnection1.ExecSQL(strInsert, [‘EEE‘, 55]);
FDQuery1.Refresh;
end;
{更新}
procedure TForm1.Button2Click(Sender: TObject);
begin
FDConnection1.ExecSQL(‘UPDATE MyTable SET Age=:a WHERE Name=:n‘, [Random(100), ‘AAA‘]);
FDQuery1.Refresh;
end;
{删除}
procedure TForm1.Button3Click(Sender: TObject);
begin
FDConnection1.ExecSQL(‘DELETE FROM MyTable WHERE Age>33‘);
FDQuery1.Refresh;
end;
{查询符合条件的第一个结果}
procedure TForm1.Button4Click(Sender: TObject);
var
V: Variant;
begin
V := FDConnection1.ExecSQLScalar(‘SELECT Age FROM MyTable WHERE Name = :x‘, [‘BBB‘]);
ShowMessage(V);
end;
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。