I need at least 16000 fields and better 30000:
Code: Select all
// Обучение
#include "ads.ch"
#include "adsdbe.ch"
#include "dcdialog.ch"
#include "dccursor.ch"
#include "Gra.ch "
#include "xbp.ch "
#pragma library( "XBTBASE1.LIB" )
#pragma library( "XBTBASE2.LIB" )
#pragma library( "dclipx.lib " )
// Загрузить ADSDBE как стандартный механизм базы данных
PROCEDURE DbeSys
IF !DbeLoad( "ADSDBE" )
Alert( "ADSDBE could not be loaded!" ) // ADSDBE не был загружен
ENDIF
DbeSetDefault( "ADSDBE" )
RETURN
PROCEDURE Main
// ############################################################
// Соединиться с сервером базы данных
LOCAL cConnect := "DBE=ADSDBE;SERVER=C:\1\"
LOCAL oSession := DacSession():new( cConnect )
LOCAL nErrorCode := oSession:getLastError()
LOCAL cErrorMsg := oSession:getLastMessage()
MsgBOX( nErrorCode )
MsgBOX( cErrorMsg )
IF !oSession:isConnected()
MsgBOX( "Соединение с ADS (сервером) не может быть установлено !!!" )
QUIT
ELSE
MsgBOX( "Соединение с ADS (сервером) установлено успешно !!!" )
ENDIF
DIRCHANGE("C:\1\") // Перейти в папку с базами данных на сервере
* Открыть транзакцию ###############################################
oSession:beginTransaction()
****** Если БД Classes.dbf нет, то создать ее
cFileName := "Classes"
********** Rsp_it#.dbf уровень сходства объекта с классом: k-корреляция, i-сумма информации
aStructure := { { "Kod" , "N", 15, 0},; // 1
{ "Name" , "C",130, 0},; // 2
{ "Dost" , "N", 21, 7} } // 7 (Max_Value-Min_Value)/2
FOR j=1 TO 20000 // <<<<===============
FieldName = "C"+ALLTRIM(STR(j,21))
AADD(aStructure, { FieldName , "N", 21, 7 })
NEXT
DbCreate( cFileName, aStructure )
CLOSE ALL
USE Classes SHARED NEW
APPEND BLANK
REPLACE Kod WITH 1
REPLACE Name WITH "Привет"
* Закрыть транзакцию ###############################################
oSession:commitTransaction()
// ############################################################
// Закрыть базы данных и отсоединиться от сервера.
DbCloseAll()
oSession:disconnect()
RETURN
I would like to use ADSDBE for very large databases and the use of multi-core processors and more memory 2 GB (that is, I would like to take advantage of 64-bit operating system when working with Alaska). However, I would like to use a spreadsheet interface (ISAM), and SQL do not want.