控件添加数据到ACCESS

王子宇 · 发表于 2020-3-6 21:48

请高手帮忙解决下附件的问题，代码出错，添加不了数据

yxbaju · 发表于 2020-3-6 22:59

Dim obj, objs
objs = Array(Text零件号, Text零件名称, Text项数, TextCCS版次, Text零件图号, Text定单号, Text英文名称, Text材料牌号)
StrSQL = "INSERT INTO [COLLINS零件信息] VALUES ("
For Each obj In objs:
StrSQL = StrSQL & "'" & obj.Text & "',"
Next
StrSQL = Left(StrSQL, Len(StrSQL) - 1)
StrSQL = StrSQL & ")"

复制代码

这是插入数据语句,你如果不想已经存在的零件号被重复录入,建议将其设为主键

王子宇 · 发表于 2020-3-6 23:05

yxbaju 发表于 2020-3-6 22:59
这是插入数据语句,你如果不想已经存在的零件号被重复录入,建议将其设为主键

能帮我加个主键做好上个附件不，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 控件添加数据到ACCESS