ado的老問題,高手來拿分啦.....在線等待

Question

可以试一试连接进使用adUseServer,和服务器保持实时的更新,打开记录集时用adLockKeyset

Answer 1

adUseServer改過來了可還是不行啊我在刪除時等待三秒有時也不行但我在新增後等待三秒最後新增的一條就是不能參與運算
後面那個是我現在用的設定值
還有知道的嗎多說兩句啊

Answer 2

我不僅refresh還update
都沒用

Answer 3

用动态基型对象（dynaset-type)

Answer 4

能詳細說一下嗎?
這是個什麼東西dynaset-type

Answer 5

“刪掉一條記錄表格上還顯示但實際不在了”——你仅仅在数据库中删除并刷新记录而在显示数据的控件中没有刷新当然表格上的记录还在了。
例子：表单上用ListView控件为数据库的显示控件
lstItem% = ListView1.SelectedItem.Index
myrecorder.MoveFirst
myrecorder.Move lstItem - 1  '在数据表中将位置指针移到相应的地方
If myrecorder.EOF Or recorder.BOF Then
   MsgBox "所进行的操作已超过数据库范围,请重新操作！", vbOKOnly, "超出范围"
   myrecorder.MoveFirst
End If       
str = rs_area.Fields("日期") & "  " & rs_area.Fields("值班员") & "  " & rs_area.Fields("时间") _
      & "  " & rs_area.Fields("文件名") & "  " & rs_area.Fields("报量(KB)") & "  " & rs_area.Fields("报文处理情况")
msg = "当前记录是：" & Chr(13) & Chr(10) & "“" & str & "”" & Chr(13) & Chr(10) _
      & Chr(13) & Chr(10) & "确实要删除该记录吗？"
resp = MsgBox(msg, vbYesNo, "删除记录")
If resp = vbYes Then
   myrecordset.Delete
   myrecordset.Update
   ListView1.ListItems.Remove lstItem    '删除listview中的记录
   ListView1.Refresh                     '更新
End If这样你的ListView1中的记录就你的实际表中的记录一致了。
“新增的最後一條記錄每次不能參與記錄集的運算”——你在控件中增加了记录而数据库没有更新吧，或者更新失败而你没有相应的错误报告。
例子：
myrecordset是已经打开的表的相应的记录集，表单中Text1,Text2,Text3是新加的记录的字段
myrecordset.AddNew                          '数据添加
myrecordset.Fields("字段1") = Text1.Text
myrecordset.Fields("字段2") = CLng(Text2.Text)  '假设字段2是long型
myrecordset.Fields("字段3") = Text3.Text
myrecordset.Update'更新状态检验
Select Case myrecordset.Status
    Case adRecInvalid
       MsgBox "输入记录无效", vbInformation, "数据库更新失败"
       Exit Sub
    Case adRecCantRelease
       MsgBox "数据库记录被锁定，无法更新！", vbInformation, "数据锁定"
       Exit Sub
    Case adRecOutOfMemory
       MsgBox "内存不足，无法完成指定的操作", vbInformation, "内存不足"
       Exit Sub
    Case adRecPermissionDenied
       MsgBox "无更改数据库权，请与系统管理员联系！", vbInformation, "无权操作"
       Exit Sub
End Select本例子没有包含输入记录的有效性检验。

Answer 6

我用的datagrid已經與ado關聯,
當我刷新ado後我也將datagrid
刷新過還是無效
最主要是我的ado
內最後新增一條記錄不能參與運算,.....慘