精华内容
下载资源
问答
  • VBAccess数据库中调用图片并显示,可上一条、下一条的浏览,可附带上图片说明和标题等,再扩展一下可以做成一个基于数据库的图片管理系统,这个只是一个基本雏形,只是为VB基础用户展示如何从数据库中读取图片,并...
  • VB+Access实例:使用ADO连接Access数据库。Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ...
  • 可以在运行程序后选择ACCESS数据库,适合软件连接多数据库。
  • vb6.0 读取access(mdb)数据库的代码,代码很简单,很适合学习vb6.0操作数据库的菜鸟学习
  • VB操作Access数据库小记

    万次阅读 2018-08-23 10:41:25
    因工作需要,同时为了避免大量繁琐工作,特研究了一下VB操作Access数据库,代码编写好后一劳永逸,极大提高了效率。本人是VB小白,在网上查阅了一些资料后动手操作,记录以备查阅。 工作环境:Windows操作系统,...

            因工作需要,同时为了避免大量繁琐工作,特研究了一下VB操作Access数据库,代码编写好后一劳永逸,极大提高了效率。本人是VB小白,在网上查阅了一些资料后动手操作,记录以备查阅。

    工作环境:Windows操作系统,Microsoft Access2010(需安装完整版)

             数据库部分字段和内容如下图:

    数据库部分字段图

    数据库数据图

             有了米,开始下锅,大致步骤是:新建窗体——放置按钮——为按钮编写事件代码。

             打开上图文件名为users的Access数据库(库中包含一个users表,表内有上千条数据),然后按如下步骤操作。

    1、创建窗体

    2、在窗体上放置按钮

    将窗体模式改为设计视图

    3、设置按钮属性并编写事件代码

    为按钮设置一个标题

     为按钮注册事件

    进入到VB编辑模式:

    编写VB代码,在Private Sub Command0_Click()和End Sub之间编写代码,如下图:

              语句str1、str2的完整代码如下:

    str1 = "UPDATE users SET carWeight=carWeight-overWeight-int(rnd(billNum)*800),overWeightPercent='0' WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
    str2 = "UPDATE users SET carWeight=int(carWeight/10)*10,overWeight=0 WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"

             特别需要注意的是:Access数据库中SQL语句中日期值要用单引号引起来,在VB语言中,一个单引号开头表示注释。SQL语句是字符串,字符串用双引号引起来,里面的日期值再使用单引号引起来。另外由于在声明变量时startDate和endDate是字符串值,在SQL语句拼接变量时,语句中的单引号不能漏掉,否则报错。

    4、保存窗体,并为窗体取名字

     

     

    5、运行

    进入“窗体视图”,点击窗体上的按钮,就可以执行自己编写的VB代码了,运行结果如下图:

     

             VB语法和函数的使用均查阅网络和MSDN手册,经过不断尝试,出错调试终得成功!

     

    展开全文
  • 看到很多朋友不知道用VB.net如何读取ACCESS数据库,本人刚才简单做了一个实例,所有代码项目全,可直接用VS2010打开
  • 使用VisualBasic如何查询ACCESS数据库中的表
  • VB中连接access数据库的几种方法

    千次阅读 2019-01-02 16:40:55
    使用ADO对象,通过编写代码訪问数据库 Connection 对象 ODBC数据源 使用ADO Data 控件高速创建数据库连接 有三种连接方法 Data Link文件 使用ODBC数据源名称 使用连接字符串 使用数据环境设计器创建数据库...

    注:以下只是概述了VB与ACCESS连接的三种方法,每种方法都可与ACCESS数据库进行连接。
    一.使用ADO对象,通过编写代码訪问数据库
    1. Connection 对象
    2. ODBC数据源
    二.使用ADO Data 控件高速创建数据库连接
    有三种连接方法
    1.Data Link文件
    2.使用ODBC数据源名称
    3.使用连接字符串
    三. 使用数据环境设计器创建数据库连接
    1.首先加入环境引用。
    2.然后找到数据源进行连接
    不管是哪一种连接,都是先有一个路径,通向要连接的数据源,和数据源建立关系,在连接。就好比从北京到上海,能够做汽车,能够做火车,还能够做飞机,汽车走快速,火车走铁路,飞机走航线,过程不一样,但结果是一样的,都是到达上海目的地。

            在操作这三种连接方式的时候,会发现有反复的操作。
    
            Data 控件连接中,ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中,不同是,直接使用ODBC数据源设置好路径后,再用connection对象连接就可以;Data控件则不用Connection 对象,有控件,设置好路径了,就直接连到啦。
    
            数据环境设计器和ADO 对象,都用到了connection连接。不同的是,数据环境设计器中,connection连接途径是和data控件中字符串的连接步骤一致。
    
            总结不同:ADO对象连接须要编写代码,其它的不用编写代码。
    
         以下具体介绍每一种连接方法的具体步骤:
    
          1,使用ADO connection对象
    
                首先,要建立ADO引用,定义connection这个类,然后实例化对象。
    
                代码完毕例如以下:
        Dim objCn As New Connection, objRs As New Recordset        
     objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"
     objCn.Open  
          2,使用ODBC数据源
    
                 首先,打开电脑上的ODBC数据源,建立关系。
    
                 过程例如以下:
    
                 1),打开电脑上的ODBC数据源
    

    在这里插入图片描述
    2)点击加入
    在这里插入图片描述
    3)命名

    4)和数据库源建立关系
    在这里插入图片描述
    5)用代码实现连接
    dim objCn As Connection
    Set objCn = New Connection
    objCn.Open “DSN=实例2DSN”
    3,ADO Data 控件创建连接
    在这里插入图片描述
    2)从三种连接资源中选择一种。
    使用data Link 文件:直接点击浏览,找到包括连接字符串的.udl文件就可以
    使用ODBC数据源连接,单击新建
    在这里插入图片描述
    选择用户数据库,之后的操作跟2中步骤一样。
    使用连接字符串:单击生成
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述
    4,使用数据环境设计器创建数据库连接
    加入引用
    在这里插入图片描述
    在这里插入图片描述
    右击创建连接,在右击想要连接的属性,之后的操作跟data控件中使用字符串中的操作一致。

    展开全文
  • 学习记录:VB.NET.操作ACCESS数据库

    千次阅读 2019-06-13 16:21:58
    从98年到现在,VB6使用了20多年,真的舍不得扔掉,但是随着新计算机预装操作系统的版本越来越高,做好...今天学习在VB.NET上操作ACCESS数据库,为防止将来忘记,记录于此。 一、清空某张表中的全部数据 Dim cn As...

    从98年到现在,VB6使用了20多年,真的舍不得扔掉,但是随着新计算机预装操作系统的版本越来越高,做好的安装包在安装时遇到的问题越来越多,无奈之下只能转向使用VB.NET了。安装了VS2005来学习,这个家伙不错,个头不是特大,在xp上跑的很顺畅,哈哈。

    今天学习在VB.NET上操作ACCESS数据库,为防止将来忘记,记录于此。

    一、清空某张表中的全部数据

            Dim cn As OleDbConnection
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
            cn.Open()                                                                                                                      '打开当前文件夹下comm.mdb文件

            Dim cmd As New OleDbCommand()
            cmd.Connection = cn
            cmd.CommandText = "delete * from tbTest"                                                              '清空表tbTest
            cmd.ExecuteNonQuery()

            cmd.Dispose()                                                                                         '释放资源
            cn.Close()
            cn.Dispose()                                                                                            '释放资源 感觉很像VB6里的 set xx=nothing
            MessageBox.Show("全部删除完成")

    二 向某张表插入数据

            Dim cn As OleDbConnection
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
            cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件

            Dim cmd As New OleDbCommand()
            cmd.Connection = cn

            Dim id As Long
            Dim sex As String
            Dim address As String

            id = 1
            sex = "男"
            address = "松山区"
            cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
            cmd.ExecuteNonQuery()

            id = 2
            sex = "男"
            address = "红山区"
            cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
            cmd.ExecuteNonQuery()

            id = 3
            sex = "女"
            address = "元宝山区"
            cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
            cmd.ExecuteNonQuery()


            cmd.Dispose()
            cn.Close()
            cn.Dispose()
            MessageBox.Show("插入3行测试完成")
     

    三 修改

            Dim cn As OleDbConnection
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
            cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件

            Dim cmd As New OleDbCommand()
            cmd.Connection = cn
            Dim strNewAddress As String
            strNewAddress = "平庄"
            Dim strCondition As String
            strCondition = "元宝山区"
            cmd.CommandText = "update tbtest set address=" & Chr(39) & strNewAddress & Chr(39) & " where address=" & Chr(39) & strCondition & Chr(39)
            cmd.ExecuteNonQuery()


            cmd.Dispose()
            cn.Close()
            cn.Dispose()
            MessageBox.Show("修改测试完成")

    四 删除

            Dim cn As OleDbConnection
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
            cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件

            Dim cmd As New OleDbCommand()
            cmd.Connection = cn
            Dim strCondition As String
            strCondition = "平庄"
            cmd.CommandText = "delete from tbtest where address=" & Chr(39) & strCondition & Chr(39)
            cmd.ExecuteNonQuery()


            cmd.Dispose()
            cn.Close()
            cn.Dispose()
            MessageBox.Show("删除测试完成")
     

    五 查询

            Dim cn As OleDbConnection
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
            cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件

            Dim lngIDCondition As Long
            lngIDCondition = 2
            Dim strSexCondition As String
            strSexCondition = "男"

            Dim cmd As New OleDbCommand() 
            cmd.Connection = cn
            cmd.CommandText = "select * from tbTest where id=" & lngIDCondition & " and sex=" & Chr(39) & strSexCondition & Chr(39)

            Dim dr As OleDbDataReader
            dr = cmd.ExecuteReader()

            If dr.HasRows() = True Then
                Do While dr.Read() = True                                   '如果有记录,就循环打印符合条件的记录的address字段中内容
                    Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
                Loop
            Else
                MessageBox.Show("搜索失败")
            End If
            dr.Close()
            '结果为
            '2 男 红山区

            '查询全部
            cmd.CommandText = "select * from tbTest order by id"
            dr = cmd.ExecuteReader()
            If dr.HasRows() = True Then
                Do While dr.Read() = True                                               '如果有记录,就循环打印符合条件的记录的address字段中内容
                    Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
                Loop
            End If
            '结果为
            '1  男  松山区
            '2  男  红山区

            dr.Close()
            cmd.Dispose()
            cn.Close()
            cn.Dispose()
     

    六 总结

    练习后发现,除了查询,VB.NET操作ACCESS数据库的方法与VB6使用差不多,仅仅变量类型不一样。

    但是查询要麻烦些。

     

     

     

     

     

     

     

     

     

    展开全文
  • vb access 数据库源代码

    2008-11-23 19:45:09
    很不错的vb,access数据库实例.这是一个很实用的仓库管理系统,不要错过.
  • Public cn As ADODB.Connection Public rs As ADODB.Recordset Private Sub Form_Load() Set rs = New ADODB.Recordset OpenDB ... Do While Not rs.EOF Combo1.AddItem rs("Description") rs.MoveNext ...End Sub
  • 详解VB中连接access数据库的几种方法

    千次阅读 2017-03-26 22:21:19
    VB中,连接ACCESS数据库的方法主要有下面三种    使用ADO对象,通过编写代码访问数据库  Connection 对象  ODBC数据源  使用ADO Data 控件快速创建数据库连接  有三种

    在VB中,连接ACCESS数据库的方法主要有下面三种

     

    •    使用ADO对象,通过编写代码访问数据库

                          Connection 对象

                                   ODBC数据源

    •    使用ADO Data 控件快速创建数据库连接

                          有三种连接方法

                                                 Data Link文件

                                                 使用ODBC数据源名称

                                                 使用连接字符串

    •    使用数据环境设计器创建数据库连接

                         首先添加环境引用。

                         然后找到数据源进行连接

     

     

                无论是哪一种连接,都是先有一个路径,通向要连接的数据源,和数据源建立关系,在连接。就好比从北京到上海,可以做汽车,可以做火车,还可以做飞机,汽车走高速,火车走铁路,飞机走航线,过程不一样,但结果是一样的,都是到达上海目的地。

               

                在操作这三种连接方式的时候,会发现有重复的操作。

     

                Data 控件连接中,ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中,不同是,直接使用ODBC数据源设置好路径后,再用connection对象连接即可;Data控件则不用Connection 对象,有控件,设置好路径了,就直接连到啦。

                数据环境设计器和ADO 对象,都用到了connection连接。不同的是,数据环境设计器中,connection连接途径是和data控件中字符串的连接步骤一致。

     

                总结不同:ADO对象连接需要编写代码,其他的不用编写代码。

                 

     

            

     

     

             下面详细介绍每一种连接方法的详细步骤:

     

              1,使用ADO connection对象

     

                    首先,要建立ADO引用,定义connection这个类,然后实例化对象。

                    代码完成如下:

     

    [vb]  view plain  copy
     print ?
    1.    <span style="font-size:18px;">Dim objCn As New Connection, objRs As New Recordset          
    2. objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"  
    3. objCn.Open    
    4. n>  

     

     

              2,使用ODBC数据源

                     首先,打开电脑上的ODBC数据源,建立关系。

                     步骤如下:

                     1),打开电脑上的ODBC数据源

                              如下图所示:

     

     

     

                     2)点击添加

     

     

                    3)命名

     

                     4)和数据库源建立关系

     

     

                     5)用代码实现连接

     

    [vb]  view plain  copy
     print ?
    1. <span style="font-size:18px;">       dim objCn As Connection  
    2.        Set objCn = New Connection  
    3.        objCn.Open "DSN=实例2DSN"  
    4. </span>  

     

     

              3,ADO Data 控件创建连接

     

                     1)右击data控件,选择ADODC属性

     

     

     

                            

                      2)从三种连接资源中选择一种。

     

                                使用data Link 文件:直接点击浏览,找到包含连接字符串的.udl文件即可

     

     

                                使用ODBC数据源连接,单击新建

     

     

                                                      

                                                        选择用户数据库,之后的操作跟2中步骤一样。

     

     

                                使用连接字符串:单击生成

                                            

     

     

     

    测试连接

     

              4,使用数据环境设计器创建数据库连接

     

                             添加引用

     

     

     

     

                          右击创建连接,在右击想要连接的属性,之后的操作跟data控件中使用字符串中的操作一致。


    from: http://blog.csdn.net/lishuangzhe7047/article/details/7837657

    展开全文
  • 在网上看到很多关于数据库操作的方法和方式,但对于我们基础不扎实的VB小白,少了一步,就搞不出程序,所以在这里给大家提供完整版的ACCESS数据库VB界面的更新,以及通过点击按钮,将数据存入ACCESS数据库。...
  • VB.NET+Access数据库实现数据的修改添加删除及数据库运算,帮助初学用户快速入门数据库开发
  • 同事用access存的数据打不开了,发给了我一个.mdb的文件,我用access2010打开出现 下面的错误![图片说明](https://img-ask.csdn.net/upload/201809/19/1537328744_824758.png) 要怎么解决这个问题啊?又打不开,什么...
  • Vb将图片放入Access数据库更新并保存,从标题就能看出本程序主要演示如何将图片存入数据库,这里图片对格式要求很宽,平时的BMP/JPG/GIF都可以保存,打开程序后,浏览到保存数据的数据库,程序会自动索引到图片信息...
  • 在VS2013平台下,用VB.net 连接Access数据库

    万次阅读 热门讨论 2016-04-17 20:41:12
    从开始学习计算机,我们使用的一直是SQL数据库。这次接触了Access数据库,我将从Access创建到连接向大家分享一下我在Access数据库中的收获。
  • 一、ADO.NET概述 ... .net数据提供程序用来与数据库的连接,如SQLServer.net数据提供程序——System.Data.SqlClient, 访问SQl2000或以上版本;OleDb.net数据提供程序——System.Data.OleDb,主要访问Ac...
  • vb6.0连接access数据库

    2021-10-28 17:58:16
    本文主要介绍vb6.0实现数据库的连接方法: Dim Conn As ADODB.Connection '定义数据库连接工具 Set Conn = New ADODB.Connection '初始化 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False...
  • VB6.0编写 ADO对象连接操作Access数据库 VB6.0编写 ADO对象连接操作Access数据库
  • 'VB中,当你打开一个数据集时,需要声明一个数据集对象,在它的下面会有一个字段集合,这个字段集合就是fields。 '使用方法: 'rs(数据集对象).fields("字段名称")或 'rs(数据集对象).Fields (字段索引号) 转载于:...
  • VB6.0在读取2000及以上ACCESS数据库是会出问题,程序内部含说明,解决读取高版本数据库的问题
  • 功能:点击button1能实现弹出文件打开对话框,用户选择数据库并将之导入到form中的datagridview中。初学者可以参考一下。
  • VB数据库access的模糊查询代码

    千次阅读 2018-09-19 13:58:33
    rs.Open "person", conn, , adCmdTable '打开数据表EmTabl Set MSHFlexGrid1.DataSource = rs '打开数据控制源为rs对象 rs.Close '关闭recordset对象 conn.Close '关闭connection对象 End Sub Private Sub ...
  • Visual Basic连接加密的Access数据库(方法一)
  • vb6.0 Access数据库

    千次阅读 2016-05-02 16:41:51
    '代码出处:...'在工程中引用Microsoft ActiveX Data Object 2.6或者更高的版本 Dim db As New ADODB.Connection '声明数据库对像 Dim rs As New ADODB.Recordset '声明表对像 Dim mstream As A
  • ACCESS数据库: VB环境下方法一:用代码链接 步骤一: 在 工程引用Microsoft ActiveX Data Objects 2.8 Library'2.5 2...
  • 我见过许多代码,在从ACCESS数据库读取图像数据后,往往需要借助一个临时文件进行转换才能显示,其实借助API,完全可以直接显示,而不需要临时文件,此外,大家还可以使用OleCreatePictureIndirect函数转图像数据...
  • 一、Microsoft Access数据库引擎——Jet、ACE 1、Microsoft.Jet.OLEDB.4.0提供程序 适用于Microsoft Access 2007以前的版本,如Microsoft Access 2000、Microsoft Access 2003等。 2、Microsoft.ACE.OLEDB.12.0...
  • DataAdapter与数据源提供程序相关,操作ACCESS数据库数据提供程序为OleDb.net,命名空间为System.Data.OleDb,相应的DataAdapter对象在System.Data.OleDb空间里对应的是OleDbDataAdapter对象。 而DataTable对象和...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,560
精华内容 3,024
关键字:

vb打开access数据库