13518219792
以下是模块模块1
创新互联主要从事网站设计制作、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务定日,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
完整的模块
进口System.Data
进口System.IO
进口System.Data.OleDb
CN作为新OleDb.OleDbConnection （供应商= Microsoft.Jet.OLEDB.4.0;数据源= C：\ ACCESS数据库的。mdb“）'定义连接---改变到实际的数据库路径和名称
DataBaseRST上的作为整数使用返回数据库执行的结果
的公共功能DataModify（BYVAL str作为字符串）作为布尔数据库的操作功能
昏暗的cmdinsert作为新的OleDbCommand
尝试
cmdinsert.CommandText = STR
是用来返回cmdinsert.Connection的= CN
如果cn.State = ConnectionState.Closed cn.Open（）
DataBaseRST cmdinsert.ExecuteNonQuery（）的执行结果 BR / cn.Close（）
，则返回true
赶上前为异常
MessageBox.Show（Err.Description，“错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
返回False
尝试
端的功能
功能搜索（BYVAL作为字符串，BYVAL的DGV作为DataGridView的）作为布尔查询STR ---查询命令，DGV ---海峡和DataGridView控件来显示数据
昏暗的结核病新的DataTable
昏暗的AP尝试作为的新OleDb.OleDbDataAdapter（STR，CN）
ap.Fill（TB）
DGV作为数据源= TB
返回TRUE，“
抓住前异常
MessageBox.Show（Err.Description，”错误“，MessageBoxButtons.OK，MessageBoxIcon.Error）
则返回false /末尝试
功能
前端模块
以下是通话
DataModify（“插入AA值吗？（'1 '，'2'）“）-------这里是数据库更新操作。
搜索（”选择BB AA“DataGridView1的）-----------数据表的查询操作。
AxWebBowser就是原来VB6里面那个COM控件WebBowser.直接在添加引用时选择COM一页进去找就是了
在线升级一般采用FTP方式.先由客户端发起更新请求,服务器返回现在最新的文件的清单、版本、修改日期等信息，客户端拿到和自己的文件进行比对，发现不同的就用FTP方式向服务器索取最新的，然后替换掉自己的就可以了。
用户信息.UpdateCommand = "update 用户 set grouptype='" ra1 "',usertype ='" ra2 "' where 用户_ID='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 不难的.
以下是完整模块
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)'-----------这里是数据表查询操作
你1.0里做了查找更新的功能么？通常比如做一段连到更新服务器，验证下最新版本信息比如服务器目录下放个记录版本号和新版位置的txt，有了就用单写的更新程序更新（不能更新正在运行的自己的关系）。至于没做这部分而要让原来的1.0自己“感应”到那是天方夜谭了。
