|
|
|
| Кинул на форму AdoData и DataGrid
Написал код
Но стоит вручную поправить свойства у контрола DataGrid - какие нибудь, как пропадает отображение данных.
Adodc1.ConnectionString = GLB_CONNECTION
Adodc1.RecordSource = "SELECT COMMODITY_TBL.COMMODITY_NAME AS Наименование ," _
& " COMMODITY_TBL.METAGE AS Ед_изм, COMMODITY_TBL.DEPARTAMENT_NUMBER AS Отдел," _
& " COMMODITY_TBL.PRICE_COMMODITY AS Цена , COMMODITY_TBL.AMOUNT AS Колич, COMMODITY_TBL.DESCRIPTION AS Описание ," _
& " COMMODITY_TBL.SHTRIHKOD From COMMODITY_TBL"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh | |
|
|