Adodc有关问题 大人来 送分

Adodc问题 大人来 送分
Adodc1.RecordSource   =   "Delete   From   档案著入   where   ID= "   &   CLng(Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,   1)))
Adodc1.Recordset.Requery

~用以上的怎么删除不了数据库的呀   只是MSHFlexGrid里的删除了

加Adodc1.Recordset.Delete只删除最后一条   并不删除我选定的

谢谢

[解决办法]
如果名称字段是字符类型应该改为:
Adodc1.Recordset.ActiveConnection.Execute "Delete From data where 名称= ' " & cStr(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) & " ' "

如果是数值型则上面的语句没错，应该是你的值不是数字引起不匹配。