Проблема при выделении элементов относящихся к классу в дбгр

[Aerus]

Я использую ДБгрид, мне нужно чтобы по запросу выделело все элементы которые относятся к полю в базе "хвойные".
Я делал следующее:

Код: Выделить всё

Dim strCompare As String
strCompare = "[xvoynye] = " + Text1.Text
Form4.Data1.Recordset.MoveNext
Form4.Data1.Recordset.FindNext strCompare
Unload Me

Но почему я пишу, проблема в том что здесь ошибка
Run-time error 3070
The microsoft jet database does not recognize "elj" as a valid field name or expression
при дебаге указывает на строку:

Код: Выделить всё

Form4.Data1.Recordset.FindNext strCompare

Я англ чуть понимаю, я понял что я что-то не так ввел, мне нужно чтобы выделело деревья которые относятся к хвойным. Хвойные это поле в базе. Помогите пажалста, если я сильно намудрил задайте вопрос я отвечу.

[Aerus]

Помогите плз, проблему все еще не решил.

[VVitafresh]

По-видимому нет поля "elj" в базе.

[VVitafresh]

Если нужно просто вывести в грид данные по условию, то лучше делай так:

Код: Выделить всё

Dim cn As ADODB.Connection  'В Referenses добавить Microsoft ActiveX DataObjects
Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Dim SQL As String
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=" & App.Path & "\db1.mdb"
    SQL = "select * from table1 where xvoynye='" & Text1.Text & "'"
    rs.CursorLocation = adUseClient
    rs.Open SQL, cn, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = rs
End Sub

P.S. Предполагаю, что поле xvoynye -- текстовое.

[Aerus]

VVitafresh
Спасибо большое.

Все отлично, только ошибка: Class does not support Automation or does not support expected interface

В MSDN:
To correct this error

Check the documentation of the application that created the object for limitations on the use of automation with this class of object.

If you changed a project from .dll to .exe or vice versa, you must manually unregister the old .dll or .exe

По-видимому нет поля "elj" в базе.

Запись есть, а поля нет.

[Konst_One]

Код: Выделить всё

strCompare = "[xvoynye] = '" & Text1.Text  & "'"

[VVitafresh]

Все отлично, только ошибка: Class does not support Automation or does not support expected interface

Я тебе дал рабочий код.
Наверняка, ты положил на форму DBGrid вместо DataGrid (Microsoft DataGrid Control).

[Aerus]

Все отлично, только ошибка: Class does not support Automation or does not support expected interface

Я тебе дал рабочий код.
Наверняка, ты положил на форму DBGrid вместо DataGrid (Microsoft DataGrid Control).

Вы абсолютно правильно сказали, еще раз огромное спасибо.

Код: Выделить всё

strCompare = "[xvoynye] = '" & Text1.Text  & "'"

Спасибо, теперь все отлично работает!