[Risolto] Un aiutino per access 2000

Accedi dal tuo File(A2010) via OLE al vecchio File(A2000) e vai a modificare via codice la Property del field("XXX") DefaultValue...!
In sostanza dichiari una Variabile come Access.Database quindi con OpenCurrentDatabase punti al File di A2000.
Ora sull'oggetto Database vai a puntare alla Tabella dalla Collection delle Tabelle[Tabledefs]... quindi punti alla Collection dei Campi[Fields] al tuo Campo, ed infine alla Collection delle Properties alla [DefaulValue]

db.TableDefs("NomeTabella").Fields("NomeCampo").Properties("DefaultValue") = "NewValue"

Oppure con un comando DDL(da provare in quanto non so se JET supporta tutti i comandi DDL in particolare verifica il SET in rosso):

strSQL = "ALTER TABLE [NomeTabella] ALTER COLUMN [NomeCampo] SET DEFAULT 'NewValue'"

ovviamente da usare con il metodo EXECUTE membro dell'oggetto Database aperto prima...

Puoi provare anche questo

ALTER TABLE [NomeTabella] IN 'C:\Data\NomeDBA2000.mdb' ALTER COLUMN [NomeCampo] SET DEFAULT 'NewValue'"

questo ovviamente lo lanci dal DB esistente come

DbEngine(0)(0).Execute "ALTER TABLE [NomeTa......"

In entrambi i casi attenzione alla formattazione del DataType(FieldType) quindi Apicetti per Stringhe, #Date# ecc...




Edited by @Alex - 02/Ago/2012 at 21:12