高分急求：VB写的利用DataGrid编辑、修改、删除记录的源代码！！！
谁有Vb写的利用DataGrid编辑、修改、删除记录的完全源代码
特别是Updata功能能实现的源代码，
搞定之后立即给分！！！！！！！！！！！！！
问题点数：30、回复次数：13Top
1 楼wangsaokui（无间道ＩＩＩ(终极无间)C#MVP）回复于 2004-05-03 23:29:17 得分 0
http://expert.csdn.net/Expert/topic/3014/3014395.xml?temp=.4930231
第13章数据库部分Top
2 楼lxcc（）回复于 2004-05-03 23:45:22 得分 0
到www.asp.net下载一个Web Matrix,可以用他的模板作很多简单的DataGrid的例子Top
3 楼moo（累了也不要伸懒腰）回复于 2004-05-04 00:47:29 得分 5
不用代码的,设置好数据绑定之后,用数据适配器对Dataset Fill数据,Refresh 一下Datagrid就行啦.Top
4 楼qiushuangqun（探索是一种精神，值得表扬！）回复于 2004-05-04 07:02:14 得分 0
wangsaokui(无间道II(前传)) ：
我是下载下来了，可是我在13章里找不到有关DataGrid的源代码呀
并且我还找不到.aspx和.aspx.vb为后缀名的文件呀Top
5 楼qiushuangqun（探索是一种精神，值得表扬！）回复于 2004-05-04 07:12:46 得分 0
另外对于 moo(累了也不要伸懒腰)：
所说的“用数据适配器对Dataset Fill数据,Refresh 一下Datagrid就行“
不太了解呀 数据适配器在哪地方呀 我很菜呀 找不到
麻烦你把步骤说具体一点好么
我想赶快散分呀！！！！！！！Top
6 楼blue_apple（蓝苹果）回复于 2004-05-04 12:01:54 得分 0
upTop
7 楼moo（累了也不要伸懒腰）回复于 2004-05-04 13:26:28 得分 5
数据适配器在 工具箱/数据 中,用MS SQL的,选 SqlDataAdapter,用Access的,选 OleDbDataAdapter,按提示会自动生成SqlConnection(或OleConnection),对SqlDataAdapter击右键,选"生成数据集"一项,按提示执行可得到一个 Dataset,将此Dataset作为你的Datagrid的数据源,并在datagrid的数据成员中选择你所处理的表.执行
da.Fill(Ds, "YourTbl")
dg.Refresh()
便可显示原有数据(如果原来还没有数据,当然就没得显示啦).
添加:将光标移到datagrid最后一行(带*的),逐一输入.
修改:照改就行.
删除:移鼠标到行头,选中一行后按键盘上的 Del 键.
不过,你所做这些,还没有真正动到你的数据库,必须执行以下的语句(对象命名不同,你对着改一下):
Dim bm As BindingManagerBase
bm = Me.BindingContext(Ds, "YourTbl")
bm.EndCurrentEdit()
da.Update(Ds)
Ds.AcceptChanges()
Top
8 楼dragon1000（龙1000）回复于 2004-05-04 16:29:51 得分 5
试过了，还不行Top
9 楼moo（累了也不要伸懒腰）回复于 2004-05-04 17:14:34 得分 5
怎么个不行法?有出错信息吗?
Top
10 楼qiushuangqun（探索是一种精神，值得表扬！）回复于 2004-05-04 21:05:50 得分 0
该问题已解决：
结果请看http://expert.csdn.net/Expert/topic/3029/3029832.xml?temp=.9738123
的最后我的公布！Top
11 楼qiushuangqun（探索是一种精神，值得表扬！）回复于 2004-05-04 21:11:52 得分 0
另外我看 moo(累了也不要伸懒腰)老兄的数据适配器用的确实不错！
老实说我真的没用过.net自带的这种功能，都是自己写的代码，请问“moo(累了也不要伸懒腰)老兄“ 那种自己带的功能好用么，我总觉得好麻烦呀按它的提示，一步一步来，况却也不知道它到底要让作什么的
%我想具体是自己写代码，还是用窗体自带的功能方便，大家可以在这讨论一些？%Top
12 楼njhyh（小辉）回复于 2004-05-05 13:01:58 得分 5
是vb还是vb.net
vb.net如下：
添加可以直接在datagrid控件中进行操作，然后再刷新一次数据集就可以了。
更新也是这样就可以做的
如：
Me.OleDbDataAdapter1.Update(DataSetNumber)
MsgBox("Updata Success", MsgBoxStyle.OKOnly, "InforMation")
删除也可以用键盘的“delete”键进行操作。
如果用代码：如下：
'*******************删除单行代码模块*****************'
aa = DataGrid1.CurrentRowIndex
strsql = "delete TabelName where FieldName='" & DataGrid1.Item(aa, 0) & "'"
If DataGrid1.IsSelected(aa) = True Then
Dim mycommand As New System.Data.OleDb.OleDbCommand(strsql, OleDbConnection1)
OleDbConnection1.Open()
mycommand.ExecuteNonQuery()
bb = MsgBox("Delete", MsgBoxStyle.OKOnly, "InforMation")
If bb = 1 Then
Me.DataSetNumber.Clear()
Me.OleDbDataAdapter1.Fill(DataSetNumber, "TabelName")
End If
OleDbConnection1.Close()
End If
'****************************************************
如果要用文本框的话，如下：
这是我做的一个数据管理系统中的添加的代码：
sql = "insert into 用户表( 用户编号,姓名,密码,级别,电务段,检修所 ) values" & _
" ('" & CStr(Trim(txt用户编号.Text)) & "','" & CStr(Trim(txt用户名.Text)) & "'," & _
" '" & CStr(Trim(txt密码.Text)) & "','" & CStr(Trim(txt级别.Text)) & "'," & _
" '" & CStr(Trim(txt电务段.Text)) & "','" & CStr(Trim(txt检修所.Text)) & "')"
Dim MyCommand As New System.Data.OleDb.OleDbCommand(sql, OleDbConnection1)
myReader.Close()
MyCommand.ExecuteNonQuery()
MsgBox("添加成功", MsgBoxStyle.OKOnly, "提示信息")
Me.OleDbDataAdapter1.Update(DataSet21)
OleDbConnection1.Close()
修改的代码：
sql1"update 用户表 set 密码='" & txt密码.Text & "' " & _
" where 姓名='" & Comb用户名.Text & "'"
Dim MyCommand As New System.Data.OleDb.OleDbCommand（sql1, OleDbConnection1)
OleDbConnection1.Open()
MyCommand.ExecuteNonQuery()
MsgBox("修改成功")
Me.OleDbDataAdapter1.Update(DataSet21)
OleDbConnection1.Close()
删除的最上面就是了
Top
13 楼congcong213（congcong）回复于 2004-05-05 21:30:05 得分 5
如果用适配器好像只能队单表进行操作，如果连了多表，尤其是删除操作很麻烦。
有没有什么办法只能让它添加更新而不删除呢，datagrid里有没有这方面的什么属性，可以不删除只更改的？
Top
