ValidationText from a MS Access database with Delphi 5

Congratulation to Norway with the 4 gold medal in Ol Athen

procedure TForm1.Button3Click(Sender: TObject);
begin

// set
adotable1.FieldByName('field1').CustomConstraint := 'My validation text';

//get
showmessage(adotable1.FieldByName('field1').CustomConstraint);



end;

Stoney

Takker! :)

Sorry, men dette er to forskjellige tekster. CustomConstraint returnerer i alle fall ikke det jeg har skrevet i Validation Text i Access. Men det har noe med ADO og DAO å gjøre. Jeg fant løsningen på experts-exchange. Ellers takk.

- Mats

Hvad er løsningen så ?

Stoney

Løsningen ble å bruke DAO i stedet for ADO i Delphi. Fordi ValidationText er noe som er spesifikt for Access-databaser. Men det var litt mer tidkrevende enn jeg hadde tid til så jeg lagde denne lille kodesnutten i VB og ble ferdig med det.

Men løsningen jeg fikk fra experts-exchange var dette:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj,ADODB_TLB,ADOX_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  fADOConnection: _Connection;
  fADOCatalog: _Catalog;
begin

  fADOConnection:=CreateOLEObject('ADODB.Connection') As _Connection;
  fADOCatalog:=CreateOLEObject('ADOX.Catalog') As _Catalog;

  fADOConnection.Open('Data Source = ''test.mdb''; Provider=Microsoft.Jet.OLEDB.4.0;','','',0);
  fADOCatalog._Set_ActiveConnection(fADOConnection);
  Label1.Caption:=fADOCatalog.Tables.Item['Test'].Columns.Item['Test'].Properties.Item['Jet OLEDB:Column Validation Text'].Value;
end;

end.