[B6] - Modificare proprietà "Requested" di un campo tabella Access

martedì 09 ottobre 2007 - 13.27

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

alxpei77 Profilo | Newbie

15 messaggi | Data Invio: mar 9 ott 2007 - 13:27

Buongiorno!
Spero di essere nella sezione corretta. Ho cercato ovunque ma non ho trovato soluzioni al problema che ora espongo.
Sto creando un programmino in VB6, per la gestione di alcuni dati, che accede ad un file access. Le tabelle all'interno del file le creo tramite codice utilizzando la libreria ADOX.
Ho notato però che, tutti i campi che creo all'interno della tabella, vengono impostati per default con proprietà "Requested" = Sì. Ciò mi genera un errore in fase di esecuzione quando passo valori nulli o non li passo proprio a qualsiasi campo. Ho provato anche a creare un oggetto Index associato alla tabella con proprietà .IndexNulls = adIndexNullsAllow ma non ottengo il risultato sperato (ossia mi genera sempre errore in fase di esecuzione).
Spero di essere stato sufficientemente chiaro....

Qualcuno ha idee da suggerire al novizio sottoscritto?
Grazie a tutti!

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: mar 9 ott 2007 - 13:53

Puoi postare il codice che usi per la creazione delle tabelle?

http://blogs.dotnethell.it/alebadalin

alxpei77 Profilo | Newbie

15 messaggi | Data Invio: mar 9 ott 2007 - 20:38

Public Sub CreaTabella(nr As String)
Dim Ctg As New ADOX.Catalog
Dim Tbl As New ADOX.Table
'Dim Indx As New ADOX.Index
With Ctg
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + App.Path + "\dbstatini.mdb;"
End With
With Tbl
.Name = nr
.Columns.Append "Data", adDate
.Columns.Append "OraIng", adDouble
.Columns.Append "OraUsc", adDouble
.Columns.Append "StrFer", adDouble
.Columns.Append "StrFes", adDouble
.Columns.Append "StrFesNot", adDouble
.Columns.Append "NavFer", adDouble
.Columns.Append "NavFes", adDouble
.Columns.Append "NavFesNot", adDouble
.Columns.Append "OreMat", adDouble
.Columns.Append "OreRec", adDouble
.Columns.Append "CFG", adDouble
.Columns.Append "CompForfFes", adDouble
.Columns.Append "CompForfFer", adDouble
.Columns.Append "GF", adDouble
.Columns.Append "Note" 'non specificando il tipo di dato il dtb in access mi considera testo
.Columns.Append "Sigla"
End With
Ctg.Tables.Append Tbl
Set Ctg = Nothing
Set Tbl = Nothing
End Sub

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: mer 10 ott 2007 - 08:23

Prova ad aggiungere questa istruzione dopo aver aggiunto le colonne (prima di effettuare l'append della Tabella ovviamente):

.Columns("Data").Attributes = adColNullable
... e così per tutte le colonne

Fammi sapere se funziona perchè non ho avuto modo di provare

Ciao

Alessandro

http://blogs.dotnethell.it/alebadalin

alxpei77 Profilo | Newbie

15 messaggi | Data Invio: mer 10 ott 2007 - 10:13

Grazie mille! Funziona alla grande!
Ne approfitto per domandare ancora una cosa....
Anche se non di vitale importanza, (dal momento che si trata di date consecutive e di conseguenza non ripetibili) vorrei impostare la prima colonna come chiave primaria......Ho visto che la proprietà primaryKey è dell'oggetto index della collection indexes....Anche se creo un oggetto index e gli imposto PrimaryKey = true e lo appendo alla tabella , come faccio a far capire al programma che si tratta della prima colonna? Per spiegarmi meglio ecco cosa vorrei scrivere....

dim Indx a= new ADOX.index
...
[omissis]
...' dopo aver appeso la tabella

With Indx
.PrimaryKey = true
End With
Tbl.Indexes.Append Indx
...

ma non funza....

Grazie di nuovo per il vecchio problema e se hai suggerimenti per questo......grazie in anticipo.....
Alessandro

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: gio 11 ott 2007 - 10:58

Per aggiungere un indice alla tabella devi usare questa sintassi:

Tbl.Indexes.Append "NomeIndice", "NomeCampo"

Ciao

Alessandro

http://blogs.dotnethell.it/alebadalin

alxpei77 Profilo | Newbie

15 messaggi | Data Invio: gio 11 ott 2007 - 16:45

Grazie mille......suggerimenti perfetti....alla prossima.....

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: gio 11 ott 2007 - 16:49

Di nulla, ciao

Chiudi il post con accetta risposta.

Ciao

Alessandro

http://blogs.dotnethell.it/alebadalin

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !