vb mysql 教程_[转载]VB.net教程之数据库简单操作

xin3721网络学院为广大学员，准备了丰富了教学视频。相关视频教程地址为：vb.net教程

前面介绍了ADO.NET基础，以及ADO.NET与Windows窗体控件的绑定方法。但是，对于数据库编程我们更想了解的还是如何增加记录，删除记录，更新记录等数据库记录的操作方法。这里我们将以一个具体的实例为大家介绍这些操作方法。

在图3中，有btnFirst(第一个记录)，btnEnd(最后一条记录)，btnAdd(增加记录)，btnDel(删除记录)，btnEdit(修改记录)控件。

用代码形式打开数据并在frmtest_load中把数据绑定给TextBox控件。此处给出源代码：

'打开数据库

Public Sub OpenData()

'创建一个 OleDbConnection

Dim ConnectionString As String = ″ Provider =

Microsoft.Jet.OLEDB.4.0; Data Source = e:My

Documentsdb1.mdb″

Dim myConn As OleDbConnection = New OleDbConnection()

myConn.ConnectionString = ConnectionString

Dim strCom As String = ″ SELECT * FROM student ″

'创建一个 DataSet

myDataSet = New DataSet()

myConn.Open()

'用 OleDbDataAdapter 得到一个数据集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom,

myConn)

'把Dataset绑定student数据表

myCommand.Fill(myDataSet, ″student″)

'关闭此OleDbConnection

myConn.Close()

End Sub

'绑定数据到TextBox控件

Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

txtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet,

″student.StuID″))

txtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet,

″student.StuName″))

txtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet,

″student.StuSex″))

txtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet,

″student.StuBorn″))

txtStuCore.DataBindings.Add(New Binding(″Text″, Me.myDataSet,

″student.StuCore″))

End Sub

完成以上步骤后，我们就可以通过编程对数据库进行各作操作了。