2024年3月26日发(作者：)
中利用datagrid更新数据
来源：发布时间：2008-11-13
和 sql server2000程序：
Imports ‘引用类
Public Class Form1
Inherits
Dim sqlconn As New
nection("Server=localhost;DataBase=student;integrated
security=true;") ’定义sqlconn为SqlConnection类一个连接
Dim adapter As SqlDataAdapter ‘定义数据适配器
Dim ds As DataSet ’定义数据集
‘窗体代码略
Private Sub Form1_Load(ByVal sender As , ByVal e As
rgs) Handles
Try
’select语句中一定要包含主键字段，否则无法更新；在表stuinf中，字
段stuno是主键
adapter = New SqlDataAdapter("select stuno'学号',stuname'姓名' from
stuinf", sqlconn)
ds = New DataSet
(ds, "student") '往适配器中添加数据集，表名为student
aBinding(ds, "student") '把datagrid控件绑定数据集
Catch sqlExc As Exception '异常处理
(ng, "SQL 异常错误!", _
, )
Exit Sub
End Try
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As
rgs) Handles
Try
Dim cBuilder As New SqlCommandBuilder(adapter) '创建一个
CommandBuilder对象
Command = ateCommand '为数据适配器
adapter的更新命令赋值
(ds, "student") '更新数据集
() '清空当前数据集
(ds, "student") '重新绑定数据适配器
aBinding(ds, "student") '在datagrid中显示更新后数
据
1
MsgBox("更新数据成功！", , "请确认") '提示更新数
据成功
Catch sqlExc As Exception '异常处理
(ng, "SQL 异常错误!", _
, )
Exit Sub
End Try
End Sub
End Class
1 填充的数据集中的数据表一定要包含原表(要更新的表)的主键，即
select语句中一定要包含主键字段，否则无法更新；
2 commandbuilder类只能在datatable映射到单个数据表的时候使用。这
意味着如果数据库查询的是两个或者更多的表的联接，就不能使用
commandbuilder类；
3 在本例子中，字段stuno'学号'是主键，假如用户更改学号，导致有两个
一样的学号时，异常处理会提示“不能插入重复值”，这时更新失败。
以下是另一个Access和
PublicClassForm1
DimadapterAsOleDbDataAdapter
DimdsAsNewDataSet()
DimmyconnAsOleDbConnection
DimOLEBAsOleDbCommandBuilder
PrivateSubForm1_Load(,
rgs)
DimconstrAsString="provider=;datasource="&pPath&"te
"
DimsqlstrAsString="select*fromman"
DimmyconnAsNewOleDbConnection(constr)
DimmycommAsNewOleDbCommand(sqlstr,myconn)
()
adapter=NewOleDbDataAdapter(sqlstr,myconn)
(ds,"man")
urce=("man")
OLEB=NewOleDbCommandBuilder(adapter)
'获取或设置指定其名称包含空格或保留标记等字符的数据库对象（例如，
表或列）时使用的开始字符
refix="["
uffix="]"
EndSub
PrivateSubButton1_Click(,
1
ntArgs)
(ds,"man")
EndSub
EndClass
1
发布评论