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方式向服务器索取最新的，然后替换掉自己的就可以了。

当前文章：vb.net在线更新 vbnet reportviewer
本文来源：http://scyanting.com/article/dosdpes.html