|
Как создать новый DBC контейнер через VFP OleDB provider
#32119928
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Ну блин там и ограничений в этом oledb-провайдере
Пример для фокса:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE TABLE test.dbc (OBJECTID I,PARENTID I, OBJECTTYPE C( 10 ), OBJECTNAME C( 128 ), PROPERTY M NOCPTRANS, CODE M NOCPTRANS, RIINFO C( 6 ), USER M)
INDEX on STR(parentid)+objecttype+LOWER(objectname) TAG OBJECTNAME OF test.dcx FOR .NOT.DELETED()
INDEX on STR(parentid)+objecttype TAG OBJECTTYPE OF test.dcx FOR .NOT.DELETED()
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME, PROPERTY) values( 1 , 1 ,'Database','Database',CHR( 11 )+CHR( 0 )+CHR( 0 )+CHR( 0 )+CHR( 1 )+CHR( 0 )+CHR( 24 )+CHR( 0 )+CHR( 0 )+CHR( 0 )+CHR( 10 ))
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 2 , 1 ,'Database','TransactionLog')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 3 , 1 ,'Database','StoredProceduresSource')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 4 , 1 ,'Database','StoredProceduresObject')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 5 , 1 ,'Database','StoredProceduresDependencies')
USE
a=FILETOSTR('test.dbc')
?STRTOFILE(STUFF(a, 29 , 1 ,CHR( 7 )),'test.dbc')
OPEN DATABASE test
С провайдером сложнее - сначала надо скопировать средствами приложения существующие dbc, dct и dcx, затем что-то вроде:
1.
2.
3.
4.
5.
6.
7.
8.
USE test.dbc EXCLUSIVE
ZAP
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME, PROPERTY) values( 1 , 1 ,'Database','Database',CHR( 11 )+CHR( 0 )+CHR( 0 )+CHR( 0 )+CHR( 1 )+CHR( 0 )+CHR( 24 )+CHR( 0 )+CHR( 0 )+CHR( 0 )+CHR( 10 ))
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 2 , 1 ,'Database','TransactionLog')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 3 , 1 ,'Database','StoredProceduresSource')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 4 , 1 ,'Database','StoredProceduresObject')
INSERT INTO test.dbc (OBJECTID, PARENTID, OBJECTTYPE, OBJECTNAME) values( 5 , 1 ,'Database','StoredProceduresDependencies')
USE
OPEN DATABASE test
|
|
|
