用代码创建数据库,表,字段

页面导航:首页 > 软件编程 > vb.net > 用代码创建数据库,表,字段

用代码创建数据库,表,字段

来源: 作者: 时间:2016-02-05 12:32 【

Option ExplicitPrivate db As DatabasePrivate td As TableDefPrivate f As FieldPrivate Sub Command1_Click()Set db = DBEngine.CreateDatabase("d:1.mdb"

 

 

Option Explicit

Private db As Database

Private td As TableDef

Private f As Field

 

Private Sub Command1_Click()

Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)

Set td = New TableDef

 

Set f = td.CreateField("NAME", dbText, 20)

td.Fields.Append f

 

Set f = td.CreateField("ID", dbText, 5)

td.Fields.Append f

 

Set f = td.CreateField("DEPARTMENTP", dbText, 60)

td.Fields.Append f

 

 

td.Name = "class"

db.TableDefs.Append td

 

Set db = Nothing

 

End Sub

 

在列表框中显示该字段名

你可以设一个变量,取得"该字段名",再添加到列表框中(加上循环),列表框的操作你可以看VB的帮助

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <