版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

zzahkj

木蟲 (著名寫手)

龍

應(yīng)助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

[交流] 【求助】vb.net的DataGridView如何編輯后保存到Access數(shù)據(jù)庫中？已有2人參與

vb.net的DataGridView如何編輯后保存到數(shù)據(jù)庫中？我現(xiàn)在已經(jīng)實現(xiàn)數(shù)據(jù)表在DataGridView中顯示了，可隨便對一個單元格進行編輯后卻無法保存到原來的Access數(shù)據(jù)表中，求高手指點，給一段代碼？謝謝！給段VB代碼也行啊！

回復(fù)此樓

» 猜你喜歡

311求調(diào)劑已經(jīng)有4人回復(fù)
304求調(diào)劑已經(jīng)有4人回復(fù)
354求調(diào)劑已經(jīng)有7人回復(fù)
321求調(diào)劑已經(jīng)有3人回復(fù)
274求調(diào)劑已經(jīng)有5人回復(fù)
281求調(diào)劑（0805）已經(jīng)有15人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有8人回復(fù)
能源材料化學課題組招收碩士研究生8-10名已經(jīng)有10人回復(fù)
267一志愿南京工業(yè)大學0817化工求調(diào)劑已經(jīng)有8人回復(fù)
328求調(diào)劑，英語六級551，有科研經(jīng)歷已經(jīng)有10人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

這句話有什么語法錯誤��？（從文獻里摘錄的實驗步驟，編輯說有錯誤,很郁悶�。� 已經(jīng)有12人回復(fù)
“核心,CA,Р.Ж.,中國科學引文數(shù)據(jù)庫”分別是什么意思啊已經(jīng)有6人回復(fù)
跪求能用微譜數(shù)據(jù)庫的蟲子們，幫忙查一下碳譜數(shù)據(jù)，本人送6個金幣！�。� 已經(jīng)有7人回復(fù)
[求助]哪位好人學校可以使用微譜數(shù)據(jù)庫，幫我檢索幾個化合物的母核。謝謝！已經(jīng)有4人回復(fù)
鳥瞰密度泛函理論中文版(A_Bird's-Eye_View_of_Density-Functional_Theory) 已經(jīng)有952人回復(fù)
在科研過程中如何驗證自己編譯程序的正確性已經(jīng)有3人回復(fù)
參考文獻來自兩個Endnote數(shù)據(jù)庫，更新是否會出問題？已經(jīng)有6人回復(fù)
如何用VB調(diào)用出Access中的數(shù)據(jù)庫？已經(jīng)有4人回復(fù)
關(guān)于endnote 數(shù)據(jù)庫轉(zhuǎn)移的問題已經(jīng)有9人回復(fù)
【求助】Gaussview可以直接導(dǎo)入Chem3D保存的Gauss/Gif文件嗎？已經(jīng)有7人回復(fù)

不要迷戀哥，哥只是一個過客！

1樓 2011-03-04 20:04:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應(yīng)助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
余澤成(金幣+2): 謝謝應(yīng)助！ 2011-03-07 21:55:46

ado鏈接數(shù)據(jù)庫
修改后update就行了,你得用sql語句

贊一下(2人)

回復(fù)此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

2樓2011-03-05 01:04:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應(yīng)助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

★
dubo(金幣+1): 歡迎常來程序語言版討論 2011-07-31 13:49:40

引用回帖:

Originally posted by libralibra at 2011-03-05 01:04:38:
ado鏈接數(shù)據(jù)庫
修改后update就行了,你得用sql語句

我是這樣編寫的
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("數(shù)據(jù)保存失敗! " & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical)
      Finally
         shujubiaoadapter.Dispose()
         Bulid.Dispose()

      End Try
End Sub
End Class
然后出現(xiàn)錯誤 1 重載決策失敗，原因是沒有可訪問的“New”可以用這些參數(shù)調(diào)用:
'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': 類型“數(shù)據(jù)庫_實驗.AAADataSet1”的值無法轉(zhuǎn)換為“System.Data.OleDb.OleDbConnection”。
'Public Sub New(selectCommandText As String, selectConnectionString As String)': 類型“數(shù)據(jù)庫_實驗.AAADataSet1”的值無法轉(zhuǎn)換為“String”。 F:\復(fù)件復(fù)件數(shù)據(jù)庫-實驗oo\畫圖-實驗\Form1.vb 228 13 數(shù)據(jù)庫-實驗
這是怎么回事？該如何解決？

贊一下(1人)

回復(fù)此樓

不要迷戀哥，哥只是一個過客！

3樓2011-03-05 09:22:47

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應(yīng)助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
余澤成(金幣+3): 辛苦了！ 2011-03-07 21:56:05

給你一段我過去的vb代碼,vb連接access的,用adodb,很方便
代碼比較丑陋,湊合看吧,是個自用的通訊錄程序
txl是表名,Mobile,QQ,MSN...都是字段名稱

CODE:

'將列表框內(nèi)容逐項加入數(shù)據(jù)庫,創(chuàng)建更新sql字串

sqlString = "update txl set Mobile='" & Trim$(txt(1).Text) & "',QQ='" & _     Trim$(txt(2).Text) & "',MSN='" & Trim$(txt(3).Text) & "',Email='" & Trim$(txt(4).Text) & "',Phone='" _     & Trim$(txt(5).Text) & "',Home='" & Trim$(txt(6).Text) & "',Birthday='" & txt(7).Text & "',Address='" _     & Trim$(txt(8).Text) & "',Postcode='" & Trim$(txt(9).Text) & "',Info='" & Trim$(txt(10).Text) & _     "' where Name='" & Trim$(ListView1.ListItems.Item(SelectIndex).Text) & "'" 

'更新記錄

Set rs = conn.Execute(sqlString, , adCmdText)

要創(chuàng)建全局變量

CODE:

Dim conn As ADODB.Connection '數(shù)據(jù)庫連接

然后form在load的時候打開鏈接,可以操作數(shù)據(jù)庫

CODE:

'連接無密碼數(shù)據(jù)庫

Set conn = New ADODB.Connection

    conn.ConnectionString = _

        "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=" & dbName & ";" & _

        "Persist Security Info=False"

'打開連接

conn.Open

[ Last edited by libralibra on 2011-3-7 at 20:29 ]

贊一下(2人)

回復(fù)此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

4樓2011-03-07 20:24:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應(yīng)助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

引用回帖:

Originally posted by libralibra at 2011-03-07 20:24:31:
給你一段我過去的vb代碼,vb連接access的,用adodb,很方便
代碼比較丑陋,湊合看吧,是個自用的通訊錄程序
txl是表名,Mobile,QQ,MSN...都是字段名稱

[code]'將列表框內(nèi)容逐項加入數(shù)據(jù)庫,創(chuàng)建更新sql字串
sqlS ...

謝謝你的回答，可是我想在DataGridView上直接修改數(shù)據(jù)然后通過按鈕保存到原來的數(shù)據(jù)庫上，我不知道該如何做？我剛接觸這個，還很菜！

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個過客！

5樓2011-03-07 23:06:58

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應(yīng)助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2011-03-10 14:15:59

引用回帖:

Originally posted by zzahkj at 2011-03-07 23:06:58:
謝謝你的回答，可是我想在DataGridView上直接修改數(shù)據(jù)然后通過按鈕保存到原來的數(shù)據(jù)庫上，我不知道該如何做？我剛接觸這個，還很菜！

你看我保存那段創(chuàng)建sql語句,你根據(jù)datagridview創(chuàng)建你的sql后
加入按鈕事件調(diào)用

CODE:

'將列表框內(nèi)容逐項加入數(shù)據(jù)庫,創(chuàng)建更新sql字串

sqlString = "update txl set Mobile='" & Trim$(txt(1).Text) & "',QQ='" & _     Trim$(txt(2).Text) & "',MSN='" & Trim$(txt(3).Text) & "',Email='" & Trim$(txt(4).Text) & "',Phone='" _     & Trim$(txt(5).Text) & "',Home='" & Trim$(txt(6).Text) & "',Birthday='" & txt(7).Text & "',Address='" _     & Trim$(txt(8).Text) & "',Postcode='" & Trim$(txt(9).Text) & "',Info='" & Trim$(txt(10).Text) & _     "' where Name='" & Trim$(ListView1.ListItems.Item(SelectIndex).Text) & "'"

'更新記錄

Set rs = conn.Execute(sqlString, , adCmdText)

贊一下(2人)

回復(fù)此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

6樓2011-03-08 04:50:57

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應(yīng)助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

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("數(shù)據(jù)已改變，是否要保存?", 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"

, "應(yīng)填什么SQL語句"

End Sub

我是一個菜鳥紅字部分應(yīng)該填什么�。恐x謝！

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個過客！

7樓2011-05-21 22:36:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應(yīng)助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

引用回帖:

Originally posted by libralibra at 2011-03-08 04:50:57:
你看我保存那段創(chuàng)建sql語句,你根據(jù)datagridview創(chuàng)建你的sql后
加入按鈕事件調(diào)用

[code]'將列表框內(nèi)容逐項加入數(shù)據(jù)庫,創(chuàng)建更新sql字串
sqlString = "update txl set Mobile='" & Trim$(txt(1 ...

看上面的問題幫我解決一下謝謝

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個過客！

8樓2011-05-21 22:38:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 zzahkj 的主題更新

返回列表

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 281求調(diào)劑（0805） +6	煙汐憶海 2026-03-16	15/750	2026-03-18 21:12 by Gaodh_82
[考研] 267一志愿南京工業(yè)大學0817化工求調(diào)劑 +8	SUICHILD 2026-03-12	8/400	2026-03-18 20:55 by winsuccess
[考研] 【同濟軟件】軟件（085405）考研求調(diào)劑 +3	2026eternal 2026-03-18	3/150	2026-03-18 19:09 by 搏擊518
[考研] 求材料調(diào)劑 +7	隔壁陳先生 2026-03-12	7/350	2026-03-18 16:14 by 楓橋ZL
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 070300化學319求調(diào)劑 +6	錦鯉0909 2026-03-17	6/300	2026-03-18 13:22 by Iveryant
[考研] 302求調(diào)劑 +10	呼呼呼。。。。 2026-03-17	10/500	2026-03-18 12:45 by Linda Hu
[考研] 288求調(diào)劑，一志愿華南理工大學071005 +4	ioodiiij 2026-03-17	4/200	2026-03-18 12:36 by Linda Hu
[考研] 0854，計算機類招收調(diào)劑 +3	胡辣湯放糖 2026-03-15	6/300	2026-03-18 12:09 by 上岸上岸……..
[考研] 307求調(diào)劑 +3	冷笙123 2026-03-17	3/150	2026-03-18 09:55 by macy2011
[考研] 334求調(diào)劑 +3	志存高遠意在機?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 293求調(diào)劑 +11	zjl的號 2026-03-16	16/800	2026-03-18 08:10 by zhukairuo
[考研] 308求調(diào)劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考研] 278求調(diào)劑 +3	Yy7400 2026-03-13	3/150	2026-03-17 08:24 by laoshidan
[考研] 一志愿，福州大學材料專碩339分求調(diào)劑 +3	木子momo青爭 2026-03-15	3/150	2026-03-17 07:52 by laoshidan
[考研] 中科院材料273求調(diào)劑 +4	yzydy 2026-03-15	4/200	2026-03-16 15:59 by Gaodh_82
[考研] 中科大材料與化工319求調(diào)劑 +3	孟鑫材料 2026-03-14	3/150	2026-03-14 20:10 by ms629
[考研] 308 085701 四六級已過求調(diào)劑 +7	溫喬喬喬喬 2026-03-12	14/700	2026-03-14 10:49 by JourneyLucky
[考研] 材料與化工求調(diào)劑一志愿 985 總分 295 +8	dream…… 2026-03-12	8/400	2026-03-13 22:17 by 星空星月
[考研] 考研調(diào)劑 +4	芬達46 2026-03-12	4/200	2026-03-13 16:04 by ruiyingmiao

24小時熱門版塊排行榜

[交流] 【求助】vb.net的DataGridView如何編輯后保存到Access數(shù)據(jù)庫中？ 已有2人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

[交流] 【求助】vb.net的DataGridView如何編輯后保存到Access數(shù)據(jù)庫中？已有2人參與

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: