From: jon@smyth.com   
      
   Thanks!  That did the trick!   
      
   "David Rice, Esq."  wrote in message   
   news:42c8bef6.8432881@news.aioe.org...   
   > On Sun, 3 Jul 2005 22:44:37 -0400, "Jon Smyth"  wrote:   
   >   
   > >I am trying to create a database programmatically using vb5 with the DAO   
   3.6   
   > >object.  I'm using the following segment, but I'm not having any luck.  I   
   > >can't seen to find much help either.  Any offerings here?   
   >   
   > Greetings. I find it "better" to use the long form in creating   
   > databases instead of an SQL statement. That way you get better error   
   > reporting and debugging.   
   >   
   > Dim db As Database, tbd As TableDef   
   >   
   > Set db = OpenDatabase(LocalDB)   
   >   
   > Set tbd = db.CreateTableDef("ProductMaster")   
   >    AddNewField tbd, "PartNumber", 55&, dbText, False, True   
   >    AddNewField tbd, "Description", 100&, dbText, True, False   
   > db.TableDefs.Append tbd   
   >   
   > Public Sub AddNewField(tbd As TableDef, ByVal FieldName, _   
   >     ByVal FieldSize As Long, ByVal FieldType, AZL As Boolean, _   
   >     Required As Boolean)   
   >   
   >     Dim fld As Field   
   >   
   >     If FieldSize > 0 Then   
   >         Set fld = tbd.CreateField(FieldName, FieldType, FieldSize)   
   >         fld.AllowZeroLength = AZL   
   >     Else   
   >         Set fld = tbd.CreateField(FieldName, FieldType)   
   >     End If   
   >   
   >     fld.Required = Required   
   >     tbd.Fields.Append fld   
   >     Set fld = Nothing   
   > End Sub   
   >   
   >   
   >   
   > >      Set db = CreateDatabase(dbFileName, dbLangGeneral, dbVersion30)   
   > >      db.Execute "CREATE TABLE Food_Table (Category Text(50), " & _   
   > >                                          "Name Memo NOT NULL, " & _   
   > >                                          "SoldState Text(50), " & _   
   > >                                          "Packaging Memo , " & _   
   > >                                          "Ingredients Memo, " & _   
   > >                                          "Description Memo, " & _   
   > >                                          "Instructions Memo, " & _   
   > >                                          "ShelfDays Integer, " & _   
   > >                                          "SuggestedSides Memo, " & _   
   > >                                          "SuggestedWines Memo)"   
   > >      Set tdfTableDef = db.CreateTableDef("Food_Table")   
   > >      Set fldField = tdfTableDef.Fields("Category")   
   > >      fldField.AllowZeroLength = True ' I'm doing this because I cant to   
   > >allow a zero length field   
   > >      tdfTableDef.Fields.Append fldField   
   > >      Debug.Print tdfTableDef.Fields.Count   
   > >      db.Close   
   > >   
   > >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)