vbnet数据库操作

参考一下下面这段代码就可以了。

ISystem.Data

'引入数据库操作类命名空间

ISystem.Data.OleDb

'引入ADO.NET操作命名空间

Public   Class   FrmModifystInfo

        Inherits   System.Windows.Forms.Form

        Public   ADOcmd   As   OleDbDataAdapter

        Public   ds   As   DataSet   =   New   DataSet()

 DataSet对象  

        Public   mytable   As   Data.DataTable

        Public   myrow   As   Data.DataRow

        Public   rownumber   As   Integer

        Public   SearchSQL   As   String

        Public   cmd   As   OleDbCommandBuilder

'======================================================

'======================================================

        Private   Sub   FrmModifystInfo_Load(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load

 TxtSID.Enabled   =   False

 TxtName.Enabled   =   False

 ComboSex.Enabled   =   False

 TxtBornDate.Enabled   =   False

 TxtClassno.Enabled   =   False

 TxtRuDate.Enabled   =   False

 TxtTel.Enabled   =   False

 TxtAddress.Enabled   =   False

 TxtComment.Enabled   =   False       '设置信息为只读

                Dim   tablename   As   String   =   "student_Info "

 SearchSQL   =   "select   *   from   student_Info

 ExecuteSQL(SearchSQL,tablename

 ShowData

        End   Sub

        Private   Sub   ShowData()

 myrow   =   mytable.Rows.Item(rownumber)

 TxtSID.Text   =   myrow.Item(0).ToString

 TxtName.Text   =   myrow.Item(1).ToString

 ComboSex.Text   =   myrow.Item(2).ToString

 TxtBornDate.Text   =   Format(myrow.Item(yyyy-MM-dd ")

 TxtClassno.Text   =   myrow.Item(4).ToString

 TxtTel.Text   =   myrow.Item(5).ToString

 TxtRuDate.Text   =   Format(CDate(myrow.Item(yyyy-MM-dd ")

 TxtAddress.Text   =   myrow.Item(7).ToString

 TxtComment.Text   =   myrow.Item(8).ToString

        End   Sub

        Private   Sub   BtFirst_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtFirst.Click

 rownumber   =   0

 ShowData()

        End   Sub

        Private   Sub   BtPrev_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtPrev.Click

 BtNext.Enabled   =   True

 rownumber   =   rownumber   -   1

                If   rownumber < 0 Then

 rownumber   =   0       '如果到达记录的首部，行号设为零

 BtPrev.Enabled   =   False

                End   If

 ShowData()

        End   Sub

        Private   Sub   BtNext_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtNext.Click

 BtPrev.Enabled   =   True

 rownumber   =   rownumber   +   1

                If   rownumber mytable.Rows.Count   -   1   Then

 rownumber   =   mytable.Rows.Count   -   1   '判断是否到达最后一条数据

 BtNext.Enabled   =   False

                End   If

 ShowData()

        End   Sub

        Private   Sub   BtLast_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtLast.Click

 rownumber   =   mytable.Rows.Count   -   1

 ShowData()

        End   Sub

        Private   Sub   BtDelete_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtDelete.Click

 mytable.Rows.Item(rownumber

                If   MsgBox(MsgBoxStyle.OKCancel   +   vbExclamation,   "警告 ")   =   MsgBoxResult.OK

 cmd   =   New   OleDbCommandBuilder(ADOcmd)

 ADOcmd.Update(ds,student_Info ")

 BtNext.PerformClick()

                End   If

        End   Sub

        Private   Sub   BtModify_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtModify.Click

 TxtSID.Enabled   =   False   '关键字段只读

 TxtName.Enabled   =   True   '可读写

 ComboSex.Enabled   =   True

 TxtBornDate.Enabled   =   True

 TxtClassno.Enabled   =   True

 TxtRuDate.Enabled   =   True

 TxtTel.Enabled   =   True

 TxtAddress.Enabled   =   True

 TxtComment.Enabled   =   True

        End   Sub

        Private   Sub   BtUpdate_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtUpdate.Click

                If   Not   Testtxt(TxtName.Text

 MsgBox(vbOKOnly   +   vbExclamation

 TxtName.Focus()

                        Exit   Sub

                End   If

                If   Not   Testtxt(ComboSex.Text

 MsgBox(vbOKOnly   +   vbExclamation

 ComboSex.Focus()

                        Exit   Sub

                End   If

                If   Not   Testtxt(TxtClassno.Text

 MsgBox(vbOKOnly   +   vbExclamation

 TxtClassno.Focus()

                        Exit   Sub

                End   If

                If   Not   Testtxt(TxtTel.Text

 MsgBox(vbOKOnly   +   vbExclamation

 TxtTel.Focus()

                        Exit   Sub

                End   If

                If   Not   Testtxt(TxtAddress.Text

 MsgBox(vbOKOnly   +   vbExclamation

 TxtAddress.Focus()

                        Exit   Sub

                End   If

                If   Not   IsNumeric(Trim(TxtSID.Text

 MsgBox(vbOKOnly   +   vbExclamation

                        Exit   Sub

 TxtSID.Focus()

                End   If

                If   Not   IsDate(TxtBornDate.Text

 MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）vbOKOnly   +   vbExclamation

                        Exit   Sub

 TxtBornDate.Focus()

                End   If

                If   Not   IsDate(TxtRuDate.Text

 MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）vbOKOnly   +   vbExclamation

 TxtRuDate.Focus()

                        Exit   Sub

                End   If

 myrow.Item(0)   =   Trim(TxtSID.Text)

 myrow.Item(1)   =   Trim(TxtName.Text)

 myrow.Item(2)   =   Trim(ComboSex.Text)

 myrow.Item(3)   =   Trim(TxtBornDate.Text)

 myrow.Item(4)   =   Trim(TxtClassno.Text)

 myrow.Item(5)   =   Trim(TxtTel.Text)

 myrow.Item(6)   =   Trim(TxtRuDate.Text)

 myrow.Item(7)   =   Trim(TxtAddress.Text)

 myrow.Item(8)   =   Trim(TxtComment.Text)

 mytable.GetChanges()

 cmd   =   New   OleDbCommandBuilder(ADOcmd)

 ADOcmd.Update(ds,student_Info ")

 MsgBox(vbOKOnly   +   vbExclamation

 TxtName.Enabled   =   False

 ComboSex.Enabled   =   False

 TxtBornDate.Enabled   =   False

 TxtClassno.Enabled   =   False

 TxtRuDate.Enabled   =   False

 TxtTel.Enabled   =   False

 TxtAddress.Enabled   =   False

 TxtComment.Enabled   =   False   '重新设置信息为只读

        End   Sub

        Private   Sub   BtCancel_Click(ByVal   sender   As   System.Object,ByVal   e   As   System.EventArgs)   Handles   BtCancel.Click

 TxtSID.Enabled   =   False

 TxtName.Enabled   =   False

 ComboSex.Enabled   =   False

 TxtBornDate.Enabled   =   False

 TxtClassno.Enabled   =   False

 TxtRuDate.Enabled   =   False

 TxtTel.Enabled   =   False

 TxtAddress.Enabled   =   False

 TxtComment.Enabled   =   False

        End   Sub

        Public   Function   ExecuteSQL(ByVal   SQL   As   String,   ByVal   table   As   String)

 ADODataSetCommand对象

 ADOcmd   =   New   OleDbDataAdapter(SQL,   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=c:\\student.mdb ")

 ADODataSetCommand对象

 ADOcmd.Fill(ds,   table)   '取得表单

 mytable   =   ds.Tables.Item

 rownumber   =   0   '设置为第一行

 myrow   =   mytable.Rows.Item(rownumber)

 MsgBox(Err.Description)

                End   Try

        End   Function