Allow zero length - Consenti lunghezza zero

Discussione:

(troppo vecchio per rispondere)

Dario Wilecojote

2005-01-20 14:36:49 UTC

Salve a tutti!
Ho cercato per ore sulla rete e poi affranto ho deciso di "rompere" qua!!
:-P
Ho la necessità di modificare un campo di una tabella access 2000 da
"Consenti lunghezza zero=NO" a "Consenti lunghezza zero=SI" .
Poichè questo lo devo fare da un programma Deplhi, qualcuno conosce
l'istruzione SQL per risucire tramite ADO nel mio intento??

grazie anticipatamente a chiunque mi sa descrivere la soluzione!!
Dario

Giovanni

2005-01-20 18:16:06 UTC

Permalink

Ciao Dario.
Hai provato a dare un'occhiata ad ADOX (ADO Extension) nato per manipolare
le strutture dei db.
Ciao
Giovanni

Post by Dario Wilecojote
Salve a tutti!
Ho cercato per ore sulla rete e poi affranto ho deciso di "rompere" qua!!
:-P
Ho la necessità di modificare un campo di una tabella access 2000 da
"Consenti lunghezza zero=NO" a "Consenti lunghezza zero=SI" .
Poichè questo lo devo fare da un programma Deplhi, qualcuno conosce
l'istruzione SQL per risucire tramite ADO nel mio intento??
grazie anticipatamente a chiunque mi sa descrivere la soluzione!!
Dario

Dario Wilecojote

2005-01-21 09:48:04 UTC

Permalink

Post by Giovanni
Ciao Dario.
Hai provato a dare un'occhiata ad ADOX (ADO Extension) nato per manipolare
le strutture dei db.
Ciao
Giovanni

Ho provato!! ma anche guardando qui ( so tonto, lo so !! ) non riesco a
trovare come fare per cambiare quella dannata proprietà del campo... tu
l'hai mai fatto??

Giovanni

2005-01-21 12:25:02 UTC

Permalink

Cia Dario.
No non ho mai impostato da codice questa proprietà.
Quest è tratto dall'help di Access se ti può aiutare, altre info le trovi su
msdn.

Nota Per accedere alla proprietà AllowZeroLength di un campo tramite Visual
Basic, utilizzare la proprietà DAO AllowZeroLength o la proprietà ADO
Column.Properties ("Set OLEDB:Allow Zero Length").

Impostare le proprietà degli oggetti ADO (ActiveX Data Objects) in Visual
Basic
Vedere ancheInformazioni specificheGli oggetti ADO (ActiveX Data Objects)
consentono di gestire la struttura del proprio database e i dati in esso
contenuti da Visual Basic. Molti oggetti ADO corrispondono a oggetti
visualizzati nel proprio database. Un oggetto Table ad esempio corrisponde a
una tabella di Microsoft Access, mentre un oggetto Field corrisponde a un
campo di una tabella.

La maggior parte delle proprietà che è possibile impostare per gli oggetti
ADO è rappresentata da proprietà ADO. Tali proprietà vengono definite dal
modulo di gestione di database Microsoft Jet e possono essere impostate allo
stesso modo in qualunque applicazione che includa questo modulo di gestione.
Alcune delle proprietà che è possibile impostare per gli oggetti ADO vengono
definite da Microsoft Access e non sono riconosciute automaticamente dal
modulo di gestione di database Microsoft Jet. La modalità di impostazione
delle proprietà per gli oggetti ADO varia a seconda che queste vengano
definite dal modulo di gestione di database Microsoft Jet oppure da Microsoft
Access.

Impostazione di proprietà ADO per oggetti ADO
Per impostare una proprietà definita dal modulo di gestione di database
Microsoft Jet, è necessario fare riferimento all'oggetto nella gerarchia ADO.
Il modo più semplice e veloce per effettuare questa operazione consiste nel
creare variabili di oggetto che rappresentino i diversi oggetti necessari per
lavorare, facendo riferimento alle variabili dell'oggetto nei passaggi
successivi del codice. Con il codice seguente ad esempio viene creato un
nuovo oggetto TableDef per cui viene impostata la proprietà Name:

Dim tbl As New ADOX.Table
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
tbl.Name = "Contacts"

Impostazione di proprietà Microsoft Access per oggetti ADO
Quando si imposta una proprietà definita da Microsoft Access applicandola a
un oggetto ADO, il modulo di gestione di database Microsoft Jet non riconosce
automaticamente la proprietà come valida. Quando si imposta la proprietà per
la prima volta, è necessario innanzitutto crearla e accodarla all'insieme
Properties dell'oggetto a cui viene applicata. Una volta aggiunta la
proprietà nell'insieme Properties, sarà possibile impostarla come qualsiasi
proprietà ADO.

Se la proprietà viene impostata per la prima volta nell'interfaccia utente,
viene aggiunta automaticamente all'insieme Properties ed è possibile
impostarla normalmente.

Quando vengono scritte procedure per l'impostazione di proprietà definite da
Microsoft Access, è necessario includere codice di gestione degli errori che
verifichi che le proprietà in corso di impostazione siano già esistenti
nell'insieme Properties. Per ulteriori informazioni, vedere l'argomento della
Guida in linea sul metodo Add o sulla singola proprietà.

È necessario tenere presente che quando si crea una proprietà occorre
specificare in modo corretto la relativa proprietà Type prima di accodarla
all'insieme Properties. È possibile determinare la proprietà Type in base
alle informazioni contenute nella sezione Impostazioni dell'argomento della
Guida in linea relativo alla singola proprietà. La tabella riportata di
seguito fornisce alcune indicazioni per determinare l'impostazione della
proprietà Type.

Impostazione della proprietà Impostazione della proprietà Type
Una stringa adLongVarWChar o adVarWChar
True/False adBoolean
Un valore intero adInteger

Nella tabella che segue vengono elencate alcune proprietà definite da
Microsoft Access valide per oggetti ADO.

Oggetto ADO Proprietà definite da Microsoft Access
Connection AppTitle, AppIcon, StartupShowDBWindow, StartupShowStatusBar,
AllowShortcutMenus, AllowFullMenus, AllowBuiltInToolbars,
AllowToolbarChanges, AllowBreakIntoCode, AllowSpecialKeys, Replicable,
ReplicationConflictFunction
Table DatasheetBackColor, DatasheetCellsEffect, DatasheetFontHeight,
DatasheetFontItalic, DatasheetFontName, DatasheetFontUnderline,
DatasheetFontWeight, DatasheetForeColor, DatasheetGridlinesBehavior,
DatasheetGridlinesColor, Description, FrozenColumns, RowHeight, ShowGrid
QueryDef DatasheetBackColor, DatasheetCellsEffect, DatasheetFontHeight,
DatasheetFontItalic, DatasheetFontName, DatasheetFontUnderline,
DatasheetFontWeight, DatasheetForeColor, DatasheetGridlinesBehavior,
DatasheetGridlinesColor, Description, FailOnError, FrozenColumns,
LogMessages, MaxRecords, RecordLocks, RowHeight, ShowGrid, UseTransaction
Field Caption, ColumnHidden, ColumnOrder, ColumnWidth, DecimalPlaces,
Description, Format, InputMask

Ciao
Giovanni

Post by Dario Wilecojote

Post by Giovanni
Ciao Dario.
Hai provato a dare un'occhiata ad ADOX (ADO Extension) nato per manipolare
le strutture dei db.
Ciao
Giovanni

Ho provato!! ma anche guardando qui ( so tonto, lo so !! ) non riesco a
trovare come fare per cambiare quella dannata proprietà del campo... tu
l'hai mai fatto??

Dario Wilecojote

2005-01-21 16:17:58 UTC

Permalink

Ci sono riuscito!!!!!
Legendo l'help che mi hai segnalato e prendendo spunto da questo affinando
le ricerche in rete ho trovato la soluzione:
Grazie 1k !!!!

ecco come l'ho fatto, so che forse non importerà na cippa a niuno, ma vedi
mai.....

// apro il db con ADOX
Connection := CoConnection.Create;
with Connection do begin
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFilePath(ParamStr(0)) + nomefile +
';Jet OLEDB:Engine Type=5';
// Specify exclusive access because we intend modifying the database's
// structure. The default is adModeUnknown.
Mode := adModeUnknown; //adModeShareExclusive; // boh!! se metto
unknown funzia sennò no...
Open('', '', '', Unassigned);
end;
// Recreate the Catalog object
Catalog := CoCatalog.Create;
// Link the Catalog object to the open connection
Catalog._Set_ActiveConnection(Connection);

MTable := Catalog.Tables['AtecoFin'];

MColumn := MTable.Columns['SottoSezione'];
with MColumn do begin
Properties['Jet OLEDB:Allow Zero Length'].Value := true;
end;
MColumn := MTable.Columns['Divisione'];
with MColumn do begin
Properties['Jet OLEDB:Allow Zero Length'].Value := true;
end;

// Chiudo il database con ADOX
// 'Close' the database by freeing the Catalog object's connection and
// then the Catalog itself.
Catalog.Set_ActiveConnection(Unassigned);
Catalog := nil;

// Riapro la connessione "Tradizionale"

dmsoci.ADOCnnSoci.Connected := true;

Post by Giovanni
Cia Dario.
No non ho mai impostato da codice questa proprietà.
Quest è tratto dall'help di Access se ti può aiutare, altre info le trovi su
msdn.
Nota Per accedere alla proprietà AllowZeroLength di un campo tramite Visual
Basic, utilizzare la proprietà DAO AllowZeroLength o la proprietà ADO
Column.Properties ("Set OLEDB:Allow Zero Length").
Impostare le proprietà degli oggetti ADO (ActiveX Data Objects) in Visual
Basic
Vedere ancheInformazioni specificheGli oggetti ADO (ActiveX Data Objects)
consentono di gestire la struttura del proprio database e i dati in esso
contenuti da Visual Basic. Molti oggetti ADO corrispondono a oggetti
visualizzati nel proprio database. Un oggetto Table ad esempio corrisponde a
una tabella di Microsoft Access, mentre un oggetto Field corrisponde a un
campo di una tabella.
La maggior parte delle proprietà che è possibile impostare per gli oggetti
ADO è rappresentata da proprietà ADO. Tali proprietà vengono definite dal
modulo di gestione di database Microsoft Jet e possono essere impostate allo
stesso modo in qualunque applicazione che includa questo modulo di gestione.
Alcune delle proprietà che è possibile impostare per gli oggetti ADO vengono
definite da Microsoft Access e non sono riconosciute automaticamente dal
modulo di gestione di database Microsoft Jet. La modalità di impostazione
delle proprietà per gli oggetti ADO varia a seconda che queste vengano
definite dal modulo di gestione di database Microsoft Jet oppure da Microsoft
Access.
Impostazione di proprietà ADO per oggetti ADO
Per impostare una proprietà definita dal modulo di gestione di database
Microsoft Jet, è necessario fare riferimento all'oggetto nella gerarchia ADO.
Il modo più semplice e veloce per effettuare questa operazione consiste nel
creare variabili di oggetto che rappresentino i diversi oggetti necessari per
lavorare, facendo riferimento alle variabili dell'oggetto nei passaggi
successivi del codice. Con il codice seguente ad esempio viene creato un
Dim tbl As New ADOX.Table
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
tbl.Name = "Contacts"
Impostazione di proprietà Microsoft Access per oggetti ADO
Quando si imposta una proprietà definita da Microsoft Access applicandola a
un oggetto ADO, il modulo di gestione di database Microsoft Jet non riconosce
automaticamente la proprietà come valida. Quando si imposta la proprietà per
la prima volta, è necessario innanzitutto crearla e accodarla all'insieme
Properties dell'oggetto a cui viene applicata. Una volta aggiunta la
proprietà nell'insieme Properties, sarà possibile impostarla come qualsiasi
proprietà ADO.
Se la proprietà viene impostata per la prima volta nell'interfaccia utente,
viene aggiunta automaticamente all'insieme Properties ed è possibile
impostarla normalmente.
Quando vengono scritte procedure per l'impostazione di proprietà definite da
Microsoft Access, è necessario includere codice di gestione degli errori che
verifichi che le proprietà in corso di impostazione siano già esistenti
nell'insieme Properties. Per ulteriori informazioni, vedere l'argomento della
Guida in linea sul metodo Add o sulla singola proprietà.
È necessario tenere presente che quando si crea una proprietà occorre
specificare in modo corretto la relativa proprietà Type prima di accodarla
all'insieme Properties. È possibile determinare la proprietà Type in base
alle informazioni contenute nella sezione Impostazioni dell'argomento della
Guida in linea relativo alla singola proprietà. La tabella riportata di
seguito fornisce alcune indicazioni per determinare l'impostazione della
proprietà Type.
Impostazione della proprietà Impostazione della proprietà Type
Una stringa adLongVarWChar o adVarWChar
True/False adBoolean
Un valore intero adInteger
Nella tabella che segue vengono elencate alcune proprietà definite da
Microsoft Access valide per oggetti ADO.
Oggetto ADO Proprietà definite da Microsoft Access
Connection AppTitle, AppIcon, StartupShowDBWindow, StartupShowStatusBar,
AllowShortcutMenus, AllowFullMenus, AllowBuiltInToolbars,
AllowToolbarChanges, AllowBreakIntoCode, AllowSpecialKeys, Replicable,
ReplicationConflictFunction
Table DatasheetBackColor, DatasheetCellsEffect, DatasheetFontHeight,
DatasheetFontItalic, DatasheetFontName, DatasheetFontUnderline,
DatasheetFontWeight, DatasheetForeColor, DatasheetGridlinesBehavior,
DatasheetGridlinesColor, Description, FrozenColumns, RowHeight, ShowGrid
QueryDef DatasheetBackColor, DatasheetCellsEffect, DatasheetFontHeight,
DatasheetFontItalic, DatasheetFontName, DatasheetFontUnderline,
DatasheetFontWeight, DatasheetForeColor, DatasheetGridlinesBehavior,
DatasheetGridlinesColor, Description, FailOnError, FrozenColumns,
LogMessages, MaxRecords, RecordLocks, RowHeight, ShowGrid, UseTransaction
Field Caption, ColumnHidden, ColumnOrder, ColumnWidth, DecimalPlaces,
Description, Format, InputMask
Ciao
Giovanni

Post by Dario Wilecojote

Post by Giovanni
Ciao Dario.
Hai provato a dare un'occhiata ad ADOX (ADO Extension) nato per manipolare
le strutture dei db.
Ciao
Giovanni

Ho provato!! ma anche guardando qui ( so tonto, lo so !! ) non riesco a
trovare come fare per cambiare quella dannata proprietà del campo... tu
l'hai mai fatto??

Giovanni

2005-01-21 18:24:51 UTC

Permalink

Bene.... vedrò di riuscire a fare la traduzione da Pascal a VB.
Posso fare una battuta..... non sarà molto contenta la mamma MS che aiutiamo
la concorrenza.
Ciao
Giovanni

Post by Dario Wilecojote
Ci sono riuscito!!!!!
Legendo l'help che mi hai segnalato e prendendo spunto da questo affinando
Grazie 1k !!!!
ecco come l'ho fatto, so che forse non importerà na cippa a niuno, ma
vedi mai.....
// apro il db con ADOX
Connection := CoConnection.Create;
with Connection do begin
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFilePath(ParamStr(0)) + nomefile +
';Jet OLEDB:Engine Type=5';
// Specify exclusive access because we intend modifying the database's
// structure. The default is adModeUnknown.
Mode := adModeUnknown; //adModeShareExclusive; // boh!! se metto
unknown funzia sennò no...
Open('', '', '', Unassigned);
end;
// Recreate the Catalog object
Catalog := CoCatalog.Create;
// Link the Catalog object to the open connection
Catalog._Set_ActiveConnection(Connection);
MTable := Catalog.Tables['AtecoFin'];
MColumn := MTable.Columns['SottoSezione'];
with MColumn do begin
Properties['Jet OLEDB:Allow Zero Length'].Value := true;
end;
MColumn := MTable.Columns['Divisione'];
with MColumn do begin
Properties['Jet OLEDB:Allow Zero Length'].Value := true;
end;
// Chiudo il database con ADOX
// 'Close' the database by freeing the Catalog object's connection and
// then the Catalog itself.
Catalog.Set_ActiveConnection(Unassigned);
Catalog := nil;
// Riapro la connessione "Tradizionale"
dmsoci.ADOCnnSoci.Connected := true;

Post by Dario Wilecojote

Post by Giovanni
Ciao Dario.
Hai provato a dare un'occhiata ad ADOX (ADO Extension) nato per manipolare
le strutture dei db.
Ciao
Giovanni

Ho provato!! ma anche guardando qui ( so tonto, lo so !! ) non riesco a
trovare come fare per cambiare quella dannata proprietà del campo... tu
l'hai mai fatto??