vb中新建数据库表的问题

VB中怎么动态创建access数据库以及数据库表~

在vb中创建一个mdb文件需要用到adox，非常麻烦，还不如用access创建一个空mdb文件,需要用的时候复制一个，改名成123.mdb方便。至于生成表格之类的不是一个baidu问答能说清楚的，还是买本书看看吧。

一、 创建数据库：

在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

这样，数据库便在当前默认的路径下建立了。

二、 创建表与字段：

建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\数据库名称.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段，长度为6个字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完毕 "
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立数据库？", vbCritical
End Sub

水平有限，给你一个代码。不过好像有些复杂，但是能够在已有的数据库中动态创建表。数据库是Access的。

Dim cat As New ADOX.Catalog '动态创建盘点表用
Dim pstr As String
Dim tb As New Table

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb" '不能把这里的4.0改为3.51
cat.ActiveConnection = pstr

tb.Name = "店库存盘点明细" '表的名称
tb.Columns.Append "产品编号", adVarWChar, 50 '以下是表的字段
tb.Columns.Append "类别", adVarWChar, 50
tb.Columns.Append "年份", adVarWChar, 50
tb.Columns.Append "季节", adVarWChar, 50
tb.Columns.Append "入库日期", adDate
tb.Columns.Append "入库件数", adInteger
tb.Columns.Append "客退件数", adInteger
tb.Columns.Append "在途件数", adInteger
tb.Columns.Append "FROM", adVarWChar, 50
tb.Columns.Append "销售/出库时间", adDate
tb.Columns.Append "销售件数", adInteger
tb.Columns.Append "调出件数", adInteger
tb.Columns.Append "次品退仓件数", adInteger
tb.Columns.Append "TO", adVarWChar, 50
tb.Columns.Append "节余数量", adInteger
tb.Columns.Append "外借", adInteger
tb.Columns.Append "维修", adInteger
tb.Columns.Append "备注", adVarWChar, 50

'==============以下设置字段允许为空==============
tb.Columns("入库日期").Attributes = adColNullable
tb.Columns("入库件数").Attributes = adColNullable
tb.Columns("客退件数").Attributes = adColNullable
tb.Columns("在途件数").Attributes = adColNullable
tb.Columns("FROM").Attributes = adColNullable
tb.Columns("销售/出库时间").Attributes = adColNullable
tb.Columns("销售件数").Attributes = adColNullable
tb.Columns("调出件数").Attributes = adColNullable
tb.Columns("次品退仓件数").Attributes = adColNullable
tb.Columns("TO").Attributes = adColNullable
tb.Columns("节余数量").Attributes = adColNullable
tb.Columns("外借").Attributes = adColNullable
tb.Columns("维修").Attributes = adColNullable
tb.Columns("备注").Attributes = adColNullable

cat.Tables.Append tb '建立数据表
MsgBox "盘点明细表创建完成！", vbInformation, "创建表"
Set tb = Nothing
Set cat = Nothing

create table aa
{
id int not null, 禁止为空
username varchar(20) 可以为空
}

使用SQL Server企业管理器的自动创建脚本功能生成一个标准的脚本,一看就全明白了.

---

翼城县19518294640： 用vb往一个数据库里新建一个表(如果该表不存在)怎么搞? - ？
彭胀康均： 展开全部1. 采用DAO:先在工程-引用中引用Microsoft DAO ...,采用Database对象的CreatTableDef方法创建表,采用TableDefs对象的CreatField方法创建字段,采用Field对象的Append方法把新字段增加到表中.2. 采用SQL:采用SQL语言的...

翼城县19518294640： vb中新建数据库表的问题 - ？
彭胀康均： 水平有限,给你一个代码.不过好像有些复杂,但是能够在已有的数据库中动态创建表.数据库是Access的.Dim cat As New ADOX.Catalog '动态创建盘点表用 Dim pstr As String Dim tb As New Table pstr = ＂Provider=Microsoft.Jet.OLEDB....

翼城县19518294640： VB中如何生成数据库里面的表? - ？
彭胀康均： create table 表名( 字段名1 类型 <约束条件>, 字段名2 类型 <约束条件>, ...... 字段名n 类型 <约束条件> ) 这是创建一个新表的SQL语句,例中<约束条件>可有可无, ACCESS类型包括: Byte 数字[字节] Long 数字[长整型] Short 数字[整型] ...

翼城县19518294640： VB 在数据库里新建表 - ？
彭胀康均： 下面的代码是引用的,但测试可以通过.Microsoft ActiveX Data Objects 2.5 Library＂和＂Microsoft ADO Ext 2.1. For DDL Security＂都是可以找到的,不过不是部件,而是在【工程】【引用】中添加的1. 新建一个工程,找到VB编辑器主窗体的...

翼城县19518294640： vb中怎样创建数据表?在vb中用createtable创建数据表 ？
彭胀康均： 建议用dao完成 Dim tdfnewtable As TableDef Dim fldnewfield As Field '创建数据表 Set tdfnewtable = dbs.CreateTableDef(tabname) '创建表中字段 With tdfnewtable . ...

翼城县19518294640： 怎样用vb在已有的ACCESS数据库中新建表 - ？
彭胀康均： 建立数据表CREATE TABLE 数据表名 (字段名1 数据类型(长度), 字段名2 数据类型(长度),……)举例:create table student(xh text(9), xm text(8) , cj single(4), nl integer(2)) 建立含有xh、xm、cj、nl 4个字段的student表添加字段...

翼城县19518294640： 用VB在SQL中新建表的问题 - ？
彭胀康均： 有一个sql语句,SELECT *INTO 成品8月 FROM 成品7月 where 1<>1

翼城县19518294640： vb 中建立数据库 - ？
彭胀康均： 打开VB6.0 编译环境 外接程序---可视化数据管理器--文件--新建 这样就可以建立 常用的各种类型数据库 新建完 在数据库窗口~右键鼠标-新建表

翼城县19518294640： 如何用vb创建数据库 ???求高手 - ？
彭胀康均： 1.在界面上点接外接程序2.可视化数据管理器3.新打开的界面点文件4.新建5.选MICSOFT ACCESS6.选择一个MDB按自己要求进行表的设置

翼城县19518294640： vb创造表问题？
彭胀康均： 创建数据库和表可以使用 ADOX 对象 数据库创建使用 ADOX.Catalog的 Create 方法,表可以使用 ADOX.Table 对象的 Tables.Append 来增加.