数据类型转换错误 [英] Data Type Conversion Error

问题描述

如何在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

请帮助

推荐答案

如果将声明更改为:

What happens if you change the declarations to:

Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field

这篇关于数据类型转换错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！