插入内容，有主键，却显示键列信息不足或不正确，求教~~

[fky198947]

用ADODC连到了VB，在VB上插入，销售信息表和商品进货表显示键列信息不足或不正确。而商品信息表则显示多步操作产生错误。请问是怎么回事啊？
在sql上用企业管理器和查询分析器插入一切正常。

[王向飞]

你脚本怎么写的？

[叶子]

插入的sql语句什么样的？

[fky198947]

进货单ID是主键，自动递增，总价是自己算，进货日期也是自己得出
脚本应该没问题，我6个表的脚本都一样，就是改了连接部分，其他那些没有外键的表添加就正常。

这个是进货信息表的脚本

Private Sub cmd_geng_Click()
Adodc1.Recordset.Fields("数量") = Trim(Text2.Text)
Adodc1.Recordset.Fields("单价") = Trim(Text4.Text)
Adodc1.Recordset.Fields("经销商ID") = Trim(Text6.Text)
Adodc1.Recordset.Fields("商品ID") = Trim(Text8.Text)
Adodc1.Recordset.Fields("备注") = Trim(Text7.Text)
If cmd_geng.Caption = "保存" Then
MsgBox "保存成功"
cmd_geng.Caption = "更新"
Else
MsgBox "更新成功"
End If
Adodc1.Recordset.Update
cmd_tian.Enabled = True
cmd_shan.Enabled = True
cmd_qu.Enabled = False
End Sub

Private Sub cmd_qu_Click()
Adodc1.Recordset.CancelUpdate
cmd_tian.Enabled = True
cmd_shan.Enabled = True
cmd_qu.Enabled = False
cmd_geng.Caption = "更新"
End Sub

Private Sub cmd_shan_Click()
Dim res As Integer
res = MsgBox("确定要删除此行信息吗？", vbExclamation + vbYesNo + vbDefaultButton2)
If res = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
End If
End Sub

Private Sub cmd_tian_Click()
Adodc1.Recordset.AddNew
cmd_tian.Enabled = False
cmd_shan.Enabled = False
cmd_qu.Enabled = True
cmd_geng.Caption = "保存"
End Sub

Private Sub Command10_Click()
Me.Hide
Form2.Show
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
cmd_qu.Enabled = False
End Sub

[fky198947]

[Quote=引用 2 楼 maco_wang 的回复:]

插入的sql语句什么样的？
[/Quote]
就是在VB界面上插入的。出错，在企业管理器和查询分析器正常
我上图了

[billpu]

既然查询分析器插入是正常的,那估计是adodc的问题
建议去vb版问问吧

[fky198947]

VB版我也发了。。那里么人

[叶子]

进货单ID，总价，进货日期为什么不处理？

[fky198947]

[Quote=引用 7 楼 maco_wang 的回复:]
进货单ID，总价，进货日期为什么不处理？
[/Quote]
进货单ID是主键，自动递增，总价是自己算，进货日期也是自己得出
脚本应该没问题，我6个表的脚本都一样，就是改了连接部分，其他那些没有外键的表添加就正常。

[叶子]

是不是有外键约束，插入的数据不符合外键约束呀？

[fky198947]

[Quote=引用 9 楼 maco_wang 的回复:]
是不是有外键约束，插入的数据不符合外键约束呀？
[/Quote]
不是呀，同样的数据，企业管理器和查询分析器可以插入，表上就显示那个键列信息不足或不正确，不过数据还是进去了

[billpu]

会不会某个表单的name重复了 比如两个text4 嘿嘿

[叶子]

参考：
http://wenda.tianya.cn/wenda/thread?tid=6c2856eed0f5fa0a
http://blog.sina.com.cn/s/blog_4cd978f90100lx0u.html
http://www.alixixi.com/program/a/2009122359357.shtml

[fky198947]

[Quote=引用 11 楼 billpu 的回复:]
会不会某个表单的name重复了 比如两个text4 嘿嘿
[/Quote]
对头哦！！我试试！！

[fky198947]

[Quote=引用 12 楼 maco_wang 的回复:]
参考：
http://wenda.tianya.cn/wenda/thread?tid=6c2856eed0f5fa0a
http://blog.sina.com.cn/s/blog_4cd978f90100lx0u.html
http://www.alixixi.com/program/a/2009122359357.shtml
[/Quote]
看来就是重复的问题

[fky198947]

还有个问题哦，我主键是自动编号，但我把前面的信息都删了，如何让他从头开始编号啊？

[叶子]

[Quote=引用 15 楼 fky198947 的回复:]
还有个问题哦，我主键是自动编号，但我把前面的信息都删了，如何让他从头开始编号啊？
[/Quote]
先取消自增，取消主键，然后更新为从1开始，然后再添加为主键和自增列

[-晴天]

[Quote=引用 15 楼 fky198947 的回复:]
还有个问题哦，我主键是自动编号，但我把前面的信息都删了，如何让他从头开始编号啊？
[/Quote]
执行一下 TRUNCATE TABLE tablename 命令.

[-晴天]

另外,特别注意数据类型是否正确或能否转换.

[叶子]

[Quote=引用 15 楼 fky198947 的回复:]
还有个问题哦，我主键是自动编号，但我把前面的信息都删了，如何让他从头开始编号啊？
[/Quote]

/*
declare @table table (id int identity(1,1),col varchar(1))
insert into @table
select 5,'a' union all
select 6,'b' union all
select 9,'c'

--先取消自增列
*/
declare @table table (id int,col varchar(1))
insert into @table
select 5,'a' union all
select 6,'b' union all
select 9,'c'
declare @i int
set @i=0
update @table
set @i=id=@i+1

select * from @table
/*
id          col
----------- ----
1           a
2           b
3           c
*/