精华内容
下载资源
问答
  • VB操作ACCESS数据库实例,通过按键刷新,将Access数据库A中的全部数据或部分列数据同步到Access数据库B中。内含实际项目内容及数据库。
  • VB操作ACCess例子

    2012-08-26 12:31:18
    这个是一个VB操作ACCess,包括连接数据库(ACcess2003或ACcess2007),实现对表的添加、修改、查询(多条件查询)、删除、表与表的连接,控制文本录入等代码,适合VB操作数据库入门学习使用。
  • 在VB编程中通常要与数据库打交道,对于数据量较小的应用,一般选用Access作为数据库,因为Access数据库比较简单...关于用VB操作Access库表的方法有多种,一般初学者往往会使用数据控件,许多资料上也大都以此作为操...

    在VB编程中通常要与数据库打交道,对于数据量较小的应用,一般选用Access作为数据库,因为Access数据库比较简单,功能也比较齐全,数据的备份、拷贝都很方便,且程序发布时不需要额外单独安装其它的数据库管理软件。因此,在功能能够满足要求的条件下,Access数据库往往成为一些小型数据库软件的首选。

    关于用VB操作Access库表的方法有多种,一般初学者往往会使用数据控件,许多资料上也大都以此作为操作Access数据库的起点来介绍,因为这个方法使用起来非常简单,但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。

    第一种:使用数据库对象

    首先,要进行有关数据对象的声明,代码如下。

    Dim MyWs As Workspace

    Dim MyDB As Database

    Dim WordTab As Recordset

    生成工作区,打开数据库,然后再根据需要打开相应的库表。

    Set MyWs = DBEngine.CreateWorkspace″″ ″Admin″ ″″ dbUseJet

    Set MyDB = MyWs.OpenDatabase数据库名称 False False

    Set WordTab = MyDB.OpenRecordset″表名″ dbOpenDynaset

    这种方法的优点是代码比较简单,要求的环境为DAO 2.5/3.51,其中表名可以换成SELECT语句,即根据条件打开所需要的记录集,这种方法可脱离数据控件,可以比较方便灵活地操作数据库表,增加了程序的灵活性。

    提示:经过测试发现,这种方法只能打开Access97库表,对于Access2000库表却无能为力,会弹出库表格式不对的出错提示。另外,对数据环境的要求仍比较多。

    第二种:使用ADODB

    首先,声明一个链接变量,并根据需要声明记录集变量。

    Dim LocCnn1 As ADODB.Connection

    Dim LocRst1 As ADODB.Recordset

    建立与数据库的链接,如果数据库没有口令,最后一行可以不写(写上也不会错)。

    Set LocCnn1 = New ADODB.Connection

    LocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0User ID=Admin″ & _

    ″Data Source=″ & App.Path & ″数据库名称.mdb″& _

    ″Mode=Share Deny NoneExtended Properties=''Persist Security Info=False″ & _

    ″Jet OLEDBDatabase Password='asp561rbc'″

    这种方法虽然代码长一些,但对数据环境要求低,且结构清晰,所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方法一样,因而大量的操作数据库的代码相同,当数据库需要由Access扩充到一些大型数据库,或由一些大型数据库裁剪出一个简单数据库时,程序的移植会比较方便。

    另外,这种方法对于Access97及Access2000均能很好地支持,兼容性好。对于大量插入、删除、修改等操作,只在Connection层进行即可,既可提高速度又可减少代码。

    如果还要获取具体的记录集内容,则须再根据条件打开具体的库表,代码如下:

    Set LocRst1 = New ADODB.Recordset

    LocRst1.CursorType = adOpenKeyset

    LocRst1.LockType = adLockOptimistic

    LocRst1.Open ″SELECT  FROM 表名″ LocCnn1adCmdText

    提示:一般情况下,建议使用第二种方法。

    展开全文
  • 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操作Access数据库,代码编写好后一劳永逸,极大提高了效率。本人是VB小白,在网上查阅了一些资料后动手操作,记录以备查阅。工作环境:Windows操作系统,...

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

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

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

    数据库部分字段图

    147573514_1_20181119012711919

    数据库数据图

    147573514_2_20181119012712372

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

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

    1、创建窗体

    147573514_3_20181119012712653

    2、在窗体上放置按钮

    147573514_4_20181119012712809

    将窗体模式改为设计视图

    147573514_5_2018111901271391

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

    为按钮设置一个标题

    147573514_6_20181119012713231

    为按钮注册事件

    147573514_7_20181119012713559

    进入到VB编辑模式:

    147573514_8_2018111901271475

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

    147573514_9_20181119012714309

    语句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、保存窗体,并为窗体取名字

    147573514_10_20181119012714653

    5、运行

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

    147573514_11_20181119012714856

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

    展开全文
  • 第一次用VB来连接Access数据库,由于不了解VB语法,老是出现bug。现在看来,其实很简单,有好几种方法来连接,包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大,本文采用ADO对象来操作。过程如下: 准备...

    第一次用VB来连接Access数据库,由于不了解VB语法,老是出现bug。现在看来,其实很简单,有好几种方法来连接,包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大,本文采用ADO对象来操作。过程如下: 准备工作: 建立数据库 E:\operation.accdb;

    第一次用VB来连接Access数据库,由于不了解VB语法,老是出现bug。现在看来,其实很简单,有好几种方法来连接,包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大,本文采用ADO对象来操作。过程如下:

    准备工作: 建立数据库 E:\operation.accdb; 建数据表:selection;数据表中,建字段:User,Password,并添加一条记录

    点工程->引用 选中Microsoft Activex Data Objects 6.1 Library(注:选择最高版本就行)

    1、数据库查询

    首先添加控件:添加一个文本框,一个命令按钮

    Private Sub Command1_Click()

    Dim Conn As New ADODB.Connection '创建ADODB对象,用于连接数据库操作

    Dim Rs As New ADODB.Recordset '创建ADODB对象,用于返回取得的数据库内容

    Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" '连接数据库函数,第一个参数为数据库驱动,第二个参数为数据库路径

    sql = "Select Password From select where User='a'"

    'selection请换成你的实际数据表名

    Rs.Open sql, Conn, 1, 3 '查询数据库,第一个参数为数据库查询语句,第二个参数为数据库连接,第三个和第四个分别为对数据库的操作权限;

    If Rs.EOF Then

    MsgBox "没有找到此用户"

    Else

    Text1.Text = Rs("Password")

    End If

    Conn.close

    Rs.close

    End Sub

    2、数据插入

    首先添加控件:添加两个文本框,一个命令按钮

    Private Sub Command1_Click()

    Dim s1 As String

    Dim s2 As String

    Dim Conn As New ADODB.Connection

    Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"

    s1 = Text1.Text

    s2 = Text2.Text

    sql = "Insert Into selection Values('" & s1 & "','" & s2 & "')"

    Conn.Execute sql

    Conn.close

    End Sub

    3、删除数据库中的某个记录

    首先添加控件:添加一个文本框,一个命令按钮

    Private Sub Command1_Click()

    Dim s As String

    Dim Conn As New ADODB.Connection

    Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"

    s = Text1.Text

    sql = "Delete From selection Where User = '" & s & "'"

    Conn.Execute sql

    Conn.close

    End Sub

    mysql-tutorials-124754.html

    4、更新数据库某个记录

    首先添加控件:添加一个文本框,一个命令按钮

    Private Sub Command1_Click()

    Dim s As String

    Dim Conn As New ADODB.Connection

    Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"

    s = Text1.Text

    sql = "Update selection Set [Password] = '" & s & "' Where [User] = 'a'"

    Conn.Execute sql

    Conn.Close

    End Sub

    总结

    首先是建立数据库连接:

    Private Sub Command1_Click()

    Dim Conn As New ADODB.Connection '创建ADODB对象,用于连接数据库操作

    Dim Rs As New ADODB.Recordset '创建ADODB对象,用于返回取得的数据库内容

    Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" '连接数据库函数,第一个参数为数据库驱动,第二个参数为数据库路径然后,是对数据库各种操作语句。

    本文原创发布php中文网,转载请注明出处,感谢您的尊重!

    展开全文
  • VB操作access数据库

    千次阅读 2014-04-16 16:13:39
    第一次用VB来连接数据库,由于不了解VB语法,费了
  • 'VB中,当你打开一个数据集时,需要声明一个数据集对象,在它的下面会有一个字段集合,这个字段集合就是fields。 '使用方法: 'rs(数据集对象).fields("字段名称")或 'rs(数据集对象).Fields (字段索引号) 转载于:...
  • VB 操作 access ,求代码

    2013-11-22 21:27:56
    小弟想写一个VB 值班记录表,只会话窗体!求大虾给予代码支持。 数据名 gongsi.mdb 数据表 zhiban 数据库密码 123456 字段 1班 | 2班 | 3班 | 4班 |5班 | 6班 |7班 | 8班 |9班 | 10班 |11班 | 12班 |13班 | ...
  • '我想把a表中的3个字段的内容全部复制到b表中,但是这样不行啊,请大家帮帮忙 Dim cnn As New ADODB.Connection Dim rst As New ADODB.Connection Dim tem_id As Double Dim tem_name As Double ...
  • VB操作ACCESS数据库代码

    千次阅读 2006-06-20 14:55:00
    VB引用项目如下:Microsoft ADO Ext. 2.8 for DDL and SecurityMicrosoft ActiveX Data Objects 2.8 LibraryCOM+ Services Type LibraryMicrosoft DAO 3.6 Object LibrarySub CreateDatabase(mdbPath, mdbPassword)D
  • 查看所有操作日志:   '连接数据库 Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb" Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection ...
  • 各位问一下,我想在Access数据库中有个字段为是/否型数据,如何用VB向其用insert语句插入值
  • Set getrsp = cnn.Execute("SELECT * FROM gpsdata where cisu ='" & cisu & "' and Datediff(d,startdate,'" & tmpdate & " ') = 0 ORDER BY 时间") 数据库中startdate字段位DATE型,tmpdate...
  • vb Access操作

    2012-02-04 15:06:02
    vb Access操作
  • VB.NET操作ACCESS DEMO

    2016-04-07 10:45:59
    VB.NET操作ACCESS DEMO
  • vb.net操作access数据库示例,免分,给有需要的朋友。 vb.net操作access数据库示例,免分,给有需要的朋友。
  • VB.net操作Access数据库实例
  • VB6 操作ACCESS 源码

    2009-09-09 23:40:22
    VB6 操作ACCESS 添加 修改 删除 内含源码,新手不要见笑
  • VB6操作ACCESS文件

    2019-10-01 05:49:58
    VB6操作ACCESS文件 Option Explicit Const Dict_DB = "adatabase.mdb" '先要引用 Microsoft ActiveX Data Objects 2.8 Library Public cnn As ADODB.Connection Public rst As ADODB.Recordset, rst2 ...
  • 主要介绍了VB使用ADO操作Access数据库的相关资料,需要的朋友可以参考下
  • 一个vb6.0使用ado操作access的简单例子!
  • 1 Imports ADODB 2 Imports System.Text 3 Imports System.Data.OleDb 4 Imports System.IO 5 6 Public Class AccessorHelper ... 8 Private _connectionString As String = "provider=mi...
  • 本节课程,让我们通过一个典型的例子,来诠释VB操作数据库的全部过程,熟悉如何使用VB+ACCESS实现完整的数据库操作,即如何实现VB对ACCESS数据库的增、删、改、查。并将查询的数据显示在表格控件中。该例子为“学生...
  • Access VB完成的公司人力资源管理系统源程序,其实不能称为是系统,只能说是程序,或者说是...主要是一些人力资源信息的添加、维护、查询等,如果你想学习VB操作Access或SQL方面的技巧,那么下载本代码是正确的选择。
  • VB.net 操作Access数据库的一些常用方法,代码如下 Imports System Imports System.Data.SqlClient Imports System.Configuration Imports System.Collections.Generic Imports System.Text Imports System.Data ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 437
精华内容 174
关键字:

vb操作access