双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

关于DataGrid的Update的问题

2003-12-23 11:43:53 162 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

iamsoweak 墨衍会员 · AI 创作全网分发关注 + 加入社区

GNSS第九周作业 ** GNSS第九周作业 ** 一、GPS控制网技术设计主要包括哪些内容。 1.GPS控制网技术设计的依据 GPS控制网的设计，以GPS测量规范和测量任务为依据。测量规范主要指国家、城市以及行业标准，测量任务则对网布设的范围、网的精度、密度、时间等提出具体要求。布网的设计既要符合有关标准，又要满足任务要求。主要分为（1）GPS测量规范（规程）：主要指国家、城市以及行业标准。（2）测量任务书：上级（... 阅读详情

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

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

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

...全文

XJTU_ 西安交通大学2020大学计算机作业-第九周 XJTU_ 西安交通大学2020大学计算机作业-第九周 XJTU_ 西安交通大学2020大学计算机作业-第九周注：11题有三个用例没通过，我觉得没问题，周三改。俺又更新了，还是求点星星???? 文章没上传到github，反正没人点星星：https://github.com/nobodyXX/XJTU_C_homework/blob/main/week7，如果这篇文章带给你了帮助或者灵感，欢迎给我点个星星，谢谢！！！第一题 "一个数组A中存有n（n>0）个整数，在不允许使用另外数组的前提下，将每个阅读详情

iamsoweak

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

好！！！！！！：）

✦双11狂欢大促✦

关于DataGrid的Update的问题

相关推荐

双11狂欢大促