Office中国论坛/Access中国论坛

标题: [求助]如何向已存在的表中增加一个字段？ [打印本页]

作者: loren 时间: 2006-8-23 03:23
标题: [求助]如何向已存在的表中增加一个字段？
请指教！谢谢

在"二级生成表"中增加一个"一级ID"字段,并将字段值设定为100

[此贴子已经被作者于2006-8-23 9:33:59编辑过]

作者: 老鬼 时间: 2006-8-23 03:40
DoCmd.RunSQL "ALTER TABLE 表1 ADD abc text NULL"

作者: loren 时间: 2006-8-23 17:35
再次请教!

作者: wwwwa 时间: 2006-8-23 17:48
是默认值？

作者: loren 时间: 2006-8-23 17:50
对啊,就是增加字段后,让字段值为默认值,请教!

作者: wwwwa 时间: 2006-8-23 17:55
只能用ADO：

TRY：

Dim dd As New ADODB.Connectiondd.ConnectionString = "

rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEMP\123.MDB

ersist Security Info=False"
dd.Open
dd.Execute ("alter table rrrr add rr long default 100")

作者: loren 时间: 2006-8-23 18:46
M =100
Set rs2 = New ADODB.Recordset
rs2.Open "二级生成表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs2.Execute ("alter table 二级生成表 add 一级ID long default M")

Set rs2 = Nothing

以上语句为什么不对啊!请楼上指教

作者: wwwwa 时间: 2006-8-23 18:48
rs2.Execute ("alter table 二级生成表 add 一级ID long default "& M)

作者: loren 时间: 2006-8-23 19:08
楼上实在不好意思啊,还是不行啊,请帮忙.见附件

请在打开的窗体中选择组合框的值,然后点击"编辑"按钮,就可以看到错误所在.谢谢[attach]19948[/attach]

作者: wwwwa 时间: 2006-8-23 19:18
必须用ADODB.Connection

Dim dd As New ADODB.Connection

dd.ConnectionString = "

rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEMP\123.MDB

ersist Security Info=False"
dd.Open
dd.Execute ("alter table rrrr add rr long default 100")

作者: loren 时间: 2006-8-23 19:48
再次抱歉,还是没有实现．

作者: loren 时间: 2006-8-23 22:29
'Dim db1 As Database
'Dim M As Integer
'Set db1 = CurrentDb
'M = DLookup("一级总成ID", "一级ID", "零件号= '" & 一级零件号 & "'")
'db1.Execute ("alter table 二级生成表 add column 一级ID long default " & M) 为什么运行时提示alter 参数错误啊！

[此贴子已经被作者于2006-8-23 15:00:52编辑过]

作者: wuheng 时间: 2006-11-4 23:03
学习~~~~~~~~`

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)