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

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

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)建站！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了邵原免費(fèi)建站歡迎大家使用！

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施設(shè)職員(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

'說明執(zhí)行成功了.可以做之后的操作

end if

Catch E As System.Data.OracleClient.OracleException

connection.Close()

Throw New Exception(E.Message)

End Try

end sub

ps:建議去學(xué)學(xué)ADO.Net 不難的.

vb.net 更新access數(shù)據(jù)

以下是完整模塊

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數(shù)據(jù)庫.mdb")?'定義連接---這里請更改為實(shí)際數(shù)據(jù)庫路徑及名稱

Public?DataBaseRST?As?Integer?'用來返回?cái)?shù)據(jù)庫執(zhí)行結(jié)果

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

Dim?cmdinsert?As?New?OleDbCommand

Try

cmdinsert.CommandText?=?str

cmdinsert.Connection?=?cn

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

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

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，用來顯示數(shù)據(jù)的控件

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

'以下是調(diào)用方法

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

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

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

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

我想用vb.net寫個(gè)在線升級(jí)程序，上網(wǎng)找個(gè)代碼，里面AxWebBrowser是什么？

AxWebBowser就是原來VB6里面那個(gè)COM控件WebBowser.直接在添加引用時(shí)選擇COM一頁進(jìn)去找就是了

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