//Definicja bazy danych przechowującej dane specyfikacji
BaseDef bDef

bDef.New("DK_SPEC")
bDef.Field(FT_AUTOINC, 4, "id")
//identyfikator pozydji dokumentu sprzedaży
bDef.Field(FT_INT, 4, "id_dok")
bDef.Field(FT_INT, 4, "id_poz_dok")
bDef.Field(FT_STRING, 8, "nazwa_opak")
bDef.Field(FT_INT, 4, "liczba_opak")
bDef.Field(FT_FLOAT, 8, "waga_opak")
bDef.Field(FT_FLOAT, 8, "ilewopak")
bDef.Field(FT_INT, 4, "poziom")

bDef.Key(BKF_EXT | BKF_MOD , "id")
bDef.KeyField(FT_AUTOINC, 4, "id")

// klucz 2
bDef.Key(BKF_EXT | BKF_MOD | BKF_DUP , "id_poz_dok")
bDef.KeyField(FT_INT, 4, "id_poz_dok")

bDef.Create()

int bBaza, errBaza

bBaza = Open KatalogFirmy() + "DK_SPEC.DAT" for base "DK_SPEC"

if bBaza <= 0 then
   Create KatalogFirmy() + "DK_SPEC.DAT" for base "DK_SPEC"
   BaseError(KatalogFirmy() + "DK_SPEC.DAT",  4)

   //otwieramy stwrzoną baze danych
   bBaza = Open KatalogFirmy() + "DK_SPEC.DAT" for base "DK_SPEC"
   BaseError(KatalogFirmy() + "DK_SPEC.DAT",  4)

endif

Close( bBaza )

dispatch con = "ADODB.Connection"

string sCon = "Provider=SQLOLEDB.1;Data Source=localhost/SQLEXPRESS;Trusted_Connection=Yes;Initial Catalog=nazwa_bazy;User ID=sa;Password=haslo;"

con.ConnectionString = sCon
con.Open
dispatch rs = "ADODB.Recordset"