数据库访问

原创 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

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

C#与数据库访问技术总结(一)之体系结构

ADO.NET(ActiveX Data Object.NET)是Microsoft公司开发的用于数据库连接的一套组件模型,是ADO的升级版本。     程序员能使用ADO.NET组件模型,方便高效...
  • lzm18064126848
  • lzm18064126848
  • 2016年12月07日 14:02
  • 1363

Java 通用的数据库访问程序

为了提高访问数据库的
  • lyzhyyy
  • lyzhyyy
  • 2014年08月17日 20:44
  • 258

论数据库访问组件的选择

前言 火地晋做了一件有意义的事情。把这些ORM对比了一下(http://www.cnblogs.com/yelaiju/p/3209506.html)。 这里要讨论一下我们用一个什么样的策略来选择...
  • dyllove98
  • dyllove98
  • 2013年07月27日 19:43
  • 1569

ADO数据库访问技术总结

1.要在程序中使用ADO对象,需要在头文件中加入
  • dj2442945707
  • dj2442945707
  • 2014年04月30日 20:44
  • 342

《数据库访问接口》

不同的程序设计语言会有各自不同的数据库访问接口,程序语言通过这些接口,执行SQL语句,进行数据库管理,主要的数据库访问接口有: ODBC(开放数据库互连) ODBC使用SQL作为访问数据的标准,这一接...
  • li1060849458
  • li1060849458
  • 2018年02月04日 11:00
  • 14

数据库访问方式

数据库访问方式
  • wyzxg
  • wyzxg
  • 2010年10月18日 18:26
  • 9593

数据库访问技术

一、ODBC ODBC的由来 1992年Microsoft和Sybase、Digital共同制定了ODBC标准接口,以单一的ODBC API来存取各种不同的数据库。随后ODBC便获得了许多...
  • caowei880123
  • caowei880123
  • 2013年11月14日 17:32
  • 3476

ADO.net数据库访问技术(一)

Vb.net 视频看了一小半,借了一本书再看看,发现。
  • hanxintong9
  • hanxintong9
  • 2014年05月19日 16:53
  • 1622

数据库访问

 看完了数据库访问这一章,可以说是受益匪浅,过去也经常做一些有关数据库访问的小程序,基本上在连接数据库这里就是copy代码,没什么深刻的认识,只知道这样就连接上了。现在才比较系统的学习了有关数据库访问...
  • jabbyj
  • jabbyj
  • 2007年04月06日 18:03
  • 579

数据库在线

www.onlinedatabase.cn
  • Turkey119
  • Turkey119
  • 2005年11月17日 10:37
  • 602
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库访问
举报原因:
原因补充:

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