****求ADO与DataGrid控件进行增删改查的例子（源代码）、易学会的，高分，马上就改给分!!***

[ysp128]

求ADO与DataGrid控件进行增删改查的例子（源代码）如果易学会的，高分，马上就改给分!!

最好是Access数据库的

我的邮箱是：[e-mail]

请您发到我邮箱中来

谢谢！！！

[heipifeng]

www.21code.com有很多，慢慢看把

[ysp128]

我找过了，不多的，更没有完整的。

[smilejiangjun]

你太懒了这种东西自己找本书看不就行了

[zj8086]

我很菜的都买了本书都搞定了，我认为你还是好好看看书吧。

[heipifeng]

什么书啊，介绍一下 啊。我也想看看

[laisiwei]

去www.dapha.net/down看看

[ysp128]

我也知道买书呀！
可是我没钱啊！

[ysp128]

谁知道有好的书介绍几本也行呀！

[blackapple8]

给你，看一看，可以了吧
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRS.Recordset.MoveLast
grdDataGrid.SetFocus
SendKeys "{down}"

Exit Sub
AddErr:
MsgBox Err.Description
End Sub

Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub

Private Sub cmdRefresh_Click()

On Error GoTo RefreshErr
datPrimaryRS.Refresh
Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub

Private Sub cmdUpdate_Click()

On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
具体你自己再斟酌

[ysp128]

起不了作用呀！

[smilejiangjun]

我告诉你一个非常简单而且不用花钱的办法保证成功
那就是是用vb的数据库向导生成代码
使用表格方式这样就能达到你的效果了

[smilejiangjun]

不管你是连接sql server还是access都能够成功
这个方法很简单
但是我个人不太建议使用数据库向导，做得不太好
而且数据库向导使用的是datagrid这个控件的bug不少我不太喜欢用

[ysp128]

向导在那里？

[ysp128]

MSFlexGrid控件的例子也行

[valleyecho]

Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
上面的代碼中有一個地方可能會出錯哦
"If .EOF Then .MoveLast"
如果刪除的是recordset中的最后一條紀錄,那么"MoveLast"就會出錯

[lixiao_66]

妳可以先用ＡＤＯＤＣ這個控件,連接ＤＡＴＡＧＲＩＤ,然后妳就可以知道如何用ＡＤＯ拉

[ysp128]

ADO我是会用的了
就是DATAGRID里一些不会用。

[chenyu5188]

UP