更新ACCESS数据VIP免费

更新ACCESS数据ImportsSystem.Data.OleDbPublicClassForm1DimSqlCOMAsOleDbConnectionDimSqlUseAsOleDbDataAdapterDimDtAsDataSetPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTry'连接数据库SqlCOM=NewOleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Users\LP\Documents\Database1.accdb")'执行数据命令获取表SqlUse=NewOleDbDataAdapter("SELECT*FROM表1",SqlCOM)Dt=NewDataSetSqlUse.Fill(Dt)'放入dataset中CatchMsgBox(Err.Description,48)EndTryEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTryDataGridView1.DataSource=Dt.Tables(0).DefaultView'DVG与DADASET同步数据显示CatchMsgBox(Err.Description,32)EndTryEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTryDimassAsNewOleDbCommandBuilder(SqlUse)'关联DataSet和数据库的操作(更新)SqlUse.UpdateCommand=ass.GetUpdateCommand()'执行更新所需的OleDbCommand对象SqlUse.Update(Dt.Tables(0))'执行OleDbDataAdapter的Update更新数据库CatchMsgBox(Err.Description,32)FinallyMsgBox("更新成功",64)EndTryEndSubEndClass