版塊導航: 正在加載中...

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (5819)
>考研 (1222)
>導師招生 (1117)
>文獻求助 (424)
>蟲友互識 (280)
>基金申請 (217)
>休閑灌水 (196)
>考博 (163)
>論文投稿 (148)
>碩博家園 (141)
>招聘信息布告欄 (101)
>博后之家 (81)
>教師之家 (66)
>綠色求助(高懸賞) (42)
>公派出國 (39)
>留學生活 (34)

返回列表

zzahkj

木蟲 (著名寫手)

龍

應助: 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)在已經實現(xiàn)數(shù)據(jù)表在DataGridView中顯示了，可隨便對一個單元格進行編輯后卻無法保存到原來的Access數(shù)據(jù)表中，求高手指點，給一段代碼？謝謝！給段VB代碼也行��！

回復此樓

» 猜你喜歡

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

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

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

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

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

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

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

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

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

贊一下(2人)

回復此樓

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

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

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

zzahkj

木蟲 (著名寫手)

龍

應助: 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ù)調用:
'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': 類型“數(shù)據(jù)庫_實驗.AAADataSet1”的值無法轉換為“System.Data.OleDb.OleDbConnection”。
'Public Sub New(selectCommandText As String, selectConnectionString As String)': 類型“數(shù)據(jù)庫_實驗.AAADataSet1”的值無法轉換為“String”。 F:\復件復件數(shù)據(jù)庫-實驗oo\畫圖-實驗\Form1.vb 228 13 數(shù)據(jù)庫-實驗
這是怎么回事？該如何解決？

贊一下(1人)

回復此樓

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

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

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

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應助: 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:

'將列表框內容逐項加入數(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人)

回復此樓

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

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

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

zzahkj

木蟲 (著名寫手)

龍

應助: 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]'將列表框內容逐項加入數(shù)據(jù)庫,創(chuàng)建更新sql字串
sqlS ...

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

贊一下

回復此樓

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

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

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

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

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

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
余澤成(金幣+2): 謝謝參與應助！ 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后
加入按鈕事件調用

CODE:

'將列表框內容逐項加入數(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人)

回復此樓

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

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

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

zzahkj

木蟲 (著名寫手)

龍

應助: 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"

, "應填什么SQL語句"

End Sub

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

贊一下

回復此樓

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

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

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

zzahkj

木蟲 (著名寫手)

龍

應助: 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后
加入按鈕事件調用

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

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

贊一下

回復此樓

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

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

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

相關版塊跳轉我要訂閱樓主 zzahkj 的主題更新

返回列表

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

[考研] 274求調劑 +3	S.H1 2026-03-18	3/150	2026-03-18 19:31 by q1092522407
[考研] 一志愿武理材料305分求調劑 +5	想上岸的鯉魚 2026-03-18	6/300	2026-03-18 17:53 by 無際的草原
[考研] 材料專碩英一數(shù)二306 +3	z1z2z3879 2026-03-18	3/150	2026-03-18 17:18 by yeahyou
[考研] 354求調劑 +3	Tyoumou 2026-03-18	5/250	2026-03-18 16:41 by Tyoumou
[考研] 344求調劑 +5	knight344 2026-03-16	6/300	2026-03-18 15:17 by knight344
[考研] 311求調劑 +6	26研0 2026-03-15	6/300	2026-03-18 14:43 by haxia
[考研] 298-一志愿中國農業(yè)大學-求調劑 +7	手機用戶 2026-03-17	7/350	2026-03-18 14:34 by vgtyfty
[考研] 280求調劑 +6	咕嚕曉曉 2026-03-18	7/350	2026-03-18 11:25 by 無際的草原
[考研] 296求調劑 +5	大口吃飯身體健 2026-03-13	5/250	2026-03-17 21:05 by 不惑可樂
[考研] 301求調劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 材料工程專碩調劑 +5	204818@lcx 2026-03-17	5/250	2026-03-17 17:27 by Little-xue
[考研] 326求調劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 085601求調劑 +4	Du.11 2026-03-16	4/200	2026-03-17 17:08 by ruiyingmiao
[考研] 085600調劑 +5	漾漾123sun 2026-03-12	6/300	2026-03-16 15:58 by 漾漾123sun
[考研] 一志愿哈工大材料324分求調劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 304求調劑 +6	Mochaaaa 2026-03-12	7/350	2026-03-13 22:18 by 星空星月
[碩博家園] 085600 260分求調劑 +3	天空還下雨么 2026-03-13	5/250	2026-03-13 18:46 by 天空還下雨么
[考研] 085600材料與化工 309分請求調劑 +7	dtdxzxx 2026-03-12	8/400	2026-03-13 14:43 by jxchenghu
[考研] 材料301分求調劑 +5	Liyouyumairs 2026-03-12	5/250	2026-03-13 14:42 by JourneyLucky
[考研] 333求調劑 +3	152697 2026-03-12	4/200	2026-03-13 07:08 by Iveryant

24小時熱門版塊排行榜

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

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

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

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