private rs as new adodb.recordset
Private Sub Form_Load()rs.Fields.Append "ID", adVarChar, 50
rs.Fields.Append "Name", adVarChar, 50
rs.openset me.datagrid1.datasource=rs
'可能是這個東西搞的鬼呀.不知道如何是好了.end subPrivate Sub Command1_Click()
rs.AddNew
rs.Fields(0) = "ddd"
rs.Fields(1) = "ddd"
MsgBox rs.recordcountEnd SubPrivate Sub Command2_Click()
If (Not rs.EOF) And (Not rs.BOF) And rs.RecordCount > 0 Then
rs.Delete
If rs.RecordCount > 0 Then
rs.MoveLast
End If
MsgBox rs.RecordCount
End If
End Sub
在這里我先點 command1 click 結果 1
然後 command2 click 結果 0
再 command1 click 結果 0 (這不正確呀)
再 command1 click 結果 0 (這不正確呀)有沒有人能給我講一下如何讓我點一下command1 結果變為正確的.
Private Sub Form_Load()rs.Fields.Append "ID", adVarChar, 50
rs.Fields.Append "Name", adVarChar, 50
rs.openset me.datagrid1.datasource=rs
'可能是這個東西搞的鬼呀.不知道如何是好了.end subPrivate Sub Command1_Click()
rs.AddNew
rs.Fields(0) = "ddd"
rs.Fields(1) = "ddd"
MsgBox rs.recordcountEnd SubPrivate Sub Command2_Click()
If (Not rs.EOF) And (Not rs.BOF) And rs.RecordCount > 0 Then
rs.Delete
If rs.RecordCount > 0 Then
rs.MoveLast
End If
MsgBox rs.RecordCount
End If
End Sub
在這里我先點 command1 click 結果 1
然後 command2 click 結果 0
再 command1 click 結果 0 (這不正確呀)
再 command1 click 結果 0 (這不正確呀)有沒有人能給我講一下如何讓我點一下command1 結果變為正確的.
解决方案 »
- EnumProcessModules怎么用?
- Myjian:我想利用 filedisk 做一个虚拟光驱 可否指点下
- 麻烦大家来帮我看看代码哪里有错误
- 用webbrower打开网页(网页上有frame),想取某一frame上连接,并点击,如何实现?
- !!!!怎样为托盘右键菜单的左边添加一个图标呢
- 如何给其它程序的无图标窗体添加最小化按钮?
- 在VB中执行SQLServer存储过程时,如何获取存储过程的输出参数???
- 想问一下VB 6.0 中的锁定控件(我没分了)
- 如何用SQL实现这样的统计功能?
- 怎样截取IE中被选中的字符串的值?
- 使用Winsock控件在服务器端接受多个请求为什么出问题????急
- 请问各位大虾,侦测多屏幕的API函数是什么,怎么用啊
rs.AddNew
rs.Fields(0) = "ddd"
rs.Fields(1) = "ddd"
rs.update
MsgBox rs.recordcountEnd SubPrivate Sub Command2_Click()
If (Not rs.EOF) And (Not rs.BOF) And rs.RecordCount > 0 Then
rs.Delete
rs.update
If rs.RecordCount > 0 Then
rs.MoveLast
End If
MsgBox rs.RecordCount
End If
End Sub你的两个rs.update都没有加呀
Private Sub Form_Load()
rs.CursorLocation=adUseclient'使用客户端游标
rs.CursorType=AdOpenDynamic
rs.LockType=adLockOptimistic
rs.Fields.Append "ID", adVarChar, 50
rs.Fields.Append "Name", adVarChar, 50
rs.openset datagrid1.datasource=rs
datagrid1.refreshend subPrivate Sub Command1_Click()
rs.AddNew
rs.Fields(0) = "ddd"
rs.Fields(1) = "ddd"
rs.update'要更新才有用的
rs.movelast
rs.movefirst
MsgBox rs.RecordCount
End SubPrivate Sub Command2_Click()
If (Not rs.EOF) And (Not rs.BOF) Then
rs.Delete
If rs.RecordCount > 0 Then
rs.MoveLast
End If
MsgBox rs.RecordCount
End If
End Sub
应该有rs.update
"应该有rs.update"這個東西俺早就試過了.
不管用!!!!!!!!!!!!!!!!!!!!!不知道你回貼子的時候有沒有試下下這個怪像/
還有那個
datagrid1.refresh也不行呀看看哪裡有沒有高人呀?
來幫個忙.
搂住的情况是真实的我解决的办法是
当点击Command2 删除完纪录后
点击Command1添加一条记录,然后双击DataGrid控件,再点击Command1,你会发现.............
请在rs.recordcount之前用以下两语句,才能得到正确的记录数。
rs.movefirst
rs.movelast
作为良好的习惯rs.Update应该添加,但本例可不加Private rs As New ADODB.RecordsetPrivate Sub Form_Load()rs.Fields.Append "ID", adVarChar, 50
rs.Fields.Append "Name", adVarChar, 50
rs.openSet Me.DataGrid1.DataSource = rsEnd SubPrivate Sub Command1_Click()rs.AddNew
rs.Fields(0) = "ddd"
rs.Fields(1) = "ddd"' rs.UpdateMsgBox rs.RecordCountEnd SubPrivate Sub Command2_Click()
If (Not rs.EOF) And (Not rs.BOF) And rs.RecordCount > 0 Then
rs.Delete
If rs.RecordCount > 0 Then
rs.MoveLast
End If'***********加上这句**************
rs.MoveFirst
'******************************** MsgBox rs.RecordCount End If
End Sub