数据库访问
来源:互联网 发布:怎么样注册域名 编辑:程序博客网 时间:2024/03/29 08:42
学了这么久,到现在,还是不能把数据库操作的一个简单的类写出来,到现在,只能写出一点基本的东西,数据库访问,数据库的基本操作,,
简单的写一点,运用OLEDB进行数据库连接,比较低等....
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb
'//引入需要的名称空间,特别是最后一个,是必需的。
Module DataOper
'// 定义工程级/项目级全局变量,在本项目生命周期中都适用。
Public MyDBAdpt As OleDbDataAdapter
'//定义一个数据适配器。
Public DBConn As OleDbConnection
'//定义一个数据连接。
Public DataSet As DataSet = New DataSet
'//定义一个数据集并实例化。
Public myTable As DataTable
'//建立表对象
Public DataRow As DataRow
'//定义一个数据行。
public RowNumber as integer
'//定义一个整型变量存放当前行数
Public opt, message As String
Public IsError As Boolean
'//定义一个布尔型变量
Public DBCmdBuild As OleDbCommandBuilder
Public DBCmd As OleDbCommand
Public connection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= CIMS.mdb"
'连接字符串
'判断字符串是否为空的函数
Public Function TestText(ByVal txt As String) As Boolean
If (Trim(txt)) = "" Then
TestText = False
Else
TestText = True
End If
End Function
Public Function ConnToDB(ByVal SQLString As String, ByVal MSGstring As String, _
ByVal CPTstring As String) As Boolean
' Dim strsql As String
Try
IsError = False
DBConn = New OleDbConnection(connection) '//实例化一个新的数据库连接。
DBConn.Open() '打开连接
MyDBAdpt = New OleDbDataAdapter(SQLString, DBConn) '//实例化一个新的数据适配器,并赋值。
' DataSet = New DataSet
DataSet.Clear() '//清空数据集中的元来数据架构和数据。
MyDBAdpt.Fill(DataSet) '将数据适配器获取的数据映向填充到数据集。
' DBConn.Close() '//关闭连接
'Return DataSet
Catch ex As Exception
' MessageBox.Show(ex.Message)
MessageBox.Show(MSGstring, CPTstring, MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
'//显示需要发出的错误、警告或者提示消息的内容和标题。
IsError = True
'//发生了错误事件,将IsEroor赋值为真。
Exit Function
'//出现错误,则退出函数,即断开与数据库的连接。
Finally
DBConn.Close()
End Try
End Function
'数据库操作函数
Public Function OleDbOper(ByVal SQLString As String, ByVal table As String, ByVal MSGstring As String, _
ByVal CPTstring As String) As Boolean
Try
IsError = False
DBConn.Open()
DBCmd = New OleDbCommand(SQLString, DBConn)
DBCmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(MSGstring, CPTstring, MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
'//显示需要发出的错误、警告或者提示消息的内容和标题。
IsError = True
'//发生了错误事件,将IsEroor赋值为真。
Finally
DBConn.Close()
End Try
End Function
Public Function UpdateDB(ByVal MyDataset As DataSet)
Try
DBCmdBuild = New OleDbCommandBuilder(MyDBAdpt)
MyDBAdpt.Update(MyDataset)
Catch
MessageBox.Show(Err.Description, "数据更新失败", _
MessageBoxButtons.OK, MessageBoxIcon.Hand)
' Return False
End Try
' Return True
End Function
End Module
虽然以上代码能够进行简单的数据库连接,数据更新,但在实际过程中,还存在一些问题,慢慢解决后,再进行更新了
- 数据库访问
- 数据库访问
- 数据库访问
- 数据库访问
- 访问数据库
- 数据库访问
- 数据库访问
- 访问数据库
- 数据库访问
- 访问数据库
- 数据库访问
- 数据库访问
- 数据库访问
- 数据库访问
- 访问数据库
- 数据库访问
- 【数据库访问】C++通过ADO访问数据库
- JDBC-ODBC访问数据库,JDBC访问数据库
- RAID介绍
- exp/imp导出导入工具的使用
- 第一次上博客
- 在 Web DataGrid 中当鼠标移到某行与离开时行的颜色发生改变(结合javascript)
- Eclipse快速上手Hibernate--5. 关联映射(一对一) 选择自 javamxj 的 Blog
- 数据库访问
- web打印,巧妙实现隐藏不想打印的页面元素,以及页眉和页脚
- 探讨ORACLE数据库的数据导入方法
- BBS生存的几重境界
- 一种DWT域基于IFS的数字水印算法
- 国内完全免费的电子书籍下载
- 求教
- 如何连接oracle数据库及故障解决办法
- SDL设置转换色