Accsee数据库

最新推荐文章于 2020-12-01 20:15:45 发布

小小de巫师

最新推荐文章于 2020-12-01 20:15:45 发布

阅读量1.7k

点赞数

分类专栏： Delphi Xe3 文章标签： Accsee

本文链接：https://blog.csdn.net/gfuchao/article/details/8661873

版权

本文深入探讨Accsee数据库的原理、特点及在实际工作中的应用案例，包括数据管理、查询优化和安全性等方面，帮助读者掌握Accsee数据库的使用技巧。

摘要由CSDN通过智能技术生成

//Accsee数据库创建及建表
Function Create_AC_Table(): Integer;
var
  Cat: Olevariant;
  Tadoq: TADOQuery;
begin
  If Not FileExists(Fle) then
  Begin
    Cat := CreateOleobject('ADOX.Catalog');
    Cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Fle + ';');
    Tadoq := TADOQuery.Create(nil);
    Tadoq.connectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
      Fle + ';';
    Tadoq.SQL.Text :=
      'Create Table Mp(Id Varchar(20),歌曲 Varchar(20),歌手 VarChar(20),网址 VarChar(100))';
    Tadoq.ExecSQL;
  end;
  Tadoq.Free;
end;

// Accsee数据显示
Function TForm1.bShow(var AListView: TListView): Integer;
Var
  i: Integer;
  str: TLisTitem;
begin
  with ADOQuery1 do
  begin
    SQL.Text := 'Select * From Mp';
    Open;
    First;
    while not(Eof) do
    Begin
      str := AListView.I