本文介绍了数据类型转换错误的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
如何在VB6应用程序中使用tabledefs方法创建表.我设法编写了代码,但在执行时会打印"Data Type Conversion Error
".我拥有:-
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
请帮助
推荐答案
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
这篇关于数据类型转换错误的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!