Как очистить содержимое элемента управления DBGrid

Рассмотрим создание примера, который демонстрирует очистку элемента управления DBGrid:

1. В меню File выберите New Project.
   
   
2. Добавьте в Form1.form следующие элементы управления: Data, DBGrid и две кнопки.
   
   
3. Установите следующие свойства для каждого элемента управления:

         Control          Default Name       Property           Value
         ---------------------------------------------------------------
   
         Data Control     Data1              DatabaseName     BIBLIO.MDB
                                             RecordSource     Title
   
         DBGrid Control   DBGrid1            DataSource       Data1
   

   
   
   

4. Поместите следующий код в Form1 form:

         Option Explicit
         Dim sql As String
   
         Private Sub Command2_Click()
            ' SQL выражение, которое не возвращает записей.
            sql = "SELECT * From Titles Where Title = Null"
            Data1.RecordSource = sql
            Data1.Refresh
            Command1.Visible = True
            Command2.Visible = False
         End Sub
   
         Private Sub Command1_Click()
         ' Устанавливаем RecordSource для заполнения DBGrid контрола.
            Data1.RecordSource = "Titles"
            Data1.Refresh
            Command1.Visible = False
            Command2.Visible = True
         End Sub
   
         Private Sub Form_Load()
            Command1.Caption = "Заполнить DBGrid"
            Command1.Visible = False
            Command2.Caption = "Очистить DBGrid"
            Command2.Visible = True
         End Sub
   

   
   
   

5. В меню Run выберите Start, или нажмите F5. Теперь, если кликнуть по соответствующей кнопке, то содержимое DBGrid либо заполнится, либо очистится.