Difference between revisions of "TDBGrid"
From Lazarus wiki
Jump to navigationJump to searchLine 2: | Line 2: | ||
<syntaxhighlight> | <syntaxhighlight> | ||
− | // | + | // configure connection with database |
SQLConnector1.ConnectorType := 'MySQL 5.1'; | SQLConnector1.ConnectorType := 'MySQL 5.1'; | ||
SQLConnector1.HostName := 'MyServer'; | SQLConnector1.HostName := 'MyServer'; | ||
Line 13: | Line 13: | ||
DataSource1.DataSet := SQLQuery1; | DataSource1.DataSet := SQLQuery1; | ||
DBGrid1.DataSource := DataSource1; | DBGrid1.DataSource := DataSource1; | ||
− | // setup | + | // setup query to get (at least) two fields from MyTable |
SQLQuery1.SQL := 'SELECT * FROM MyTable'; | SQLQuery1.SQL := 'SELECT * FROM MyTable'; | ||
− | // setup query | + | // setup grid with result from query |
DBGrid1.Columns[0].Title.Caption := 'Name'; | DBGrid1.Columns[0].Title.Caption := 'Name'; | ||
DBGrid1.Columns[0].FieldName := 'fieldDescription'; | DBGrid1.Columns[0].FieldName := 'fieldDescription'; |
Revision as of 00:14, 6 August 2016
TDBGrid is a visual component that displays tabular data from database contents through means of a TDataSet derivative like a TSQLQuery. The TDBGrid component is available from the Data Controls tab of the Component Palette.
// configure connection with database
SQLConnector1.ConnectorType := 'MySQL 5.1';
SQLConnector1.HostName := 'MyServer';
SQLConnector1.DatabaseName := 'MyDBName';
SQLConnector1.UserName := 'MyName';
SQLConnector1.Password := 'MyPass';
// connect SQLConnector, SQLTransaction, DataSource, SQLQuery and DBGrid
SQLTransaction1.Database := SQLConnector1;
SQLQuery1.Transaction := SQLTransaction1;
DataSource1.DataSet := SQLQuery1;
DBGrid1.DataSource := DataSource1;
// setup query to get (at least) two fields from MyTable
SQLQuery1.SQL := 'SELECT * FROM MyTable';
// setup grid with result from query
DBGrid1.Columns[0].Title.Caption := 'Name';
DBGrid1.Columns[0].FieldName := 'fieldDescription';
DBGrid1.Columns[1].Title.Caption := 'Description';
DBGrid1.Columns[1].FieldName := 'fieldName';
// Open result and show in grid
SQLQuery1.Open();
Freepascal Documentation