大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
以下是完整模块
成都创新互联公司坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的阳信网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
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的最新版本号是2010,和VB有很大不同,基本上你可以把它看成是全新的语言,VB6不再升级了,如果把VC作为一个成熟的语言,那么VB.NET和VC.NET是同等地位,而VB6只能算是一个玩具,仅仅作为培训对编程的认识有用。
截至今天2016/12/02,VB.net最新版本是VB 14,
对应的IDE为Visual Studio 2015
从VB 7开始,每次.net平台更新,VB版本也会不断更新。
VB历史版本如下(.net平台)
没有 VB13
VB12 对应 VS2013
VB11 对应 VS2012
VB10 对应 VS2010
VB9 对应 VS2008
VB8 对应 VS2005
VB7 对应 VS2003
VB6 是经典版本,它不是 .net平台的
Try
objconn.Open()
Dim dt As New DataTable
Dim strsql = "select * from Info"
objadap.SelectCommand = New OleDb.OleDbCommand(strsql, objconn)
objadap.Fill(objDSet, "Info")
objDSet.Clear()
Dim cmdbuilder As New OleDb.OleDbCommandBuilder(objadap)
objadap.UpdateCommand = cmdbuilder.GetUpdateCommand()
‘此处修改数据
objadap.Update(objDSet.Tables("Info"))
objconn.Close()
MsgBox("保存成功", , "提示") '******
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)
End Try
VB 是 COM (Common Object Model) 平台的
VB.Net 是 .Net Framework 平台的
自从 VB6.0 以后,有 VB.Net、VB.Net 2002、VB 2005 和 VB 2008
目前最新版是 VB2008。
用 VB.Net 制作的程序运行时需要电脑安装 Microsoft .Net Framework 运行库。
和 Java 比较,VB 主要差在它的程序只能在 Windows 下运行,而 Java 的程序则可以跨平台。
一般的 Windows 下窗口程序 VB 都可以做出来。
我猜测,access中,sno是int类型。
你把where [sno]='" User "'" 中的单引号去掉试试。
where [sno]="User
--------
sno[数字]
update [Students] set [password]='password' where [sno]=1
sno[字符]
update [Students] set [password]='password' where [sno]='sno'
你在实际中多试试吧,我都不爱用access。
记得以前更新字段的时候,老是没反映。
isread(smallint)
update [Table] set isread='1' where id=1
居然更新不了。