From: desertphile@hottmail.com   
      
   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)