DataGrid 6 и рабочий лист

[Simbad]

Здравствуйте!
Как связать VBA- DataGrid 6 c лист Excel?
Искал на форуме и на инете ничего подобного не нашел.
Заранее спасибо тем кто поможет!

[R Dmitry]

Сообщение от Simbad

Здравствуйте!
Как связать VBA- DataGrid 6 c лист Excel?
Искал на форуме и на инете ничего подобного не нашел.
Заранее спасибо тем кто поможет!

Связать MSFlexGrid с рабочим листом простым "способом" не возможно,
можно конечно это сделать программно и отслеживать события на листе,
а затем уже синхронизировать грид подобным образом
в цикле

With MSFlexGrid1
.TextMatrix(i, j) = Cells(i,j).Value
End With

да, у грида нумерация идет с 0, не стоит забывать об этом.

[kuklp]

Дима, DataGrid и MSFlexGrid - разные контролы. Но смысл тот же, без танцев с бубнами никак. Да и не нужно это. Лист Эксел - чем не DataGrid? А по вожможностям на несколько порядков круче.

[Simbad]

Сообщение от R Dmitry

Связать MSFlexGrid с рабочим листом простым "способом" не возможно,
можно конечно это сделать программно и отслеживать события на листе,
а затем уже синхронизировать грид подобным образом
в цикле

With MSFlexGrid1
.TextMatrix(i, j) = Cells(i,j).Value
End With

да, у грида нумерация идет с 0, не стоит забывать об этом.

Все таки спасибо, но я не хочу так.
Вот нашел другой способ:
Sub SelRng(rang As Range)
'строка подключения к текущей сохраненной(!) рабочей книге,
'HDR=Yes - первая строка содержит заголовки полей
Const sCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;D ata Source="
Const sCn2 = ";Extended Properties=""Excel 8.0;HDR=YES"";"
Dim nm As String
'константы "Заготовки" строки запроса к заданному диапазону листа
Const sQ1 = "SELECT * FROM ["
nm = rang.Worksheet.Name & "$" & rang.Address(0, 0) & "]"
Dim sCon As String
'создание экземпляра подключения и рекордсета
Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
With ThisWorkbook
'Формирование строки подключения к источнику
sCon = sCn1 + .Path + "\" + .Name + sCn2
End With
cn1.Open sCon
If Not cn1.State = 1 Then Exit Sub
rs1.Open sQ1 + nm, cn1, adOpenStatic, adLockReadOnly
Set dbGrid.DataSource = rs1
rs1.Close: cn1.Close 'закрытие созданных объектов
Set cn1 = Nothing: Set rs1 = Nothing '"очищениние" занимаемой ими памяти
End Sub

но в DataGrid не чего не показывается, не подскажете в чем проблема?

[R Dmitry]

Сообщение от Simbad

Все таки спасибо, но я не хочу так.
Вот нашел другой способ:
Sub SelRng(rang As Range)
'строка подключения к текущей сохраненной(!) рабочей книге,
'HDR=Yes - первая строка содержит заголовки полей
Const sCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;D ata Source="
Const sCn2 = ";Extended Properties=""Excel 8.0;HDR=YES"";"
Dim nm As String
'константы "Заготовки" строки запроса к заданному диапазону листа
Const sQ1 = "SELECT * FROM ["
nm = rang.Worksheet.Name & "$" & rang.Address(0, 0) & "]"
Dim sCon As String
'создание экземпляра подключения и рекордсета
Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
With ThisWorkbook
'Формирование строки подключения к источнику
sCon = sCn1 + .Path + "\" + .Name + sCn2
End With
cn1.Open sCon
If Not cn1.State = 1 Then Exit Sub
rs1.Open sQ1 + nm, cn1, adOpenStatic, adLockReadOnly
Set dbGrid.DataSource = rs1
rs1.Close: cn1.Close 'закрытие созданных объектов
Set cn1 = Nothing: Set rs1 = Nothing '"очищениние" занимаемой ими памяти
End Sub

но в DataGrid не чего не показывается, не подскажете в чем проблема?

а вы проверьте свой рекордсет, есть ли там данные ?

[R Dmitry]

Сообщение от kuklp

Дима, DataGrid и MSFlexGrid - разные контролы. Но смысл тот же, без танцев с бубнами никак. Да и не нужно это. Лист Эксел - чем не DataGrid? А по вожможностям на несколько порядков круче.

Я знаю что разные контролы, но у меня почему то DataGrid не находит (хотя стоит у меня(VS 2010), и вообще я использую грид от OneStudio 8.0

[R Dmitry]

Simbad.
да и рекордсет у вас не обновляемый, не получиться ни добавить ни редактировать запись даже если удасться загрузить.

[Simbad]

Да есть проверил вот так
Msgbox rs1.RecordCount
показывает 3, действительно у меня 3 ячейки

[R Dmitry]

добавьте строку выгрузки на лист вашего рекордсета
sheets("tmp").Cells(1, 1).CopyFromRecordset rs1
////////////////////
хотя Вы уже проверили......

скорей всего Вы нашли пример для VB, а поведение и свойства конролов могут отличаться

[Simbad]

Сообщение от R Dmitry

добавьте строку выгрузки на лист вашего рекордсета
sheets("tmp").Cells(1, 1).CopyFromRecordset rs1
////////////////////
хотя Вы уже проверили......

скорей всего Вы нашли пример для VB, а поведение и свойства конролов могут отличаться

я удалил последние две строки, рекордсет работает нормально но по прежнему DataGrid пустой