Заносит на диск текущую запись заданной рабочей области и обновляет все индексы, затрагиваемые этой операцией.
|
|---|
int _DBWrite(int workarea)
int workarea; /* Рабочая область. */ |
Remarks
Пример
В следующем примере выполняется _DBReplace( ) , использующая два параметра вызова: табличное поле (передается по ссылке) и значение соответствующего типа. Перед вызовом _DBWrite( ) и после него выполняется команда Visual FoxPro LIST NEXT 1.
Код Visual FoxPro
| |  Copy Code |
|---|
SET LIBRARY TO DBWRITE
DO CreateTest
GO 3
=DBWRITE( @ABC, "Replacement Record 1")
PROCEDURE CreateTest
CREATE TABLE test (ABC C(20))
APPEND BLANK
REPLACE ABC WITH "This is record 1"
APPEND BLANK
REPLACE ABC WITH "This is record 2"
APPEND BLANK
REPLACE ABC WITH "This is record 3"
APPEND BLANK
REPLACE ABC WITH "This is record 4"
GO TOP
RETURN |
Код C
| | Copy Code |
|---|
#include <pro_ext.h>
FAR Example(ParamBlk FAR *parm)
{
int RetValue;
if (RetValue = _DBReplace(&parm->p[0].loc, &parm->p[1].val)) {
_UserError("\n_DBReplace() failed");
}
if (RetValue = _DBWrite(-1)) {
_Error(-RetValue);
}
_Execute("LIST NEXT 1");
}
FoxInfo myFoxInfo[] = {
{"DBWRITE", (FPFI) Example, 2, "R,?"},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; |
Смотрите также
