1,216
社区成员
发帖
与我相关
我的任务
分享如何在表格的指定位置添加一个字段
Access数据库New.MDb内有一表格Table，Table内有字段：字段1，字段2，字段3，字段4
现在想要在字段3与字段4之间加一个字段：插入字段，插入字段后Table表格字段顺序为：
字段1，字段2，字段3，插入字段，字段4
能实现吗？？该怎么实现，谢谢
现在想要在字段3与字段4之间加一个字段：插入字段，插入字段后Table表格字段顺序为：
字段1，字段2，字段3，插入字段，字段4
能实现吗？？该怎么实现，谢谢
...全文
请发表友善的回复…
发表回复
vbcrack 2005-12-01
- 打赏
- 举报
如果用ADO或ADOX不知道行不行？？
vbcrack 2005-11-30
- 打赏
- 举报
在最后插入我已经会了，谢谢
难道这样不行，还是高手还没有来
难道这样不行，还是高手还没有来
faysky2 2005-11-30
- 打赏
- 举报
在指定位置插入字段不会，只会在最后插入：
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\New.MDb.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient '设置客户端游标
cn.Open
'向表中增加一個 VARCHAR 列：
cn.Execute ("ALTER TABLE table1 ADD COLUMN addCol VARCHAR(30)")
End Sub
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\New.MDb.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient '设置客户端游标
cn.Open
'向表中增加一個 VARCHAR 列：
cn.Execute ("ALTER TABLE table1 ADD COLUMN addCol VARCHAR(30)")
End Sub
bbhere 2005-11-30
- 打赏
- 举报
up
northwolves 2005-11-30
- 打赏
- 举报
IF YOU USE DAO ,IT IS EASY:
db.TableDefs("myTable").Fields("myField").Properties("OrdinalPosition").Value = 10
db.TableDefs("myTable").Fields("myField").Properties("OrdinalPosition").Value = 10
