vb.net中向數據庫寫入數據后如何更新？？（急，在線等）

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 不難的.

vb.net 更新access數據

以下是完整模塊

Imports?System.Data

Imports?System.IO

Imports?System.Data.OleDb

Module?Module1

Public?cn?As?New?OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=C:\ACCESS數據庫.mdb")?'定義連接---這里請更改為實際數據庫路徑及名稱

Public?DataBaseRST?As?Integer?'用來返回數據庫執行結果

Public?Function?DataModify(ByVal?str?As?String)?As?Boolean?'進行數據庫修改操作函數

Dim?cmdinsert?As?New?OleDbCommand

Try

cmdinsert.CommandText?=?str

cmdinsert.Connection?=?cn

If?cn.State?=?ConnectionState.Closed?Then?cn.Open()

DataBaseRST?=?cmdinsert.ExecuteNonQuery()?'用來返回執行的結果

cn.Close()

Return?True

Catch?ex?As?Exception

MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)

Return?False

End?Try

End?Function

Public?Function?Search(ByVal?str?As?String,?ByVal?DGV?As?DataGridView)?As?Boolean?'查詢?str---查詢命令，DGV---DataGridView，用來顯示數據的控件

Dim?tb?As?New?DataTable

Try

Dim?ap?As?New?OleDb.OleDbDataAdapter(str,?cn)

ap.Fill(tb)

DGV.DataSource?=?tb

Return?True

Catch?ex?As?Exception

MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)

Return?False

End?Try

End?Function

End?Module

'以下是調用方法

DataModify("?insert?into?aa?values?('1','2')")'-------這里是數據庫更新操作

Search("select?bb?from?aa",DataGridView1)'-----------這里是數據表查詢操作

vb.net制作的程序，發布更新程序的問題。

你1.0里做了查找更新的功能么？通常比如做一段連到更新服務器，驗證下最新版本信息比如服務器目錄下放個記錄版本號和新版位置的txt，有了就用單寫的更新程序更新（不能更新正在運行的自己的關系）。至于沒做這部分而要讓原來的1.0自己“感應”到那是天方夜譚了。

我想用vb.net寫個在線升級程序，上網找個代碼，里面AxWebBrowser是什么？

AxWebBowser就是原來VB6里面那個COM控件WebBowser.直接在添加引用時選擇COM一頁進去找就是了

在線升級一般采用FTP方式.先由客戶端發起更新請求,服務器返回現在最新的文件的清單、版本、修改日期等信息，客戶端拿到和自己的文件進行比對，發現不同的就用FTP方式向服務器索取最新的，然后替換掉自己的就可以了。