vb.net OleDbCommand更新access数据库的奇怪问题!以下是模块模块1
完整的模块
进口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的)-----------数据表的查询操作 。
2007-2-6 如何使用vb.net和sql2000进行连接和数据库操作(查询插入更新删除),Imports System.Data.OleDb
Imports System.DBNull
Imports System.Data.DataSet
Imports System.Data.Common.DataAdapter
Imports System.Data
Imports System.Configuration
Imports ADODB
Public Class DBConnect_SK21
Dim DataSet As Data.DataSet
Dim DataAdapter As Data.Common.DataAdapter
Dim OleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
Dim CNString AS String
CNString="Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
//返回DateSet
Public Function GetDataSet(ByVal StrSql As String) As DataSet
Dim DataConnection As OleDb.OleDbConnection
Try
DataConnection = New OleDbConnection
DataConnection.ConnectionString = CNString
DataAdapter = New OleDbDataAdapter(StrSql, DataConnection)
DataSet = New DataSet
DataSet.Clear()
DataAdapter.Fill(DataSet)
DataConnection.Close()
Catch
MsgBox(Err.Description)
End Try
If DataSet.Tables(0).Rows.Count0 Then
Return DataSet
Else
Return Nothing
End If
End Function
这是一个查询操作 , 插入和更新也就是sql语句的事情了 。自己揣摩下吧 。
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怎么获取本地文件夹中最新更新的文件或图片 。objFileInfo.CreationTime判断文件vb.net查询更新的创建时间呗
VB.NET用UpdateCommand更新数据库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
vbnet更新sql数据库速度很慢 。根据查询vbnet相关资料得知,vbnet更新sql数据库速度是很慢的 。vbnet的sql语句能查询到库中的数据,但是速度是相当的慢 。
【vb.net查询更新 vb查询功能】关于vb.net查询更新和vb查询功能的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- linux重复上一步命令,linux自动重复命令
- sap如何查询入库单,sap采购订单入库查询
- 打开微信视频号死机,打开微信视频号死机什么原因
- 抖音开直播怎样投抖加,抖音直播中怎么投抖加
- 包含vb.net数字时钟的词条
- 五金店如何推广销量高,五金店怎么宣传广告
- 异界大作战游戏日本服务器,异界大作战先遣服
- 简历制作网站,简历制作网站免费
- mysql怎么知道好了 mysql怎么看谁删除了数据