樓主您好。鎮(zhèn)渣脊您的代碼缺少一句,所以它梁渣沒(méi)有時(shí)時(shí)更新。
成都創(chuàng)新互聯(lián)-云計(jì)算及IDC服務(wù)提供商,涵蓋公有云、IDC機(jī)房租用、內(nèi)蒙古服務(wù)器托管、等保安全、私有云建設(shè)等企業(yè)級(jí)互聯(lián)網(wǎng)基礎(chǔ)服務(wù),服務(wù)電話:18982081108
添加:dbConnection.Close()
您只打開(kāi)沒(méi)有關(guān)閉。所以第二次打開(kāi)的還是第一次的數(shù)據(jù)御滲集。
Function GetMDB_DataSource(ByVal sql As String) As DataTable
Dim DataAdapter As New OleDb.OleDbDataAdapter
Dim dtls As New DataTable
Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.mdb;Persist Security Info=true"
Dim dbConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(dbConnectionString)
Try
dbConnection.Open()
DataAdapter.SelectCommand = New OleDb.OleDbCommand(sql, dbConnection)
DataAdapter.Fill(dtls)
dbConnection.Close()
Catch Ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)
Return New DataTable
End Try
Return dtls
End Function
希望對(duì)您有用!
重要的鬧搏頃是區(qū)別兩個(gè)方法:DbAdapter.Fill是讀,DbCommand.ExecuteNonquery是執(zhí)行修改。刪除銀禪按鈕下理論上應(yīng)先調(diào)用修改,確認(rèn)成功后,再調(diào)用讀取液陸。
vb點(diǎn)虐 中關(guān)閉屏幕刷新方法為讓緩:
1、修改完恢復(fù)初始狀態(tài)callformload。
2、顯示修改后信息,控件refresh,例如用data控件,則data1.refresh即可坦棚模。
3、數(shù)據(jù)庫(kù)資料用label顯示,則label.refresh同和老時(shí)用me.refresh。
單擊按鈕后,將窗體數(shù)據(jù)寫(xiě)入數(shù)據(jù)庫(kù),然后重新重新綁定讀出來(lái),顯示綁定到控件