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;