UC知道VB中如何生成数据库里面的表?
来源：百度知道 编辑：UC知道 时间：2024/06/24 08:04:02
VB中如何生成数据库里面的表?数据库已经存在,生成的表并储存在数据库中.
Dim tbName As String '表文件名
Dim tb As Table
Dim db As Database
With CommonDialog3
.DialogTitle = "请输入要建立的数据库表文件名："
.InitDir = WorkPath
.Filter = "Access(*.mab,*.mda,*.maf)|*.maf|*.mdb"
.ShowSave
tbName = .FileName
If .FileName = "" Then Exit Sub
End With
Set db = Workspaces(0).OpenDatabase(App.Path & "\" & AcesDbName, 0, False)
Set tb = db.CreateTableDef(tbName)
VB中如何在数据库中的创建一个新表!!!
Dim tbName As String '表文件名
Dim tb As Table
Dim db As Database
With CommonDialog3
.DialogTitle = "请输入要建立的数据库表文件名："
.InitDir = WorkPath
.Filter = "Access(*.mab,*.mda,*.maf)|*.maf|*.mdb"
.ShowSave
tbName = .FileName
If .FileName = "" Then Exit Sub
End With
Set db = Workspaces(0).OpenDatabase(App.Path & "\" & AcesDbName, 0, False)
Set tb = db.CreateTableDef(tbName)
VB中如何在数据库中的创建一个新表!!!
create table 表名(
字段名1 类型 <约束条件>,
字段名2 类型 <约束条件>,
......
字段名n 类型 <约束条件>
)
这是创建一个新表的SQL语句,例中<约束条件>可有可无,
ACCESS类型包括:
Byte 数字[字节]
Long 数字[长整型]
Short 数字[整型]
Single 数字[单精度
Double 数字[双精度]
Currency 货币
Char 文本
Text(n) 文本，其中n表示字段大小
Binary 二进制
Counter 自动编号
Memo 备注
Time 日期/时间
DAO对象现在用的很少了,已经被ADO取代.去网上找找使用ADODC对象的例子,配合SQL语句,可以使你事半功倍
Dim tbName As String '表文件名
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim tableName as string '要新建的表名
With CommonDialog3
.DialogTitle = "请输入要建立的数据库表文件名："
.InitDir = WorkPath
.Filter = "Access(*.mab,*.mda,*.maf)|*.maf|*.mdb"
.ShowSave
tbName = .FileName
If .FileName = "" Then Exit Sub
End With
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tbNam