如何创建数据库的表格.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 26 行

如 果 创 建 Access数 据 库 的 表 ， 应 该 使 用 CreateTableDef方 法 。 如 果 创 建 SQL Server等 数 据 库 的 表 ， 需 要 使 用 CREATE TABLE查 询 。 
    1） 创 建 Access数 据 库 的 表 
     Dim dbs As Database, tdf As TableDef, fld As Field 
     
     ' 返 回 当 前 数 据 库 
     Set dbs = CurrentDb 
     ' 返 回 指 向 新 表 的 TableDef对 象 
     Set tdf = dbs.CreateTableDef("Contacts") 
     ' 在 表 中 添 加 一 个 新 字 段 
     Set fld = tdf.CreateField("ContactName", dbText, 40) 
     ' 使 用 Append追 加 Field对 象 到 TableDef的 Fields集 合 中 
     tdf.Fields.Append fld 
     tdf.Fields.Refresh 
     ' 使 用 Append追 加 TableDef对 象 到 数 据 库 的 TableDefs集 合 中 
     dbs.TableDefs.Append tdf 
     dbs.TableDefs.Refresh 
     Set dbs = Nothing 
    2） 创 建 SQL Server等 数 据 库 的 表 
    Dim dbs As Database 
     
    ...... 
    ' 使 用 两 个 文 本 字 段 来 创 建 表 。 
    dbs.Execute "CREATE TABLE ThisTable " _ 
     & "(" + Text1.Text "TEXT, " + Text2.Text + " TEXT);" 
    dbs.Close 
<END>