vb.net mysql 插入数据_vb.net教程之VB.NET来插入数据记录

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 <> "" ) Then

Dim 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 ( )

Else

MessageBox.Show ( "必须填满所有字段值！" , "错误！" )

End If

End Sub