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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
PROCEDURE Convert_Cursor_to_ADORecordset
LPARAMETERS m.cur_name,rs_
* m.cur_name - Алиас курсора который надо загнать в рекордсет
* rs_ - созданный пустой рекордсет rs = CREATEOBJECT("ADODB.Recordset")
PRIVATE ca,m.str_
IF rs_.State<> 0 Then
rs_.close
Endif
rs_.CursorType= 3 && adOpenStatic
m.str_=""
IF USED(m.cur_name)
gnFieldcount = AFIELDS(gaMyArray) && Create array.
FOR nCount = 1 TO gnFieldcount
*adFldIsNullable = 32
DO CASE
CASE gaMyArray(nCount, 2 )=='C'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 129 ,gaMyArray(nCount, 3 ),iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adChar 129
CASE gaMyArray(nCount, 2 )=='D'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 133 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDate - 7 , &&adDBDate = 133
CASE gaMyArray(nCount, 2 )=='N'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 5 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDouble
* rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 131 ,gaMyArray(nCount, 3 ),iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adNumeric
CASE gaMyArray(nCount, 2 )=='I'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 20 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adBigInt
CASE gaMyArray(nCount, 2 )=='L'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 11 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adBoolean
CASE gaMyArray(nCount, 2 )=='M'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 201 , 5000 ,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adLongVarChar
CASE gaMyArray(nCount, 2 )=='F'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 5 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDouble
CASE gaMyArray(nCount, 2 )=='B'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 5 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDouble
CASE gaMyArray(nCount, 2 )=='Y'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 6 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adCurrency
CASE gaMyArray(nCount, 2 )=='T'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 133 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDate - 7 , &&adDBDate = 133
* rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 134 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adDBTime
CASE gaMyArray(nCount, 2 )=='G'
rs_.Fields.Append(ALLTRIM(gaMyArray(nCount, 1 )), 204 ,,iif(gaMyArray(nCount, 5 ), 32 ,- 1 )) &&adVarBinary
ENDCASE
m.str_=m.str_+ Alltrim(gaMyArray(nCount, 1 ))+',' && Display field names.
ENDFOR
ELSE
RETURN .F.
Endif
IF LEN(ALLTRIM(m.str_))< 2 THEN
RETURN .F.
Endif
m.str_=LEFT(Alltrim(m.str_),LEN(Alltrim(m.str_))- 1 )
rs_.open
ca=CreateObject("CursorAdapter")
ca.Alias='tmp_Cur1_CA_'+ALLTRIM(m.cur_name)
ca.DataSourceType ="ADO"
ca.DataSource = rs_
ca.SendUpdates=.T.
ca.UpdatableFieldList= m.str_
llReturn = ca.CursorFill(.F., .F., 0 , rs_)
IF Not llReturn Then
AERROR(laErrors)
Err_Message(laErrors[ 2 ] , 16 , 'CursorFill Error')
RETURN .F.
ENDIF
SELECT(ca.Alias)
APPEND FROM DBF(ALLTRIM(m.cur_name))
GO TOP
TABLEUPDATE( 1 ,.T.,ca.Alias)
Sclose(ca.Alias)
ca=null
RETURN .T.
