Несколько вопросов по DataGrid

[Dummiel]

Хай, други мои!
Хочешь прибавить себе забот, начинай изучать (читай - переходить на) другой контрол. Подскажите по мелочам, please!

1. Можно ли в отдельной ячейке (не придирайтесь к терминологии) сделать текст жирным по определенному признаку? Например, если у пипла нэйм "Вася", то его выделить?

2. Как реализовать вывод в тултипе DataGrid'а значение (содержимое) той ячейки, над которой находится курсор?

3. Можно ли выделить определенную строку определенным цветом по определенному признаку? Например, вывести фон строки красным, если возраст пипла больше 60 лет?

В MSFlexGrid это все реализовывалось легко, а вот в DataGrid?

[Dummiel]

И никому-то я ваще не нужен!!!

Али все в отпуске?

[GSerg]

1. Нет.
2. Есть свойство TooltipText, событие MouseMove и функции ColContaining и RowContaining.
3. Нет.

[Summer.05]

Подскажите, специалисты, пожалуйста:
если я использую ADOdc, то с какими еще Grid's он совместим, кроме DBGrid?
Спасибо!

[GSerg]

Со всеми, кто поддерживает ADO.

[Summer.05]

Со всеми, кто поддерживает ADO.

Для такого ответа не надо быть мастером. А если быть специалистом, то можно было дать конкретный ответ. Или ссылку на текст, где об этом можно почитать. Не сочти за упрек!

[Antonariy]

ya.ru - "грид поддерживающий ado".
Кстати DBGrid с ADO не совместим, в отличие от DataGrid.

[Summer.05]

Antonariy
Ты, как всегда, прав, спасибо!
Я думал, что практика наработала варианты совместимости и они для спецов есть азбука.
Оказывается, нет.
Буду искать, еще раз, спасибо!

[Konst_One]

лучше посмотри в другую сторону - отказа от использования ADODC-контрола и жить тебе станет легче

[Summer.05]

Konst_One
Спасибо, профессор!
Пару советов - наводок не дашь, что в этой стороне надо увидеть в первую очередь?
Каков механизм работы без контрола?

[gjghjc]

ADODB.Connection???

[Summer.05]

Буду пробовать, спасибо!

[sergey-911]

Я юзаю сеточку True DBGrid® Pro 8 фирмы ComponentOne. Очень качественный продукт, есть встроенный механизм вывода на печать грида с предварительным просмотром.

[VVitafresh]

Я юзаю сеточку True DBGrid® Pro 8 фирмы ComponentOne. Очень качественный продукт

Поддерживаю, тоже юзаю (правда седьмую версию).

[Summer.05]

Коллеги, спасибо! Я ее скачал, разбираюсь. Просто прелесть! Пока освоил цвета, фиксацию размеров колонок, ищу другие изюминки. А вот вывод на печать - это здорово! Но, как я понимаю, эта сеточка работает только с Data?

[Summer.05]

Перешел на TDBGrid. Нравится.
Однако перестал работать вот этот код (VB6, mdb):

Private Sub Command7_Click()
Text2.Visible = False
Text3.Visible = False

'поиск по ключевым словам темы
Dim KeyWord As String

KeyWord = InputBox("Ведите буквы ключевого слова" + vbCrLf + _
"(можно не полностью)", "Поиск", "")
If KeyWord <> "" Then
Data1.RecordSource = "SELECT * FROM DB where Title like " + _
Chr(39) + "%" + KeyWord + "%" + Chr(39)
End If
Data1.Refresh ' выполнить запрос
Text2.Visible = True
Text2.Text = KeyWord + " ..."

Text3.Visible = True
Text3.Text = TDBGrid1.ApproxCount
End Sub

[VVitafresh]

Какую выдает ошибку?

[Summer.05]

VVitafresh
Никакой ошибки нет. Просто грид становится пустым, а счетчик отобранных строк показывает =0

[VVitafresh]

Используй ADO. Должно все работать:

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

Option Explicit

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Form_Load()
    Dim SQL As String
    Dim KeyWord As String
   
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    cn.Open "Data Source=d:\db2.mdb"
   
    KeyWord = "ищем"
    If KeyWord <> "" Then
        SQL = "SELECT * FROM db where Title like " + _
            Chr(39) + "%" + KeyWord + "%" + Chr(39)
        rs.Open SQL, cn, adOpenStatic, adLockReadOnly
        Set TDBGrid1.DataSource = rs
    End If
    Text3.Text = TDBGrid1.ApproxCount
End Sub

[Summer.05]

VVitafresh

Спасибо большое!
Я немного модифицировал:

Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Form_Load() 'ввод формы
LoadKeyboardLayout "00000419", KLF_ACTIVATE 'вызов русского языка в форму

Dim SQL As String
Dim KeyWord As String
strPath = App.Path & "\" & "\" & "DB\ped.mdb"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.Open "Data Source = " & strPath & ""
KeyWord = InputBox("Ведите буквы ключевого слова" + vbCrLf + _
"(можно не полностью)", "Поиск", "")
'KeyWord = "ищем"
If KeyWord <> "" Then
SQL = "SELECT * FROM db where Title like " + _
Chr(39) + "%" + KeyWord + "%" + Chr(39)
rs.Open SQL, cn, adOpenStatic, adLockReadOnly
Set TDBGrid1.DataSource = rs
End If
Text3.Text = TDBGrid1.ApproxCount
End Sub


Результат тот же: никаких ошибок, но грид пустой.

Я заменил TDBGrid1 на DataGrid1 - вся конструкция работает безукоризненно.
Может быть, что-то в специфических настройках TDBGrid1?

[VVitafresh]

Значит твой запрос возвращает пустой рекордсет.
Посмотри, что выводит debug.print SQL и выполни этот запрос непосредственно в Access. Посмотри на результат.

Еще может быть ты начудил со свойствами грида? Удали его с формы и размести по-новой.

P.S.: Оформляй код в теги syntax="vb", иначе никто не будет читать и разбираться в твоем безформенном коде.

[Summer.05]

VVitafresh
Спасибо, что уделяешь мне столько внимания!

1. Я разместил новый TDBGrid без установки каких-либо его свойств. Не реагирует.
2. Включил в текст кода (запрос был слова "школ").
Debug.Print SQL
и получил ответ:
SELECT * FROM db where Title like '%школ%'
3. В темах диссертаций, где ведется поиск, слово "школ" встречается более нескольких тысяч раз, так что запрос должен был его найти.
4. При смене грида - все работает.
Даже предположить не могу причины, так как я далеко не программист...

[VVitafresh]

А грид какой размещаешь?
У меня седьмая версия и в ней есть просто True DBGrid Pro 7.0, а есть True DBGrid Pro 7.0 (OLEDB). При работе через ADO использовать нужно именно последний.

[Summer.05]

VVitafresh
Я использую True DBGrid Pro v6.0 (c) APEX Software
Где можно взять названные тобой?

[VVitafresh]

См. личку

[sergey-911]

Попробуй заменить

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

Set TDBGrid1.DataSource = rs

на

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

Set TData1.SourceRecordset = rs

[Summer.05]

Попробуй заменить

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

Set TDBGrid1.DataSource = rs

на

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

Set TData1.SourceRecordset = rs

Спасибо, Сергей!
Попробовал = method or data member not found

Переформатировал - Set Data1.RecordSource = rs
Попробовал = invalid use of property

Просто занятно даже!

[sergey-911]

Привет Summer.05, напиши мне на маил, что-нить придумаем.

[Summer.05]

VVitafresh
Все, спасибо, работает! Вопрос закрыт.

[sergey-911]

Summer.05, а в чём проблема была? Почему не работало? В компоненте было дело?