1180
社区成员
- 主页
用cnn.Execute "up 如何更新mdb里的最后一条记录
用cnn.Execute "up 如何更新mdb里的最后一条记录，where iD=? ID我不知道等于几。
功能：当程序开始后，条件1满足时先向数据库里追加资料，条件2满足时，更新最后一条记录。
重复开始：条件1满足时先向数据库里追加资料，条件2满足时，更新最后一条记录。
功能：当程序开始后，条件1满足时先向数据库里追加资料，条件2满足时，更新最后一条记录。
重复开始：条件1满足时先向数据库里追加资料，条件2满足时，更新最后一条记录。
...全文
请发表友善的回复…
发表回复
a_cer 2004-10-06
一定要用 execute吗？
通过 rs.movelast 不是一样可以！
通过 rs.movelast 不是一样可以！
haohaohappy 2004-10-06
last函数拉
vbman2003 2004-10-06
Access有个last函数，可以取最后一条记录：
Update TableName
Set iName = 'abc'
Where id in (Select Last(id) From TableName)
Update TableName
Set iName = 'abc'
Where id in (Select Last(id) From TableName)
victorycyz 2004-10-06
首先取最后一条记录的ID
Dim rs As New ADODB.Recordset
dim i as long
rs.CursorLocation = adUseClient
rs.Open "select top 1 ID from tablename order by id desc",db
if rs.RecordCount>0 then
i=rs!ID '这个i就是最后一条的ID了
end if
tztz520 2004-10-06
首先取最后一条记录的ID
Dim rs As New ADODB.Recordset
dim i as long
rs.CursorLocation = adUseClient
rs.Open "select ID from tablename order by id",db
if rs.RecordCount>0 then
rs.MoveLast
i=rs.Fields(0).Value'这个i就是最后一条的ID了
end if
Dim rs As New ADODB.Recordset
dim i as long
rs.CursorLocation = adUseClient
rs.Open "select ID from tablename order by id",db
if rs.RecordCount>0 then
rs.MoveLast
i=rs.Fields(0).Value'这个i就是最后一条的ID了
end if
ryuginka 2004-10-06
你的想法不错,不过执行效率不高的.你还要考虑临界状态啊,比如没有数据.
dandelionl 2004-10-06
自己想了一种
cnn.Execute "update sheet1 set js_time='" & d & " '
Where ID = (select max(ID) from sheet1) "
接着问－－程序里如何得到右下角的已上网 那个连接时间 http://community.csdn.net/Expert/topic/3426/3426724.xml?temp=.811886
cnn.Execute "update sheet1 set js_time='" & d & " '
Where ID = (select max(ID) from sheet1) "
接着问－－程序里如何得到右下角的已上网 那个连接时间 http://community.csdn.net/Expert/topic/3426/3426724.xml?temp=.811886