VB+Access，在已有的数据库中新建表
本帖最后由 bcrun 于 2013-04-19 08:25:05 编辑 我要在已有的数据库中新建一个表，数据库名为SJSC.mdb，新建表名由用户输入text2.text内容，具体怎么实现，以下代码出现编译错误,无效使用new关键字，指向Dim tbl As New Table语句
Dim path1 As String
path1 = ("D:\Microsoft Visual Studio\VB98\试卷生成系统代码\SCSJ.mdb")
If path1 = "" Then
MsgBox "数据库SCSJ不存在，请先建立数据库！"
Exit Sub
End If
conn.Open path1
Dim tbl As New Table
conn.ActiveConnection = path1
tbl.Name = Trim(Text2.Text) & "试题"
tbl.Columns.Append "题号", adInteger
tbl.Columns.Append "题型", adVarWChar, 10
tbl.Columns.Append "题目", adVarWChar, 200
tbl.Columns.Append "分值", adInteger
tbl.Columns.Append "难度", adVarWChar, 4
tbl.Columns.Append "知识点", adVarWChar, 50
tbl.Columns.Append "所在章节", adVarWChar, 10
tbl.Columns.Append "答案", adVarWChar, 100
tbl.Columns.Append "状态", adInteger
conn.Tables.Append tbl
