Below code works fine for an mdb file but does not work for accdb file.For accdb file i get error like "Unrecognized database format 'D:\Employee.accdb'." I do have office 2007 installed in my PC. I have added reference to 'dao'.So is there any changes needed in code or reference?(I don't know whether this code is correct for accdb ,But works fine for mdb file)
the code i use is
the code i use is
Code:
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim JetEngine As New dao.DBEngine
Dim p
db = JetEngine.OpenDatabase("D:\Employee.accdb")
tdf = db.TableDefs("detail")
fld = tdf.CreateField()
With fld
.Name = "MyDateTime"
.Type = 8
.Size = 8
End With
tdf.Fields.Append(fld)
p = fld.CreateProperty("Format", 10, "Long Time")
fld.Properties.Append(p)