| 查看: 2509 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？ 已有2人参与
|
|||
| vb.net的DataGridView如何编辑后保存到数据库中？我现在已经实现数据表在DataGridView中显示了，可随便对一个单元格进行编辑后却无法保存到原来的Access数据表中，求高手指点，给一段代码？谢谢！ 给段VB代码也行啊！ |
回复此楼» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有73人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
-
招聘 金属平磨液，抛光液研发工程师
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这句话有什么语法错误啊？（从文献里摘录的实验步骤，编辑说有错误,很郁闷啊）
已经有12人回复
- “核心,CA,Р.Ж.,中国科学引文数据库”分别是什么意思啊
已经有6人回复
- 跪求能用微谱数据库的虫子们，帮忙查一下碳谱数据，本人送6个金币！！！
已经有7人回复
- [求助]哪位好人学校可以使用微谱数据库，帮我检索几个化合物的母核。谢谢！
已经有4人回复
- 鸟瞰密度泛函理论中文版(A_Bird's-Eye_View_of_Density-Functional_Theory)
已经有952人回复
- 在科研过程中如何验证自己编译程序的正确性
已经有3人回复
- 参考文献来自两个Endnote数据库，更新是否会出问题？
已经有6人回复
- 如何用VB调用出Access中的数据库？
已经有4人回复
- 关于endnote 数据库转移的问题
已经有9人回复
- 【求助】Gaussview可以直接导入Chem3D保存的Gauss/Gif文件吗？
已经有7人回复
|
Private conn As OleDb.OleDbConnection = Nothing Private comm As OleDb.OleDbCommand = Nothing Private CB As OleDb.OleDbCommandBuilder Private Adapter As OleDb.OleDbDataAdapter Public Sub updataTable(ByVal constr As String, ByVal pubtable As DataTable, ByVal selectformstr As String) conn = New OleDb.OleDbConnection(constr) conn.Open() comm = New OleDb.OleDbCommand Adapter = New OleDb.OleDbDataAdapter comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = selectformstr Adapter.SelectCommand = comm CB = New OleDb.OleDbCommandBuilder(Adapter) CB.QuotePrefix = "[" CB.QuoteSuffix = "]" If CB Is Nothing Then CB.DataAdapter = New OleDb.OleDbDataAdapter Adapter.DeleteCommand = CB.DataAdapter.DeleteCommand Adapter.InsertCommand = CB.DataAdapter.InsertCommand Adapter.UpdateCommand = CB.DataAdapter.UpdateCommand End If Dim temptb As DataTable Dim DR As DialogResult temptb = pubtable.GetChanges() If temptb IsNot Nothing Then DR = MsgBox("数据已改变，是否要保存?", MsgBoxStyle.YesNo, "提示"  If DR = Windows.Forms.DialogResult.Yes Then Adapter.Update(pubtable) MsgBox("更新成功", MsgBoxStyle.DefaultButton1, "提示" Else : Exit Sub End If Else : Exit Sub End If conn.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click updataTable("provider=Microsoft.jet.oledb.4.0;Data source= AAA.mdb", AAADataSet1.Tables("huaxue" , "应填什么SQL语句"End Sub 我是一个菜鸟 红字部分应该填什么啊？谢谢！ |
7楼2011-05-21 22:36:04
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
2楼2011-03-05 01:04:38
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:49:40
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:49:40
|
我是这样编写的 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim Adapter As New OleDb.OleDbDataAdapter("Select * From huaxue ", AAADataSet1) Dim Bulid As New OleDb.OleDbCommandBuilder(Adapter) Try shujubiaoadapter.Update(DataGridView1.DataSource) 'Recorder.Update(Dt, "Db " 'Dt.AcceptChanges() Catch ex As Exception Console.WriteLine(ex.Message) MsgBox("数据保存失败! " & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical) Finally shujubiaoadapter.Dispose() Bulid.Dispose() End Try End Sub End Class 然后出现错误 1 重载决策失败，原因是没有可访问的“New”可以用这些参数调用: 'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': 类型“数据库_实验.AAADataSet1”的值无法转换为“System.Data.OleDb.OleDbConnection”。 'Public Sub New(selectCommandText As String, selectConnectionString As String)': 类型“数据库_实验.AAADataSet1”的值无法转换为“String”。 F:\复件 复件 数据库-实验oo\画图-实验\Form1.vb 228 13 数据库-实验 这是怎么回事？该如何解决？ |
3楼2011-03-05 09:22:47
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
4楼2011-03-07 20:24:31
