高校问答天生上眼皮肿怎么消除:关于Adox建库中的多步错误问题
来源：百度文库 编辑：高校问答 时间：2024/04/29 06:42:48
小弟最近做了一个程序,是用VB+ADO做的
其中引用了ADOX,在往已建好的表中添加字段时出现了多步错误问题,望大侠帮助解决,程序如下
Dim tbl As New ADOX.Table
Dim fld As New ADOX.Column
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb;" ' & "Persist Security Info=False" cat.Create pstr '创建数据库
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
tbl.Columns.Append "备注", adWChar
cat.Tables.Append tbl '建立数据表 '这语句移到最后可以执行,但不能这么做,我是想修改已建好的Access数据库
tbl.Columns.Append "备注2", 203, 255
tbl.Columns("备注2").Attributes = adColNullable
dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以
Public pstr As String '定义该变量是为了后面的书写方便
其中引用了ADOX,在往已建好的表中添加字段时出现了多步错误问题,望大侠帮助解决,程序如下
Dim tbl As New ADOX.Table
Dim fld As New ADOX.Column
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb;" ' & "Persist Security Info=False" cat.Create pstr '创建数据库
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
tbl.Columns.Append "备注", adWChar
cat.Tables.Append tbl '建立数据表 '这语句移到最后可以执行,但不能这么做,我是想修改已建好的Access数据库
tbl.Columns.Append "备注2", 203, 255
tbl.Columns("备注2").Attributes = adColNullable
dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以
Public pstr As String '定义该变量是为了后面的书写方便
先删掉"备注2"字段,再:
dim fld as new adox.column
fld.name="备注2"
fld.type=203
fld.attributes=adCollNullable
tbl.columns.append fld
......OK