Delphi7 创建ACCESS数据库文件和读取文件

uses

DB, ADODB,ComObj;

//创建ACCESS数据库

procedure TForm1.btn1Click(Sender: TObject);
var
  acc:OleVariant;//定义一个对象
begin
    if FileExists('D:\Aceco.mdb') then//判断ACCESS是否存在
    begin
      ShowMessage('存在');
    end
    else
    begin
        acc:=CreateOleObject('ADOX.Catalog');//创建对象
        acc.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Aceco.mdb');//创建数据库文件
    end;
end;

//创建ACCESS表

procedure TForm1.btn2Click(Sender: TObject);
var
  conn:TADOConnection;
begin
    if  Assigned(conn) then
    begin
      conn:=TADOConnection.Create(nil);
    end;
    conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Aceco.mdb;Persist Security Info=False';//连接字符串

    conn.LoginPrompt:=False;  

    conn.Open;
    qry1.Connection:=conn;
    qry1.Close;
    qry1.SQL.Add('create table msssager(id varchar(50),name varchar(50))');
    qry1.ExecSQL;
end;

//查询数据

procedure TForm1.btn3Click(Sender: TObject);
var
  conn:TADOConnection;
begin
    if  Assigned(conn) then
    begin
      conn:=TADOConnection.Create(nil);
    end;
    conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Aceco.mdb;Persist Security Info=False';
    conn.LoginPrompt:=False;
    conn.Open;
    qry1.Connection:=conn;
    qry1.Close;
    qry1.SQL.Add('SELECT * FROM msssager');  //注意SQL语句一定要大写
    qry1.Open;
end;