現在位置：  Delphiログ >  MDBテーブルのフィールド一覧を取得する

MDBテーブルのフィールド一覧を取得する

拙作SkMDBLink（返信屋2007プラグイン）は、以下の方法でフィールド一覧を取得している。


var
  I: Integer;
begin
  //テーブルの一覧を取得
  ADOConnection1.ConnectionString :=
    Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s', [MDBFileName]);
  ADOConnection1.OpenSchema(siTables, EmptyParam, EmptyParam, ADODataSet1);
  ADODataSet1.Close;

  //フィールドを取得するテーブルを設定
  ADODataSet1.CommandType := cmdTable;
  ADODataSet1.CommandText := TableName;
  ADODataSet1.Connection := ADOConnection1;
  ADODataSet1.Open;
  try
    //フィールドをリストボックスに追加
    ListBox1.Clear;
    for I := 0 to ADODataSet1.FieldCount - 1 do
      ListBox1.Items.Add(ADODataSet1.Fields[I].FieldName);
  finally
    ADODataSet1.Close;
  end;
end;

Tips

ブログ

リンク