关于DataGrid的Update的问题

iamsoweak 2003-12-23 11:43:53

我在VB里用DATAGRID显示了一个表格(是一个SQL语句查询出的结果)

想要:
在修改表格的内容之后点击"修改"按钮,弹出"是否确定修改"MSGBOX,选"是"后按照DATAGRID中的内容UPDATE数据库,完成数据库的更新

问题是:
DATAGRID的ALLOWUPDATE属性为TRUE时,它对数据库的更新是时时的,怎么才能实现我上面所说的功能呢?
如果根本不可能用DataGrid实现,那么该用什么控件来做?

...全文

76 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yoki 2003-12-23

打赏
举报

回复

该范例连同 CancelBatch 方法说明 UpdateBatch 方法。

Public Sub UpdateBatchX()

Dim rstTitles As ADODB.Recordset
Dim strCnn As String
Dim strTitle As String
Dim strMessage As String

' 将连接字符串赋值给变量。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set rstTitles = New ADODB.Recordset
rstTitles.CursorType = adOpenKeyset
rstTitles.LockType = adLockBatchOptimistic
rstTitles.Open "titles", strCnn, , , adCmdTable

rstTitles.MoveFirst

' 对记录集执行循环并询问用户是否要更改指定标题的类型。
Do Until rstTitles.EOF
If Trim(rstTitles!Type) = "psychology" Then
strTitle = rstTitles!Title
strMessage = "Title: " & strTitle & vbCr & _
"Change type to self help?"

If MsgBox(strMessage, vbYesNo) = vbYes Then
rstTitles!Type = "self_help"
End If
End If

rstTitles.MoveNext
Loop

' 询问用户是否要提交以上所作的全部更改。
If MsgBox("Save all changes?", vbYesNo) = vbYes Then
rstTitles.UpdateBatch
Else
rstTitles.CancelBatch
End If

' 打印记录集中的当前数据。
rstTitles.Requery
rstTitles.MoveFirst
Do While Not rstTitles.EOF
Debug.Print rstTitles!Title & " - " & rstTitles!Type
rstTitles.MoveNext
Loop

' 恢复原始值，因为这只是演示。
rstTitles.MoveFirst
Do Until rstTitles.EOF
If Trim(rstTitles!Type) = "self_help" Then
rstTitles!Type = "psychology"
End If
rstTitles.MoveNext
Loop
rstTitles.UpdateBatch

rstTitles.Close

End Sub

iamsoweak 2003-12-23

打赏
举报

回复

这个"批更新处理"是什么东西啊?小弟是个新手,请您讲的具体一点:)

victorycyz 2003-12-23

打赏
举报

回复

用批更新处理。

myhwlj 2003-12-23

打赏
举报

回复

好！！！！！！：）

一个update扩展方法文档中一种是比较笨的方法一次只能修改一个列而且受列编辑类型影响（比如number datetime）扩展一次编辑多列，不受编辑类型影响，没有编辑属性也可以。

wpf通过datagrid操作数据库，实现datagrid增删改操作。

一行代码搞定Oracle + DataGridView的增删改查图文教程操练环境 VS2010 sp1 + c# + Oracle + Win10 代码如下： using System; using System.Windows.Forms; using System.Data; namespace KEZZ { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { } private void button1_Click(object sender, EventArgs e) { // TODO: 这行代码将数据加载到表“ds_kezz.dt_KEZZ”中。您可以根据需要移动或删除它。 this.dt_KEZZTableAdapter.Fill(this.ds_kezz.dt_KEZZ); } private void button2_Click(object sender, EventArgs e) { //插入一行 DataRow dr = ds_kezz.dt_KEZZ.Rows.Add("5217"); } private void button3_Click(object sender, EventArgs e) { //删除选中的行 dataGridView1.Rows.RemoveAt(dataGridView1.CurrentRow.Index); } private void button4_Click(object sender, EventArgs e) { //保存数据 dt_KEZZTableAdapter.Update(ds_kezz.dt_KEZZ); } private void dataGridView1_RowStateChanged(object sender, DataGridViewRowStateChangedEventArgs e) { //加行号 e.Row.HeaderCell.Value = (e.Row.Index + 1).ToString(); } } }

ui: 代码如下:

<asp:ImageButton ID=”imgUpdate” CommandName=”update” ToolTip=”Update” ImageUrl=”~/App_Themes/Images/edit.png” runat=”serve

This example shows how you can use OleDbSchemaGuid in ADO.NET to fetch Schema information from database. It also shows, how you can use DataGrid control, to fill records from dataset, and also how to update records from DataGrid to database using OleDbDataAdapter and OleDbCommandBuilder. In this example List box is filled with Table names of a Specified Database, and by clicking on the table name, you can fill records in the DataGrid. The wonder of the ADO.NET is that it is total disconnected scenario, and this helps a lot in Web Applications.

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

社区管理员

近7日
近30日
至今

加载中

查看更多榜单

试试用AI创作助手写篇文章吧

+ 用AI写文章