Anton_GusevИ что делать-то?
Хорошо, давайте представим, что речь идет не об adodb.connection, а некотором ActiveX, в котором мы уверены, что он "ActiveX custom control", тогда как мне его прикрутить к классу?
В HELP по FoxPro есть примеры:
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.
30.
31.
32.
frmMyForm = CREATEOBJECT('Form') && Create a Form
frmMyForm.Closable = .F. && Disable the window pop-up menu
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && Add Command button
frmMyForm.AddObject("oleObject","oleExcelObject") && Add OLE object
frmMyForm.cmdCommand1.Visible=.T. && Display the "Quit" Command button
frmMyForm.oleObject.Visible=.T. && Display the OLE control
frmMyForm.oleObject.Height = 50 && OLE control height
frmMyForm.Show && Display the Form
frmMyForm.oleObject.DoVerb(- 1 ) && - 1 for Edit
READ EVENTS && Start event processing
DEFINE CLASS oleExcelObject as OLEControl
OleClass ="Excel.Sheet" && Server name
DocumentFile = "C:\EXCEL\BOOK1.XLS" && This file must exist
ENDDEFINE
DEFINE CLASS cmdMyCmdBtn AS CommandButton && Create Command button
Caption = '\<Quit' && Caption on the Command button
Cancel = .T. && Default Cancel Command button (Esc)
Left = 125 && Command button column
Top = 210 && Command button row
Height = 25 && Command button height
PROCEDURE Click
CLEAR EVENTS && Stop event processing, close form
ENDDEFINE
Т.е. ключевым здесь является синтаксис
1.
2.
3.
4.
DEFINE CLASS oleExcelObject as OLEControl
OleClass ="Excel.Sheet" && Server name
DocumentFile = "C:\EXCEL\BOOK1.XLS" && This file must exist
ENDDEFINE
Но, для ADODB это все не приемлимо, поскольку он не является ActiveX компонентом. Если так уж хочется оформить это все через класс, то придется писать обертку над командой CreateObject().
Т.е. просто дублировать все методы и свойства ADODB через соответсвующие методы и свойства, например, класса Custom, а внутри этих свойств и методов так прямо "в лоб" и писать CREATEOBJECT("ADODB.Connection")
Ну, что-то вроде
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
DEFINE CLASS MyConnection AS CUSTOM
oConn = NULL
ConnectionString = "provider=vfpoledb.1;;data source=.\MyTestDatabase.dbc"
PROCEDURE Init
This.oConn = CreateObject("ADODB.Connection")
This.oConn.ConnectionString = This.ConnectionString
ENDPROC
PROCEDURE Open
This.oConn.Open()
ENDPROC
ENDDEFINE
Следует также иметь в виду, что RecordSet для FoxPro - это "не естесственный" способ хранения табличных данных. Т.е. еще придется писать свою обертку и для навигации по RecordSet.
Однако все эти обертки уже реализованы в стандартном классе CursorAdapter. Думаете, у Вас получится лучше, чем реализовала команда разработчиков FoxPro?
