Здесь рисуется произвольная фигура в Excel. Данные по координатам берутся из базы. Проблема в том, что RecordCount почему-то выдает, что у него только одна запись, хотя если делаю выкладку данных просто в таблицу Excel выкладывает все записи. Подскажите что не так.
Excell, Access 2000
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Public Sub Region()
' Открытие базы данных
Set dbAccess = OpenDatabase("C:\Work\Baza\Map.mdb")
MySql = "SELECT Koordinat.X, Koordinat.Y" & _
" FROM Koordinat" & _
" ORDER BY Koordinat.ID_Koordinat;"
' Открытие рекордсета
Set TestTable = dbAccess.OpenRecordset(MySql)
' Вставка рекордсета
If (TestTable.RecordCount > 0 ) Then
RecC = TestTable.RecordCount
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 203 . 25 , 399 #)
For i = 0 To RecC
TestTable.Move (i)
a = TestTable.Fields( 0 )
b = TestTable.Fields( 1 )
.AddNodes msoSegmentCurve, msoEditingAuto, a, b
Next i
.ConvertToShape.Select
End With
Else: MsgBox "Not Found"
End If
' Закрытие рекордсета
TestTable.Close
' Закрытие базы данных
dbAccess.Close
End Sub
