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

[Summer.05]

sergey-911
Да, дело было в гриде.
В 7-ой версии TDBGrid есть две версии. Для того, чтобы вся конструкция заработала, нужен был TDBGrid OLE.
Спасибо VVitafresh!

[Summer.05]

Коллеги, кто работает с 7-ой версией TDBGrid!
При получении рекордсета по ключевому слову желательно было бы, чтобы это слово подсвечивалось каким-либо цветом в соответствущем столбце. Это возможно? Чем управляется?
Подсветка поля - понятно. Подсветка всего текста в поле - понятно. Нужно - только одного слова - keyword'a

[gjghjc]

и еще вопрос

Коннект к базе осуществляю так

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

Set dbfSource = DAO.OpenDatabase(App.Path & "\Base", False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
        SQL_Source = "SELECT RS, SURNAME, NAME, FATHERNAME, IDCODE FROM RS WHERE RS = """ & txtRS.Text & """"
        Set rs_Source = dbfSource.OpenRecordset(SQL_Source)

Вопрос каким макаром заставить отображаться данные в этом TDBGrid.
TDBGrid.DataSource = ???

Что-то не соображу никак, может я туплю??
TDBGrid OLE тоже пробовал, никак.

[Summer.05]

В 7-ой версии TDBGrid в настройках TDBGrid1.PrintInfos (00).PreviewAllowFileOps = True (дает возможность записывать данные рекордсета в файл) запись осуществляется в формате *.arx

Из сети: Формат файла - .ARX, внутренний номер - 489
Описание на английском языке - Compressed archive
Описание на русском языке - Файл формата .ARX - это динамическая библиотека, скомпилированная в среде ObjectArx для графических программ фирмы AutoDesk (AutoCad, Land, ADT, MDT и т.д.). Напрямую открыть ее нельзя: можно только сделать ее загружаемой при старте вышеназванных CAD-программ (обычно из меню СервисПриложенияЗагрузить) и использовать согласно обычно прилагаемому к ней описанию.
Приложение которое использует файл .ARX - нет данных (http://formats.ru/format/about/file/ARX/)

Вопрос: можно ли перенастроить TDBGrid таким образом, чтобы файл был приемлемым, т.е. который можно открывать для использования в офисных или графических (менее экзотических, чем указано) программах?

[Summer.05]

gjghjc
Я, конечно, не силен в этих вопросах, но вдруг...

rs.Open SQL, cn, adOpenStatic, adLockReadOnly
Set TDBGrid1.DataSource = rs

[VVitafresh]

Summer.05, как вариант -- сохранение рекордсета в Excel, что-то типа:

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

Private Sub OutXL()
    Dim oXL As Object
    Dim oWBook As Object
    Dim oWSheet As Object
   
    Set oXL = CreateObject("Excel.Application")
   
    oXL.SheetsInNewWorkbook = 2
    Set oWBook = oXL.Workbooks.Add
    Set oWSheet = oXL.Worksheets(1)
   
    oXL.Visible = True 'Показать Excel
   
    oWSheet.Range("A1:B1").Value = Array("Заголовок1", "Заголовок2") 'Можно задать заголовки столбцов
    oWSheet.Range("A2").CopyFromRecordset rs 'Копирование из рекордсета
   
    oWSheet.Range("1:1").AutoFilter
    oWSheet.Range("A1").Select
    Set oXL = Nothing
End Sub

[Summer.05]

VVitafresh
Спасибо, очень полезно, мне пригодилось.