Create property in an Excel file?

I'm using the following code (VB6; DAO3.6) to create an .XLS file.

--------------------------------------
Dim ExcelDB As DAO.Database
Dim td As DAO.TableDef
Dim NewField As DAO.Field
Dim NewProp As DAO.Property
Dim I


Set ExcelDB = DBEngine.Workspaces(0).OpenDatabase(App.Path &
"\Test.XLS", dbDriverNoPrompt, False, "Excel 8.0")

Set td = ExcelDB.CreateTableDef("DataLog")

Set NewField = td.CreateField("DateTime", dbDate)
td.Fields.Append NewField

Set NewField = td.CreateField("Description", dbText)
td.Fields.Append NewField

ExcelDB.TableDefs.Append td
--------------------------------------

Now, I want to assign a specific format to the "DateTime" field. From
what I've read in various places, the following statement should do it
but it generates error 3310 "Property not supported for external data
sources..."

Set NewProp = td.Fields("DateTime").CreateProperty("NumberFormat",
dbText, "m/dd/yy hh:mm:ss")

td.Properties.Append NewProp

Can someone tell me what I'm doing wrong here?

On Thu, 23 Oct 2003 13:10:58 -0700, Martin <martinNO-SPAMvalley.RemoveThis@comcast.net> wrote:

¤ I'm using the following code (VB6; DAO3.6) to create an .XLS file.
¤
¤ --------------------------------------
¤ Dim ExcelDB As DAO.Database
¤ Dim td As DAO.TableDef
¤ Dim NewField As DAO.Field
¤ Dim NewProp As DAO.Property
¤ Dim I
¤
¤
¤ Set ExcelDB = DBEngine.Workspaces(0).OpenDatabase(App.Path &
¤ "\Test.XLS", dbDriverNoPrompt, False, "Excel 8.0")
¤
¤ Set td = ExcelDB.CreateTableDef("DataLog")
¤
¤ Set NewField = td.CreateField("DateTime", dbDate)
¤ td.Fields.Append NewField
¤
¤ Set NewField = td.CreateField("Description", dbText)
¤ td.Fields.Append NewField
¤
¤ ExcelDB.TableDefs.Append td
¤ --------------------------------------
¤
¤ Now, I want to assign a specific format to the "DateTime" field. From
¤ what I've read in various places, the following statement should do it
¤ but it generates error 3310 "Property not supported for external data
¤ sources..."
¤
¤ Set NewProp = td.Fields("DateTime").CreateProperty("NumberFormat",
¤ dbText, "m/dd/yy hh:mm:ss")
¤
¤ td.Properties.Append NewProp
¤
¤ Can someone tell me what I'm doing wrong here?


The creation of user defined properties using CreateProperty is only supported by Jet (Access)
database types.


Paul ~~~ pclement.RemoveThis@ameritech.net
Microsoft MVP (Visual Basic)