Delphi 移动端使用 sqlite数据库查询

本文整理自网络，侵删。

 

    var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Populate Manufacturer box
  SQLConnection1.Connected := True;
  SQLQuery1.SQL.Clear;
  SQLQuery1.Close;
  SQLQuery1.SQL.Add('SELECT DISTINCT manufacturer FROM cars');
  try
    SQLQuery1.Open;
    cbManufac.Items.Clear;
    while not SQLQuery1.Eof do
    begin
      cbManufac.Items.Add(SQLQuery1.Fields[0].AsString);
      SQLQuery1.Next;
    end;
  finally
    SQLQuery1.Close;
  end;
end;

procedure TForm1.SQLConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  SQLConnection1.Params.Values['ColumnMetadataSupported'] := 'False';
  SQLConnection1.Params.Values['Database'] :=
      TPath.Combine(TPath.GetSharedDocumentsPath, 'cars.sqlite');
  {$ENDIF}
end;
end.

 

相关阅读 >>

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi 中的split 函数

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi 取字符串中间

Delphi 实现软件版验证码

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi 通得进程id获取主窗口句柄

Delphi的获取某坐标的颜色值

Delphi datamodule1 fdconnection1数据库连接

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 移动端使用 sqlite数据库查询