VB5 and DAO 3.6 Creating a DB and fields...

[Jon Smyth]

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

[David Rice, Esq.]

On Sun, 3 Jul 2005 22:44:37 -0400, "Jon Smyth" <jo*@smyth.com> 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

[Jon Smyth]

Thanks! That did the trick!

"David Rice, Esq." <de*********@hottmail.com> wrote in message
news:42**************@news.aioe.org...

On Sun, 3 Jul 2005 22:44:37 -0400, "Jon Smyth" <jo*@smyth.com> wrote:

I am trying to create a database programmatically using vb5 with the DAO 3.6object. 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

[David Rice, Esq.]

On Mon, 4 Jul 2005 07:20:17 -0400, "Jon Smyth" <jo*@smyth.com> wrote:

Thanks! That did the trick!

I love Usenet. :-)