How to create table using tabledefs method in a VB6 application.I have managed to write a code but on execution It prints "
Data Type Conversion Error
".What I have: -
Private Sub createDB(dbname As String)
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = DBEngine(0).CreateDatabase(dbname, dbLangGeneral)
Set td = db.CreateTableDef("Students_Info")
With td
Set fld = .CreateField("Rollno", dbNumber, 3)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("FirstName", dbText, 15)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("LastName", dbText, 15)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("DOB", dbDate)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("Class", dbText, 6)
.Fields.Append fld
Set fld = .CreateField("Subjects", dbText, 6)
.Fields.Append fld
Set fld = .CreateField("Mobile", dbLong, 10)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("Father's_name", dbText, 30)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("Mother's_Name", dbText, 30)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("Address", dbText, 60)
fld.AllowZeroLength = False
fld.Required = True
.Fields.Append fld
Set fld = .CreateField("E_Mail", dbText, 30)
.Fields.Append fld
End With
db.TableDefs.Append td
End Sub
Please Help