请给个例子，在DELPHI下使用ACCESS库的例子。

Question

在DELPHI下使用ACCESS库查询、录入、删除、修改的例子。
提供一个相关的下载网址。想看看源码，学习学习。谢谢

Answer 1

这个跟在Paradox中操作是差不多的，只不过要用到ado控件而已

Answer 2

去www.2ccc.com上去下载。有这方面的例子的

Answer 3

我的日常开发 也如此 小的单机版的应用delphi+ado+access .
到一些网站上 下载 一个例程 学习一下即可上手 
给你一个地址：www.delphiun.com  
上面的例子很多的阿。

Answer 4

看看delphi和access的连接和查询，录入，删除等操作啊，很多书上都有讲解的，网上也很好搜的

Answer 5

//打印数据表格
function PrintCxGrid(AGrid: TcxGrid; sHeader: String; sFooter: String): String;
var
  sTmpFile: String;
  eclApp, srcWorkBook: Variant;
begin
  //生成临时文件的文件名
  sTmpFile := ExtractFilePath(Application.ExeName) + 'E' + FormatDateTime('YYMMDDHHMMSS', Date + Time) + '.tmp';  //
  try
    Screen.Cursor := crHourGlass;    //
    try
      eclApp := CreateOleObject('Excel.Application');
      srcWorkBook := CreateOleobject('Excel.Sheet');
    except
      Result := 'Microsoft Excel Not Support In Your System!';
      Exit;
    end;    //生成并打开临时文件
    ExportGrid4ToExcel(sTmpFile, AGrid, True, True, False, 'tmp');
    srcWorkBook := eclApp.WorkBooks.Open(sTmpFile);    //开始打印
    srcWorkBook.ActiveSheet.PageSetup.Orientation := 2;
    srcWorkBook.ActiveSheet.PageSetup.CenterHeader := sHeader;
    srcWorkBook.ActiveSheet.PageSetup.CenterFooter := sFooter;
    eclApp.Visible := True;
    srcWorkBook.ActiveSheet.PrintPreview;
  finally
    srcWorkBook.Saved := True;
    //退出Excel Application
    eclApp.Quit;
    eclApp := Unassigned;    //删除临时文件
    if FileExists(sTmpFile) then
      while FileExists(sTmpFile) do
        DeleteFile(PChar(sTmpFile));    //
    Screen.Cursor := crDefault;
  end;
end;
给个函数你看看，用到了cx的一个控件！

Answer 6

简单写了一个procedure TFrmMain.FormCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
               ExtractFilePath(Application.ExeName)+'fund.mdb;Persist Security Info=False;';
    ADOQuery1.Connection:=ADOConnection1;
end;procedure TFrmMain.Button1Click(Sender: TObject);
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(edit1.Text);
    ADOQuery1.Open;
    edit2.Text:=ADOQuery1.Fields[0].AsString;
end;