vb.net中向数据库写入数据后如何更新？？（急，在线等）

Question

vb.net中向数据库写入数据后如何更新？？用DataGridView与数据库建立的连接， 现在要在运行窗口插入数据，插入完后关闭。等在打开运行窗口时，可以看见那个新加入的1条信息。
我写的一部分代码如下
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim shkcode1 As String
Dim shimei1 As String
Dim inymd1 As String
Dim sqlstr As String
' Dim dr As DataRow

shkcode1 = DataGridView1.Rows(4).Cells(0).Value
shimei1 = DataGridView1.Rows(4).Cells(1).Value
inymd1 = DataGridView1.Rows(4).Cells(2).Value

sqlstr = " insert into EA_M1施设职员(shkcode,shimei,inymd) values ('" & shkcode1 & "','" & shimei1 & "','" & inymd1 & "')"

这下面要如何写呢？？就差更新数据库这了。请高手们帮助下。
好像是要用 connection对象。 executeNonQuery() 我不是太清楚。谁能解答下

Answer 1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim shkcode1 As String
Dim shimei1 As String
Dim inymd1 As String
Dim sqlstr As String
' Dim dr As DataRow

shkcode1 = DataGridView1.Rows(4).Cells(0).Value
shimei1 = DataGridView1.Rows(4).Cells(1).Value
inymd1 = DataGridView1.Rows(4).Cells(2).Value

sqlstr = " insert into EA_M1施设职员(shkcode,shimei,inymd) values ('" & shkcode1 & "','" & shimei1 & "','" & inymd1 & "')"

Dim connection As New OracleConnection("连接字符串")
Dim cmd As New OracleCommand(sqlstr, connection)
Try
connection.Open()
Dim rows As Integer = cmd.ExecuteNonQuery()
if rows > 0 then
'说明执行成功了.可以做之后的操作
end if
Catch E As System.Data.OracleClient.OracleException
connection.Close()
Throw New Exception(E.Message)
End Try
end sub

ps:建议去学学ADO.Net 不难的.

Answer 2

这我也不会那