home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.visual.basic      MS Visual Basic discussions, NOT dot-net      10,840 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 9,605 of 10,840   
   Jon Smyth to All   
   VB5 and DAO 3.6 Creating a DB and fields   
   03 Jul 05 22:44:37   
   
   From: jon@smyth.com   
      
   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?   
      
         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)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca