Tipi di colonne In un Database

Pubblicato prima del 07/05/2008 - Informazione assente

||||||||||||||TYPO TDBASE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
form1.Table1.FieldDefs.Add({NOMECOLONNA},{tYPO " ftstring___ftFmtMemo__ ECC...DA INSERIRE a SCELTA"},{DimensioneTypeCampi},false);

(DimensioneTypeCampi DA "10.... IN SU" QUESTO VALE PER I TIPI QUI SOTTO)
ftString
ftFmtMemo
ftMemo
ftParadoxOle
ftDBaseOle
ftTypedBinary
ftGraphic
ftBlob
ftVarBytes
ftBCD
*****************

(DimensioneTypeCampi POSIZIONE SEMPRE A " 0 " QUESTO VALE PER I TIPI QUI SOTTO)
ftSmallint
ftInteger
ftWord
ftBoolean
ftFloat
ftCurrency
ftDate
ftTime
ftDateTime
***************

none...(QUESTI QUI SOTTO IN UN DATABASE TDBASE NON VENGONO ACETTATI NON INSERITELI)
ftUnknown
ftBytes
ftAutoInc
(QUI SOTTO UN ESEMPIO IN DEFINITIVA DI COME VIENE CREATO UN DATABASE TDBASE CON TUTTE LE POSSIBILITA CHE OFFRE)
(tutto quello che è tra le parentesi graffe "{____}" sono esempi miei fatti per rendere piu facile la comprensione del concetto)
form1.Table1.close;
form1.Table1.DatabaseName:='C:\Documents and Settings\Cadaeri\Desktop';
form1.Table1.TableName:='databasetest2.dbf';
form1.Table1.TableType:=ttDBase;
                        Form1.Table1.FieldDefs.Add('nome',ftstring20, false);
form1.Table1.FieldDefs.Add('cognome',ftFmtMemo,20,false);
form1.Table1.FieldDefs.Add('indirizzo',ftMemo,20,false);
form1.Table1.FieldDefs.Add('mail',ftParadoxOle,20,false);
form1.Table1.FieldDefs.Add('numero',ftDBaseOle,20,false);
form1.Table1.FieldDefs.Add('citta',ftTypedBinary,20,false);
form1.Table1.FieldDefs.Add('nik',ftGraphic,20,false);
form1.Table1.FieldDefs.Add('user',ftBlob,20,false);
form1.Table1.FieldDefs.Add('cap',ftVarBytes,20,false);
  form1.Table1.FieldDefs.Add('num7',ftBCD,25,false);

form1.Table1.FieldDefs.Add('num2',ftSmallint,0,false);
   form1.Table1.FieldDefs.Add('num3',ftInteger,0,false);
    form1.Table1.FieldDefs.Add('num4',ftWord,0,false);
     form1.Table1.FieldDefs.Add('num5',ftBoolean,0,false);
      form1.Table1.FieldDefs.Add('num6',ftCurrency,0,false);
       form1.Table1.FieldDefs.Add('num8',ftDate,0,false);
        form1.Table1.FieldDefs.Add('num9',ftTime,0,false);
         form1.Table1.FieldDefs.Add('num10',ftDateTime,0,false);

            //
  form1.Table1.CreateTable;

(*************************************************************************)
|||||||||||||||||||DEFAULT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

2 form1.Table1.FieldDefs.Add({NOMECOLONNA},{tYPO " ftstring " ECC...DA INSERIRE},{DimensioneTypeCampi},false);

(DimensioneTypeCampi DA "10.... IN SU" QUESTO VALE PER I TIPI QUI SOTTO)

ftString
ftFmtMemo
ftMemo
ftParadoxOle
ftDBaseOle
ftTypedBinary
ftGraphic
ftBlob
ftVarBytes
ftBCD
ftBytes
*****************

(DimensioneTypeCampi POSIZIONE SEMPRE A " 0 " QUESTO VALE PER I TIPI QUI SOTTO)
ftSmallint
ftInteger
ftWord
ftBoolean
ftFloat
ftCurrency
ftDate
ftTime
ftDateTime
***************

none...(QUESTI QUI SOTTO IN UN DATABASE TDBASE NON VENGONO ACETTATI NON INSERITELI)

ftUnknown
ftAutoInc
(QUI SOTTO UN ESEMPIO IN DEFINITIVA DI COME VIENE CREATO UN DATABASE TDBASE CON TUTTE LE POSSIBILITA CHE OFFRE)

form1.Table1.close;
with TTable.Create(Self) do begin
    DatabaseName := 'C:\Documents and Settings\Cadaeri\Desktop';
    TableName := 'DemosDEFAULT.DB';
    TableType := ttdefault;
    with FieldDefs do begin
      Add('Indirizzo', ftString, 25, False);
         Add('Numero', ftFmtMemo, 25, False);
      Add('Cell', ftMemo, 25, False);
      Add('Cell1', ftParadoxOle, 25, False);
     Add('Cell2', ftDBaseOle, 25, False);
      Add('Cell3', ftTypedBinary, 25, False);
      Add('Cell4', ftGraphic, 25, False);
      Add('Cell5', ftBlob, 25, False);
       Add('Cell6', ftVarBytes, 25, False);
     Add('Cell7', ftBCD, 25, False);
      Add('Cell8', ftBytes, 25, False);

       Add('Cell9', ftSmallint, 0, False);
     Add('Cell10', ftInteger, 0, False);
        Add('Cell11', ftWord, 0, False);
      Add('Cell12', ftBoolean, 0, False);
      Add('Cell13', ftFloat, 0, False);
      Add('Cell14', ftCurrency, 0, False);
      Add('Cell15', ftDate, 0, False);
      Add('Cell16', ftTime, 0, False);
      Add('Cell17', ftDateTime, 0, False);

    end;

    IndexDefs.Add('', 'Indirizzo', [ixPrimary, ixUnique]);
    CreateTable;
  end;

||||PARADOX\\\\
form1.Table1.FieldDefs.Add({NOMECOLONNA},{tYPO " ftstring " ECC...DA INSERIRE},{DimensioneTypeCampi},false);

(DimensioneTypeCampi DA "10.... IN SU" QUESTO VALE PER I TIPI QUI SOTTO)

ftString
ftFmtMemo
ftMemo
ftParadoxOle
ftDBaseOle
ftTypedBinary
ftGraphic
ftBlob
ftVarBytes
ftBCD
ftBytes
*****************

(DimensioneTypeCampi POSIZIONE SEMPRE A " 0 " QUESTO VALE PER I TIPI QUI SOTTO)
ftSmallint
ftInteger
ftWord
ftBoolean
ftFloat
ftCurrency
ftDate
ftTime
ftDateTime
***************

none...(QUESTI QUI SOTTO IN UN DATABASE TDBASE NON VENGONO ACETTATI NON INSERITELI)

ftUnknown
ftAutoInc
(QUI SOTTO UN ESEMPIO IN DEFINITIVA DI COME VIENE CREATO UN DATABASE TDBASE CON TUTTE LE POSSIBILITA CHE OFFRE)

form1.Table1.close;
  with TTable.Create(Self) do begin
    DatabaseName := 'C:\Documents and Settings\Cadaeri\Desktop';
    TableName := 'FOO';
    TableType := ttParadox;
    with FieldDefs do begin
      Add('Mail', ftString, 25, True);
      Add('Numero', ftFmtMemo, 25, False);
      Add('Cell', ftMemo, 25, False);
      Add('Cell1', ftParadoxOle, 25, False);
     Add('Cell2', ftDBaseOle, 25, False);
      Add('Cell3', ftTypedBinary, 25, False);
      Add('Cell4', ftGraphic, 25, False);
      Add('Cell5', ftBlob, 25, False);
       Add('Cell6', ftVarBytes, 25, False);
     Add('Cell7', ftBCD, 25, False);
      Add('Cell8', ftBytes, 25, False);
      Add('Cell9', ftSmallint, 0, False);
     Add('Cell10', ftInteger, 0, False);
        Add('Cell11', ftWord, 0, False);
      Add('Cell12', ftBoolean, 0, False);
      Add('Cell13', ftFloat, 0, False);
      Add('Cell14', ftCurrency, 0, False);
      Add('Cell15', ftDate, 0, False);
      Add('Cell16', ftTime, 0, False);
      Add('Cell17', ftDateTime, 0, False);
          // add a floating-point field
    end;
     //create a primary index on the Age field...
    IndexDefs.Add('', 'Mail', [ixPrimary, ixUnique]);
    CreateTable;
  end;

||||ASCIII\\\\
form1.Table1.FieldDefs.Add({NOMECOLONNA},{TYPO " ftstring " ECC...DA INSERIRE},{DimensioneTypeCampi},false);

(DimensioneTypeCampi DA "10.... IN SU" QUESTO VALE PER I TIPI QUI SOTTO)

ftString
ftBCD

*****************

(DimensioneTypeCampi POSIZIONE SEMPRE A " 0 " QUESTO VALE PER I TIPI QUI SOTTO)
ftSmallint
ftInteger
ftBoolean
ftFloat
ftCurrency
ftDate
ftTime
ftDateTime
ftAutoInc
***************

none...(QUESTI QUI SOTTO IN UN DATABASE TDBASE NON VENGONO ACETTATI NON INSERITELI)

ftUnknown
ftFmtMemo
ftMemo
ftParadoxOle
ftDBaseOle
ftTypedBinary
ftGraphic
ftBlob
ftVarBytes
ftBytes
ftWord
(QUI SOTTO UN ESEMPIO IN DEFINITIVA DI COME VIENE CREATO UN DATABASE TDBASE CON TUTTE LE POSSIBILITA CHE OFFRE)

form1.Table1.close;
with TTable.Create(Self) do begin
    DatabaseName := 'C:\Documents and Settings\Cadaeri\Desktop';            // point to directory or alias
    TableName := 'DemosASCII';
    TableType := ttascii;
      with FieldDefs do begin
          // add an integer field
      Add('Nome', ftString, 25, False);
      Add('Cell7', ftBCD, 25, False);

      Add('eta', ftInteger, 0, True);
       Add('Cell9', ftSmallint, 0, False);
     Add('Cell10', ftInteger, 0, False);
      Add('Cell12', ftBoolean, 0, False);
      Add('Cell13', ftFloat, 0, False);
      Add('Cell14', ftCurrency, 0, False);
      Add('Cell15', ftDate, 0, False);
      Add('Cell16', ftTime, 0, False);
      Add('Cell17', ftDateTime, 0, False);
      Add('Cell11', ftAutoInc, 0, False);

       // add a floating-point field
    end;
    { create a primary index on the Age field... }
    IndexDefs.Add('', 'eta', [ixPrimary, ixUnique]);
    CreateTable;
  end;

SE AVETE BISOGNO DI SAPERE COME APRIRE QUESTI TIPY DI DATABASE CHE STO STUDIANDO SCRIVETEMI ALL'INDIRIZZO MAIL (breken@aliceposta.it)
PER SALVARE IMMAGINI E OGGETTI NEI CAMPI DI UN DATABASE DEVO ANCORA STUDIARLO SCOPRILO APENNA RIUSCIRO A VENIRNE A CAPO VI MANDERO GLI ESEMPI PER RISPARMIARVI LA FATICA CHE STO FACENDO IO. VI AUGURO CHE QUESTE DRITTE VI POSSANO ESSERE UTILI CIAO A TUTTI VOI

A proposito dell'autore

Inuyascha

Descrizione non disponibile. Questo membro non è più parte della Community.

Aggiungi un commento

Inserisci il tuo commento qui

Esegui il login oppure registrati per inviare commenti