Question

vb 更改数据库 并没实际更改

用这种方法调用数据库
Public Class FrmDepInfo
Private Sub FrmDepInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 这行代码将数据加载到表“DbDataSet.组织机构编码表”中。您可以根据需要移动或移除它。
Me.组织机构编码表TableAdapter.Fill(Me.DbDataSet.组织机构编码表)

End Sub

Private Sub 保存SToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SToolStripButton.Click
Me.Validate()
Me.组织机构编码表BindingSource.EndEdit()
Me.组织机构编码表TableAdapter.Update(Me.DbDataSet)
MsgBox("数据修改成功")
End Sub
End Class
显示更改后，重新运行后并无更改，数据库是access的，打开也并无更改环境是vs2005 vb

Answer 1

你没有数据库的连接过程,下面是一个例子：
创建一个数据连接
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb "
Dim myConn As OleDbConnection = New OleDbConnection ( )
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM person "
'创建一个 DataSet 你也可以直接定义成DataTable对象
myDataSet = New DataSet ( ) 对象必须用New关键字初始化
myConn.Open ( )
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter
( strCom , myConn )
'把Dataset绑定books数据表
myCommand.Fill ( myDataSet , "person" )
'关闭此数据连接
myConn.Close ( )