Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Cursor->ado recordset  [new]
Guest
Guest
Как меньшей кровью получить recordset из курсора VFP 8.
Пробовал играться c CursorAdapter, но чето не очень получается. Он вообще работает с recordset без конекшена?
12 май 04, 11:46    [673263]     Ответить | Цитировать Сообщить модератору
 Re: Cursor->ado recordset  [new]
Guest
Guest
rec_1=CREATEOBJECT('ADODB.recordset')
rec_1.CursorType= 3  && adOpenStatic   
rec_1.Fields.Append("f1",129,10) &&adChar 129
rec_1.open

ca=CreateObject("CursorAdapter")
ca.Alias='Cur1'
ca.DataSourceType ="ADO"
ca.DataSource = rec_1
ca.SendUpdates=.T.
ca.UpdatableFieldList= "F1"

llReturn = ca.CursorFill(.F., .F., 0, rec_1)
? llReturn
IF   Not llReturn Then
	  AERROR(laErrors)
      MESSAGEBOX(laErrors[2],0,"CursorFill")
ELSE 
	INSERT INTO cur1 (f1) VALUES ("11111")
	INSERT INTO cur1 (f1) VALUES ("22222")
	INSERT INTO cur1 (f1) VALUES ("33333")
ENDIF

TABLEUPDATE(1,.T.,"cur1")

*-------------------------

? ca.DataSource.RecordCount ca.DataSource.MoveFirst ? ca.DataSource.Fields("f1").Value

Не хочется сначала создавать recordset через rs.Fields.Append(). Как-то это можно упростить ?
17 май 04, 00:42    [681065]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить