DELPHI7.0如何与仿问ACCESS数据库

Question

小弟是初学DELPHI，我想知道，如何在ACCESS里建一个表，然后，用DELPHI编写程序，显示出来，我试过了书中的例子，可以显示*。DB，但是，用ACCESS建出来的表是*.MDB，我就不知道如何做了。我试过用书上的办法，但是，不行。希望大家给与指点。

Answer 1

在连接数据库的时候，ACCESS选择的是Microsoft Jet 4.0 OLE DB Provider，试试看

Answer 2

数据库连接
var
ConnectString:string;
begin
  ADOConnection1.Connected:=false;
  ConnectString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;';
  ConnectString:=format(connectstring,[‘这里输入你的路径’]);
  ADOConnection1.ConnectionString:=ConnectString;
  try
     ADOConnection1.Connected:=true;
   except
      application.MessageBox('无法连接到数据库服务器,请检查设置数据库！', '提示',MB_ok + MB_DEFBUTTON1+MB_ICONEXCLAMATION);
      exit;
  end;
end;  
在中文提示的地方输入你的数据库路径就可以了，你可以把路径保存到inf文件里
在做一个设计叫用户可以指定就不用担心路径的问题了。如果是放在同一目录下
可以写成
var
Pathdir:string;
s:string;
begin
 Pathdir:=extractfilepath(application.ExeName);
 s:=pthdir+'/数据库.mdb';
end
s就是数据库的路径了！

Answer 3

简单的说就是用ADO、ODBC，具体的用程序写也行，用控件连接操作也行。

Answer 4

ODBC or ADO
都可以！

Answer 5

建立一个udl连接文件也可以的，在ADOConnection1的ConnectString属性中选择use data link file,指定该文件的路径，ok后配置一下该文件里面的连接参数。这样做应该可以的。

Answer 6

补充一点,点ok后要设置ADOConnection1的Connect属性为true

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  ADOQuery1: TADOQuery;
begin
  ADOQuery1 := TADOQuery.Create(Self);
  try
    ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";' +
      'Data Source=D:\Tomcat 4.1\DB\Student.mdb;Persist Security Info=True';
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'SELECT * FROM xscjb';
    ADOQuery1.Open;
    DataSource1.DataSet := ADOQuery1;
  finally
    // ADOQuery1.Free;  // 用于释放资源;
  end;
end;