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