数据库访问

原创 2005年04月28日 14:03:00

学了这么久,到现在,还是不能把数据库操作的一个简单的类写出来,到现在,只能写出一点基本的东西,数据库访问,数据库的基本操作,,

简单的写一点,运用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

虽然以上代码能够进行简单的数据库连接,数据更新,但在实际过程中,还存在一些问题,慢慢解决后,再进行更新了

java数据库访问服务汇总

  • 2014年11月11日 22:09
  • 46KB
  • 下载

数据库访问公共类

  • 2015年03月28日 21:33
  • 6KB
  • 下载

Spring数据库访问之ORM(三)

之前我们使用的是HibernateTemplate来进行对象的持久化的,其实在DAO实现类中我们还可以使用Hibernate的上下文Session来持久化对象。也就是通过SessionFactory对...

数据库访问类(SqlHelper)

  • 2016年02月26日 13:30
  • 1KB
  • 下载

ASP.NET && 实验六 && ADO.NET数据库访问技术(一)

实验六  ADO.NET数据库访问技术(一)   一. 目的和要求 掌握使用ADO。NET访问SQL Server数据库.掌握使用ADO.NET进行增加、删除、修改数据的方法。 二.实验课时 2课...

数据库访问技术

  • 2014年12月24日 20:26
  • 1.11MB
  • 下载

servlet_15 数据库访问

本实例中我们需要把 mysql-connector-java-5.1.39-bin.jar 拷贝到 tomcat 下 lib 目录 Servlet 数据库访问实例: package MyS...

数据库访问

  • 2013年10月24日 20:44
  • 21KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库访问
举报原因:
原因补充:

(最多只允许输入30个字)