delphi UniDAC 连接mdb access 数据库

UniConnection1.ProviderName := 'Access';

UniConnection1.Database := ExtractFilePath(Application.ExeName) + '\data.mdb';

UniQuery1.Connection := UniConnection1;

UniQuery1.Close;

UniQuery1.SQL.Text := 'select * from kisiler';

UniQuery1.Open;

DataSource1.DataSet := UniQuery1;

DBGrid1.DataSource := DataSource1;

DBEdit1.DataSource := DataSource1;

DBEdit2.DataSource := DataSource1;

DBEdit3.DataSource := DataSource1;

DBEdit1.DataField := 'Ad';

DBEdit2.DataField := 'Soyad';

DBEdit3.DataField := 'Resim';

推荐分享