簡単なデータベースをつくりたいのですが (ID：49168)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

下記のMr.Xrayさんのを参考にZeosLibの設定は出来ました。
http://mrxray.on.coocan.jp/Delphi/plSamples/564_ZeosLib_DelphiBerlin.htm#07

アクセスでDBも作成して、あとはつなげるだけになりました。

Button1を押しても表示されない状況です。

どこが悪いのでしょうか・・・・
---------------------------------
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource  := DataSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZQuery1.Close;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用してJETデータベースに接続
//  Micorosoft Access 2007/2010 が使用しているJETエンジンが対象
//
//  JETエンドンのデータベースは1つのファイルに複数の表を格納する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LConnectStr : string;
begin
  //念のため接続を切断してから設定
  ZQuery1.Close;
  ZConnection1.Disconnect;

//接続文字列の設定
  //パスワードの設定あり
  LConnectStr := 'Provider=Microsoft.ACE.OLEDB.12.0'
               + ';Jet OLEDB:Database Password=123'
               + ';Data Source=' + ExpandFileName('D:\■■DelphiSoft\DbTest\Win32\Debug\TEST2007.mdb')
               + ';Persist Security Info=False';

ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';
  //データベースへ接続
  ZConnection1.Connect;

//TZQueryの設定
  //日本語の表名は[]で括る
  //日本語の項目名は[]または"(ダブルクォーテーション)で括る
  ZQuery1.Connection := ZConnection1;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from [食品カロリ表] order by [番号]');

//クエリを開く
  ZQuery1.Open;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る