'创建一个数据连接Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( ) myConn.ConnectionString = strConDim strCom As String = " SELECT * FROM person "'创建一个 DataSetmyDataSet = New DataSet ( ) myConn.Open ( ) '通过OleDbDataAdapter对象得到一个数据集Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom  , myConn )'把Dataset绑定books数据表myCommand.Fill ( myDataSet  , "person" )'关闭此数据连接myConn.Close ( )'创建BindingManagerBase对象myBind = Me.BindingContext  ( myDataSet  , "person" )     

     '创建一个数据连接Dim strCon As String = " Provider = SQLOLEDB.1 ; Persist Security Info = False ; User ID = sa ; Initial Catalog = data1 ; Data Source = server1 "Dim myConn As OleDbConnection = New OleDbConnection ( ) myConn.ConnectionString = strConDim strCom As String = " SELECT * FROM person "'创建一个 DataSetmyDataSet = New DataSet ( ) myConn.Open ( ) '通过OleDbDataAdapter对象得到一个数据集Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom  ,myConn )'把Dataset绑定books数据表myCommand.Fill ( myDataSet  , "person" )'关闭此数据连接myConn.Close ( )'创建BindingManagerBase对象myBind = Me.BindingContext  ( myDataSet  , "person" )     

     '按钮"尾记录"对象事件程序 Private Sub lastrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles lastrec.ClickmyBind.Position = myBind.Count - 1End Sub'按钮"下一条"对象事件程序 Private Sub nextrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles nextrec.ClickIf myBind.Position = myBind.Count - 1 ThenMessageBox.Show ( "已经到了最后一条记录！" , "信息提示！" , MessageBoxButtons.OK , MessageBoxIcon.Information )ElsemyBind.Position = myBind.Position + 1End IfEnd Sub'按钮"上一条"对象事件程序 Private Sub previousrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles previousrec.ClickIf  ( myBind.Position = 0 ) ThenMessageBox.Show ( "已经到了第一条记录！" , "信息提示！" ,MessageBoxButtons.OK , MessageBoxIcon.Information )ElsemyBind.Position = myBind.Position - 1End IfEnd Sub'按钮"首记录"对象事件程序Private Sub firstrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles firstrec.ClickmyBind.Position = 0End Sub   

     Private Sub button4_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button4.Click'连接到一个数据库Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( strCon )myConn.Open ( ) Dim strDele As String = "DELETE FROM person WHERE id= " + t_id.TextDim myCommand As OleDbCommand = New OleDbCommand ( strDele , myConn )'从数据库中删除指定记录myCommand.ExecuteNonQuery ( ) '从DataSet中删除指定记录myDataSet.Tables ( "person" ).Rows ( myBind.Position ).Delete ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) myConn.Close ( )
End Sub   

     Private Sub button4_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button4.Click'连接到一个数据库Dim strCon As String = " Provider = SQLOLEDB.1 ; Persist Security Info = False ; User ID = sa ; Initial Catalog = data1 ; Data Source = server1 "Dim myConn As OleDbConnection = New OleDbConnection ( strCon )myConn.Open ( ) Dim strDele As String = "DELETE FROM person WHERE id= " + t_id.TextDim myCommand As OleDbCommand = New OleDbCommand ( strDele , myConn )'从数据库中删除指定记录myCommand.ExecuteNonQuery ( ) '从DataSet中删除指定记录myDataSet.Tables ( "person" ).Rows ( myBind.Position ).Delete ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) myConn.Close ( )
End Sub   

     Private Sub button3_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button3.ClickDim i As Integer = myBind.Position'连接到一个数据库Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( strCon )myConn.Open ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( ) '从数据库中修改指定记录Dim strUpdt As String = " UPDATE person SET xm = '" _+ t_xm.Text + "'  , xb = '" _+ t_xb.Text + "'  , nl = " _+ t_nl.Text + "  , zip = " _+ t_books.Text + " WHERE id = " + t_id.TextDim myCommand As OleDbCommand = New OleDbCommand ( strUpdt , myConn )myCommand.ExecuteNonQuery ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) myConn.Close ( ) myBind.Position = iEnd Sub   

     Private Sub button2_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button2.Click'判断所有字段是否添完，添完则执行，反之弹出提示 If  ( t_id.Text <> "" And t_xm.Text <> "" And t_xb.Text <> "" And t_nl.Text <> "" And t_books.Text <> "" ) ThenDim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb"Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )myConn.Open ( ) Dim strInsert As String = " INSERT INTO person  ( id  , xm  ,xb  , nl  , zip ) VALUES  ( " & _t_id.Text + " , '" & _t_xm.Text + "' , '" & _t_xb.Text + "' , " & _t_nl.Text + " , " & _t_books.Text + ")"Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )inst.ExecuteNonQuery ( ) myConn.Close ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) ElseMessageBox.Show ( "必须填满所有字段值！" , "错误！" )End If
End Sub   

Imports System
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.DataPublic Class Form1Inherits FormPrivate components As System.ComponentModel.Container = NothingPrivate WithEvents lastrec As ButtonPrivate WithEvents nextrec As ButtonPrivate WithEvents previousrec As ButtonPrivate WithEvents firstrec As ButtonPrivate t_books As TextBoxPrivate t_nl As TextBoxPrivate t_xb As TextBoxPrivate t_xm As TextBoxPrivate t_id As TextBoxPrivate l_books As LabelPrivate l_nl As LabelPrivate l_xb As LabelPrivate l_xm As LabelPrivate l_id As LabelPrivate label1 As LabelPrivate myDataSet As DataSetPrivate WithEvents button1 As ButtonPrivate WithEvents button2 As ButtonPrivate WithEvents button3 As ButtonPrivate WithEvents button4 As ButtonPrivate myBind As BindingManagerBasePublic Sub New ( ) MyBase.New ( ) GetConnected ( ) InitializeComponent ( ) End Sub'清除在程序中使用过的资源 Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)If disposing ThenIf Not  (components Is Nothing) Thencomponents.Dispose ( ) End IfEnd IfMyBase.Dispose ( disposing )End SubPublic Sub GetConnected ( ) '创建一个数据连接Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( ) myConn.ConnectionString = strConDim strCom As String = " SELECT * FROM person "'创建一个 DataSetmyDataSet = New DataSet ( ) myConn.Open ( ) '通过OleDbDataAdapter对象得到一个数据集Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom  , myConn )'把Dataset绑定books数据表myCommand.Fill ( myDataSet  , "person" )'关闭此数据连接myConn.Close ( ) End Sub'初始化窗体中的组件Private Sub InitializeComponent ( ) label1 = New Label ( ) l_xm = New Label ( ) l_books = New Label ( ) t_xm = New TextBox ( ) t_nl = New TextBox ( ) nextrec = New Button ( ) lastrec = New Button ( ) firstrec = New Button ( ) button1 = New Button ( ) t_xb = New TextBox ( ) button3 = New Button ( ) button4 = New Button ( ) t_books = New TextBox ( ) previousrec = New Button ( ) button2 = New Button ( ) l_nl = New Label ( ) l_xb = New Label ( ) l_id = New Label ( ) t_id = New TextBox ( ) SuspendLayout ( ) label1.Font = New Font ( "Microsoft Sans Serif" , 14! )label1.ForeColor = Color.Navylabel1.Location = New Point ( 40 , 24 )label1.Name = "label1"label1.Size = New Size ( 265 , 28 )label1.TabIndex = 19label1.Text = "VB.NET数据库基础编程"label1.TextAlign = ContentAlignment.MiddleCenterl_xm.Font = New Font ( "Microsoft Sans Serif" , 10! )l_xm.Location = New Point ( 40 , 104 )l_xm.Name = "l_xm"l_xm.Size = New Size ( 143 , 23 )l_xm.TabIndex = 14l_xm.Text = "姓      名："l_xm.TextAlign = ContentAlignment.MiddleCenterl_books.Font = New Font ( "Microsoft Sans Serif" , 10! )l_books.Location = New Point ( 40 , 200 )l_books.Name = "l_books"l_books.Size = New Size ( 143 , 24 )l_books.TabIndex = 16l_books.Text = "邮政编码："l_books.TextAlign = ContentAlignment.MiddleCentert_xm.Location = New Point ( 160 , 104 )t_xm.Name = "t_xm"t_xm.Size = New Size ( 104 , 21 )t_xm.TabIndex = 2t_xm.Text = ""t_xm.DataBindings.Add  ( New Binding  ( "Text"  , myDataSet  , "person.xm" ) ) t_nl.Location = New Point ( 160 , 168 )t_nl.Name = "t_nl"t_nl.Size = New Size ( 102 , 21 )t_nl.TabIndex = 4t_nl.Text = ""t_nl.DataBindings.Add  ( New Binding  ( "Text"  , myDataSet  , "person.nl" ) ) nextrec.Font = New Font ( "Microsoft Sans Serif" , 8! )nextrec.ForeColor = Color.Blacknextrec.Location = New Point ( 176 , 248 )nextrec.Name = "nextrec"nextrec.Size = New Size ( 60 , 28 )nextrec.TabIndex = 8nextrec.Text = "后一条"lastrec.Font = New Font ( "Microsoft Sans Serif" , 8! )lastrec.ForeColor = Color.Blacklastrec.Location = New Point ( 240 , 248 )lastrec.Name = "lastrec"lastrec.Size = New Size ( 60 , 28 )lastrec.TabIndex = 9lastrec.Text = "尾记录"firstrec.Font = New Font ( "Microsoft Sans Serif" , 8! )firstrec.ForeColor = Color.Blackfirstrec.Location = New Point ( 48 , 248 )firstrec.Name = "firstrec"firstrec.Size = New Size ( 60 , 28 )firstrec.TabIndex = 6firstrec.Text = "首记录"button1.Font = New Font ( "Microsoft Sans Serif" , 8! )button1.ForeColor = Color.Blackbutton1.Location = New Point ( 16 , 296 )button1.Name = "button1"button1.Size = New Size ( 70 , 28 )button1.TabIndex = 10button1.Text = "新建记录"t_xb.Location = New Point ( 160 , 136 )t_xb.Name = "t_xb"t_xb.Size = New Size ( 104 , 21 )t_xb.TabIndex = 3t_xb.Text = ""t_xb.DataBindings.Add  ( New Binding  ( "Text"  , myDataSet  , "person.xb" ) ) button3.Font = New Font ( "Microsoft Sans Serif" , 8! )button3.ForeColor = Color.Blackbutton3.Location = New Point ( 176 , 296 ) button3.Name = "button3"button3.Size = New Size ( 70 , 28 )button3.TabIndex = 12button3.Text = "修改记录"button4.Font = New Font ( "Microsoft Sans Serif" , 8! )button4.ForeColor = Color.Blackbutton4.Location = New Point ( 256 , 296 )button4.Name = "button4"button4.Size = New Size ( 70 , 28 )button4.TabIndex = 13button4.Text = "删除记录"t_books.Location = New Point ( 160 , 200 )t_books.Name = "t_books"t_books.Size = New Size ( 102 , 21 )t_books.TabIndex = 5t_books.Text = ""t_books.DataBindings.Add  ( New Binding  ( "Text"  , myDataSet  , "person.zip" ) ) previousrec.Font = New Font ( "Microsoft Sans Serif" , 8! )previousrec.ForeColor = Color.Blackpreviousrec.Location = New Point ( 112 , 248 )previousrec.Name = "previousrec"previousrec.Size = New Size ( 60 , 28 )previousrec.TabIndex = 7previousrec.Text = "上一条"button2.Font = New Font ( "Microsoft Sans Serif" , 8! )button2.ForeColor = Color.Blackbutton2.Location = New Point ( 96 , 296 )button2.Name = "button2"button2.Size = New Size ( 70 , 28 )button2.TabIndex = 11button2.Text = "插入记录"l_nl.Font = New Font ( "Microsoft Sans Serif" , 10! )l_nl.Location = New Point ( 40 , 168 )l_nl.Name = "l_nl"l_nl.Size = New Size ( 143 , 23 )l_nl.TabIndex = 4l_nl.Text = "年      龄："l_nl.TextAlign = ContentAlignment.MiddleCenterl_xb.Font = New Font ( "Microsoft Sans Serif" , 10! )l_xb.Location = New Point ( 40 , 136 )l_xb.Name = "l_xb"l_xb.Size = New Size ( 143 , 23 )l_xb.TabIndex = 17l_xb.Text = "姓      别："l_xb.TextAlign = ContentAlignment.MiddleCenterl_id.Font = New Font ( "Microsoft Sans Serif" , 10! )l_id.Location = New Point ( 40 , 72 )l_id.Name = "l_id"l_id.Size = New Size ( 143 , 23 )l_id.TabIndex = 13l_id.Text = "序      号："l_id.TextAlign = ContentAlignment.MiddleCentert_id.Enabled = Falset_id.Location = New Point ( 160 , 72 )t_id.Name = "t_id"t_id.Size = New Size ( 102 , 21 )t_id.TabIndex = 1t_id.Text = ""t_id.DataBindings.Add  ( New Binding  ( "Text"  , myDataSet  , "person.id" ) ) Me.AutoScaleBaseSize = New Size ( 6 , 14 )Me.ClientSize = New Size ( 344 , 357 )'在窗体中加入相应的组件Me.Controls.Add ( button4 ) Me.Controls.Add ( button3 ) Me.Controls.Add ( button2 ) Me.Controls.Add ( button1 ) Me.Controls.Add ( lastrec ) Me.Controls.Add ( nextrec ) Me.Controls.Add ( previousrec ) Me.Controls.Add ( firstrec ) Me.Controls.Add ( t_books ) Me.Controls.Add ( t_nl ) Me.Controls.Add ( t_xb ) Me.Controls.Add ( t_xm ) Me.Controls.Add ( t_id ) Me.Controls.Add ( l_books ) Me.Controls.Add ( l_nl ) Me.Controls.Add ( l_xb ) Me.Controls.Add ( l_xm ) Me.Controls.Add ( l_id ) Me.Controls.Add ( label1 ) Me.Name = "Form1"Me.MaximizeBox = FalseMe.MinimizeBox = FalseMe.Text = "VB.NET数据库基础编程！"Me.ResumeLayout ( False )'创建BindingManagerBase对象myBind = Me.BindingContext  ( myDataSet  , "person" )  End SubPrivate Sub button1_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button1.Clickt_id.Text = ( myBind.Count + 1 ).ToString ( ) t_xm.Text = ""t_xb.Text = ""t_nl.Text = ""t_books.Text = ""End Sub'插入数据记录操作代码Private Sub button2_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button2.Click'判断所有字段是否添完，添完则执行，反之弹出提示 If  ( t_id.Text <> "" And t_xm.Text <> "" And t_xb.Text <> "" And t_nl.Text <> "" And t_books.Text <> "" ) ThenDim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb"Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )myConn.Open ( ) Dim strInsert As String = " INSERT INTO person  ( id  , xm  , xb  , nl, zip ) VALUES  ( " & _t_id.Text + " , '" & _t_xm.Text + "' , '" & _t_xb.Text + "' , " & _t_nl.Text + " , " & _t_books.Text + ")"Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )inst.ExecuteNonQuery ( ) myConn.Close ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) ElseMessageBox.Show ( "必须填满所有字段值！" , "错误！" )End IfEnd Sub'修改数据记录代码Private Sub button3_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button3.ClickDim i As Integer = myBind.Position'连接到一个数据库Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( strCon )myConn.Open ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( ) '从数据库中修改指定记录Dim strUpdt As String = " UPDATE person SET xm = '" _+ t_xm.Text + "'  , xb = '" _+ t_xb.Text + "'  , nl = " _+ t_nl.Text + "  , zip = " _+ t_books.Text + " WHERE id = " + t_id.TextDim myCommand As OleDbCommand = New OleDbCommand ( strUpdt , myConn )myCommand.ExecuteNonQuery ( ) myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) myConn.Close ( ) myBind.Position = iEnd Sub'删除数据记录代码Private Sub button4_Click (ByVal sender As Object , _ByVal e As System.EventArgs) Handles button4.Click'连接到一个数据库Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( strCon )myConn.Open ( ) Dim strDele As String = "DELETE FROM person WHERE id= " + t_id.TextDim myCommand As OleDbCommand = New OleDbCommand ( strDele , myConn )'从数据库中删除指定记录myCommand.ExecuteNonQuery ( ) '从DataSet中删除指定记录myDataSet.Tables ( "person" ).Rows ( myBind.Position ).Delete ( ) myDataSet.Tables ( "person" ).AcceptChanges ( ) myConn.Close ( ) End Sub'按钮"尾记录"对象事件程序 Private Sub lastrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles lastrec.ClickmyBind.Position = myBind.Count - 1End Sub'按钮"下一条"对象事件程序 Private Sub nextrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles nextrec.ClickIf myBind.Position = myBind.Count - 1 ThenMessageBox.Show ( "已经到了最后一条记录！" , "信息提示！" , MessageBoxButtons.OK , MessageBoxIcon.Information )ElsemyBind.Position = myBind.Position + 1End IfEnd Sub'按钮"上一条"对象事件程序 Private Sub previousrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles previousrec.ClickIf  ( myBind.Position = 0 ) ThenMessageBox.Show ( "已经到了第一条记录！" , "信息提示！" , MessageBoxButtons.OK , MessageBoxIcon.Information )ElsemyBind.Position = myBind.Position - 1End IfEnd Sub'按钮"首记录"对象事件程序Private Sub firstrec_Click ( ByVal sender As Object , _ByVal e As System.EventArgs ) Handles firstrec.ClickmyBind.Position = 0End Sub
End ClassModule Module1Sub Main ( ) Application.Run ( New Form1 ( ) )End Sub
End Module   

vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll /r:system.xml.dll /r:system.data.dll data.vb