本文介绍了数据类型转换错误的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

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


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

08-26 09:44
查看更多