新手学做VB数据操作(Access篇)
读取数据库方式ADO（直接引用Miscrosoft ActiveX Data Objects 2.5 Library，然后在定义就可以了）
使用显示数据控件ListView
ACCESS数据库
1，首先直接引用Miscrosoft ActiveX Data Objects 2.5 Library（2.6到2.8也可以）
2，最重要的2个定义：（如果你窗体多就放到Module模块去，这样所有的窗体都可以使用，以免每个窗体都在定义一次）
Public Cnn As New ADODB.Connection
Public Rs As New ADODB.Recordset
模糊的说下New ADODB.Connection是创建一个新的连接（数据源），New ADODB.Recordset创建一个新的数据集。
3,还有几个ADO数据操作语句要记住：
Rs.MoveNext（数据集里面的下一条记录）
Cnn.Close（关闭数据源）
Rs.Close（关闭数据集）
Rs.Update（更新数据集）
Rs.Fields("字段")（提取某个表的某个字段的值）
Rs.AddNew（向数据集添加新的数据，也就是所谓的向数据库添加数据）
Rs.Delete（向数据集删除某个的数据，也就是所谓的向数据库删除某个指定的数据）
4，添加，删除，读取，修改这几个句子都有了，该如何运用呢？大家先来看一段完整的读取数据：
Public Cnn As New ADODB.Connection
Public Rs As New ADODB.Recordset
'（定义一个处理ListView1控件的函数Calllistview() ）
Dim t As ListItem
Private Sub Calllistview(i As Integer)
Set t = ListView1.ListItems.Add(, , Rs.Fields(0))
t.SubItems(i) = Rs.Fields(i)
End Sub
Function con()
Dim strcn As String
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ac.mdb" '这个是ACCESS链接的
Cnn.Open strcn '连接数据库，打开数据源
Rs.CursorLocation = adUseClient '初始化数据绑定
End Function
'自定义一个显示数据的inLoad()函数，该函数显示的是txt表里面的No_one 字段
Private Sub InLoad()
'（初始化ListView列表）
ListView1.ListItems.Clear '清空列表
ListView1.View = lvwReport'ListView1的属性设置
ListView1.GridLines = True'ListView1的属性设置
ListView1.FullRowSelect = True'ListView1的属性设置
ListView1.ColumnHeaders.Add , , "序号", 1900 '第一列，数字是列的宽ListView1.ColumnHeaders.Add , , " 数据", 1900 '第二列
Call con '连接数据库
aSing = "select * from txt where No_one" 'SQL语句的大意是，读取txt这个表里面字段叫No_one的所有内容
Rs.Open aSing, Cnn, 3, 3 '打开指针执行SQL语句，
Do While Not Rs.EOF '循环直到指针的最后一个值
Call Calllistview(1)'执行函数Calllistview给ListView的每一行一列都赋上值
Label1.Caption = "共有" & ListView1.ListItems.Count & "结果！"
Rs.MoveNext '继续移动指针到下一个值
Loop '循环语句
Rs.Close '循环完后就关闭记录集
Cnn.Close '关闭数据源
End Sub
'这样就很连贯，可以再Form_Load事件中使用很简单只要一句call
Private Sub Form_Load()
Call InLoad
End Sub
图解：
引用部件：Miscrosoft ActiveX Data Objects 2.5 Library
添加部件：Microsoft Windows Common Contrls 6.0(SP6) 因为ListView控件在里面，它的图标为：
5，读取数据会了，我们在来操作数据比如修改
用VB将一个文本文件中的数据导入到Access的某个数据表中
课程设计任务书 一、课程设计时间 2008~09第2学期第15~16周，共计2周，40学时。 二、课程设计内容 将一个文本文件（file30_数据的导入.txt）中的数据导入到Access的某个数据表中。 提示： ①先在Access数据库中创建出相应的表。 ②一方面，用ADO数据控件打开表；另一方面用文件读取术读取给定的文本文件中的内容，并添加到数据库表中。 三、课程设计要求 程序质量： ?贯彻事件驱动的程序设计思想。 ?用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 ?代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ?课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语
目录 需求分析 (4) 设计分析 (5) 关键技术 (6) 总结 (10) 完整的源程序 (11) 参考文献 (11)
需求分析 数据的导入是将文本文件中的数据读取到数据库指定的表中。由于文本文件中的数据不方便统计、管理，通常要将其导入数据库中，所以设计一个程序直接实现数据的导入能节省大量的时间，提升工作效率。 要求：在Access中创建chanpin 表，用来储存文本文件中的数据。此表的结构应如下定义：id，name，price，store。
设计分析 （1）基本原理：建立程序设计与数据库的连接，用input语句读取文本文件，用insert语句将数据 添加到数据库中。 （2）总体流程设计：
关键技术 1建立与数据库的连接代码如下 Option Explicit Option Base 1 Dim cnn As ADODB.Connection‘声明变量作为连接对象 Private Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=sjddr.mdb"‘连接数据源 cnn.ConnectionTimeout = 30 cnn.Open End Sub 2读取数据是用input语句将文本文件的数据读取出来在窗体中显示出来 Select<字段名表>From<表名>Where<条件> 程序段如下： Private Sub Command1_Click() Dim id$, name$, price$, store$ ‘声明变量属性 Open "file30_数据的导入.txt" For Input As #1‘打开要输入的文件 Do While Not EOF(1) ‘循环之文件尾 Input #1, id, name, price, store ‘将数据读入到四个变量中 Print id, name, price, store ‘输出数据 Loop
vb连接ACCESS数据库实例
vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing
实验一ACCESS数据库及表的操作
可编辑可修改 实验一数据库及表的操作 实验类型：验证性实验课时：_6_学时指导教师： _______________ 时间：2013年月日课次：第___________________ 节教学周次：第________ 周 实验分室：_______________ 实验台号：__________ 实验员：_________________ 一、实验目的 1.掌握数据库的创建及其它简单操作 2.熟练掌握数据表建立、数据表维护、数据表的操作 二、实验内容与要求 1.数据库的创建、打开、关闭 2.数据表的创建：建立表结构、设置字段属性、建立表之间关系、数据的输入 3.数据表维护：打开表、关闭表、调整表外观、修改表结构、编辑表内容 4?数据表的操作：查找替换数据、排序记录、筛选记录 三、实验步骤 案例一：创建数据库 1.创建空数据库 要求：建立“教学管理.accdb ”数据库，并将建好的数据库文件保存在“实验一”文件夹中。 操作步骤：
IS 1 丿小? e 叮亍 Micrtilitil ftfdwvi 口 可审业 a 站 j-t 4审时 OffiCfLC WF gm ■ *陆 （2）单击険'I 按钮，在打开的“新建数据库”对话框中，选择数据库的保存位置，在“ 件夹中，单击“确定”按钮，如图 1-2所示。 （3）这时返回到access 启动界面，显示将要创建的数据库的名称和保存位置，如果用户未提供文件 扩展名，access 将自动添加上。 （4 ）在右侧窗格下面，单击“创建”命令按钮，如图 1-1所示。 （5）这时开始创建空白数据库，自动创建了一个名称为表 1的数据表，并以数据表视图方式打开这 个表1,如图1-3所示。 J 曰归 图1-1 创建教学管理数据库 （1 ）在Access 2010启动窗口中，在中间窗格的上方，单击“空数据库” ，在右侧窗格的文件名文本 框中，给出一个默认的文件名“” 。把它修改为“教学管理”如图 1-1所示。 实验一”文
Access数据库程序设计试题大全
1、Access数据库是（B ）。 A．层次型数据库 B．关系型数据库 C．网状型数据库 D．杂合型数据库 2、在Access数据库中，数据保存在（D ）对象中。 A．窗体B．查询 C．报表D．表 3、数据库文件中至少包含有（A ）对象。 A．表B．窗体 C．查询D．其余三种 4、在Access数据库系统中，不能建立索引的数据类型是（C ）。 A．文本型B．数字型 C．备注型D．日期/时间型 5、如果字段内容为声音文件，可将此字段定义为（C ）类型。 A．文本 B．查询向导 C．OLE对象 D．备注 6、在表设计视图中，如果要限定数据的输人格式，应修改字段的（C ）属性。 A．格式B．有效性规则 C．输入格式D．字段大小 7、下面有关主键的叙述正确的是（B ）。 A．不同的记录可以具有重复的主键值或空值 B．一个表中的主键可以是一个或多个字段 C．在一个表中的主键只可以是一个字段 D．表中的主键的数据类型必须定义为自动编号或文本 8、下面有关表的叙述中错误的是（C ）。 A．表是Access数据库中的要素之一 B．表设计的主要工作是设计表的结构 C．Access数据库的各表之间相互独立 D．可以将其他数据库的表导人到当前数据库中 9、Access是（A ）办公套件中的一个重要组成部分。 A．Office B．Word C．Excel D．Lotus 10、下列（B ）图标是Access的标志。 11、存储在计算机内按一定的结构和规则组织起来的相关数据的集合称为（C ）。
A．数据库管理系统B．数据库系统 C．数据库D．数据结构 12、数据的完整性，是指存贮在数据库中的数据要在一定意义下确保是（B ）。 A．一致的B．正确的、一致的 C．正确的D．规范化的 13、不能退出Access2003的方法是（C ）。 A．选择Access2003屏幕“文件”菜单的“退出”命令 B．选择Access2003控制菜单中的“关闭”命令 C．利用快捷键
VB中怎么载如或显示Access数据库中的报表
VB中怎么载如或显示Access数据库中的报表 '首先在“工程/引用”菜单下引用Microsoft Access 9.0 Object Library Option Explicit Dim MSAccess As Access.Application Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (App.Path & "\db1.mdb") MSAccess.DoCmd.OpenReport "rptTB", acViewNormal MSAccess.CloseCurrentDatabase Set MSAccess = Nothing End Sub rptTB是access中的一个报表名称 要引用Microsoft Access 9.0 Object Library dim objAccess As Access.Application Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase ("c:\1.mdb") objAccess.DoCmd.OpenReport "ReportName", acViewPreview objAccess.Visible = True 这个要引用Microsoft Access 9.0 Object Library(Office 2000) 我没试过Office97会怎么样。 ?VB中打印ACCESS报表 ?作者:aspxer 来源:internet 日期:2007-5-20 13:56:44 关键字: ? VB中打印ACCESS报表 acc As Object Set acc = CreateObject("Access.Application") If Right$(Trim$(App.Path), 1) = "\" Then
vb6.0连接sql2000数据库的具体步骤
vb6.0连接sql2000数据库的具体步骤 悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下 初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。 最佳答案 VB6.0使用ADO对象连接数据库： 有偿征集原创文章，为您创收投递文章减小字体增大字体 1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接ODBC DBconnect.ConnectionString="dsn 1．定义连接对象 Global DBconnect As New ADODB.Connection 2．执行连接语句 If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Close λ连接ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" λ直接连接Access为 Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb" λ连接Oracle DBconnect.Provider="MSADORA" DBconnect.ConnectionString="user/mypass@servicename λ连接SQL Server DBconnect.Provider="SQLOLEDB.1" DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;" 或者可以使用DBconnect.Open"SERVER","USERID","PASSWORD" DBConnect.Open 3．取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State=adStateOpen And Not IsEmpty(adStateOpen)Then RS.Close RS.Open SQLStr,DBconnect,adOpenKeyset 4．执行SQL语句 DBconn.Execute SQLStr
ACCESS数据库的基本操作
ACCESS数据库的基本操作 一、建立数据库 ACCESS数据库是一个独立的文件，其扩展名为.MDB。它所包含的对象：表(Table) 、查询(Query) 、窗体、报表、数据访问页、宏、模块等。 一个数据库可以拥有多个表、多个查询及多个其它对象，而表是整个数据库的基础。 创建数据库的二种方式： 1.启动Access 2002时创建数据库 “开始，程序，Microsoft access”→“空access 数据库”→指定保存位置和文件名 2.进入Access 2002后创建数据库 “文件，新建”→“常用”选项卡上选择“数据库”→指定保存位置和文件名→“创建” 二、建立表 创建表的三种方式： 1. 使用表设计器创建表结构 2. 使用“表向导”（利用示例表）创建表结构 3. 通过输入数据直接创建表结构和记录
重点掌握：使用表设计器 创建表的步骤： 1、设计表结构 数据库窗口“表”面板→双击“使用设计器创建表”→打开“设计视图”→设计表结构→“关闭”设计视图→输入表名。 2、输入表记录 双击表名打开“数据表视图”→输入表记录→“关闭”数据表视图。 关于表的说明： 1）表的三要素：表名、记录（行）、字段（列） 2）表的定义项：表名、字段名、字段数据类型、字段属性和表的主关键字。表的可选定义项：字段说明、表的属性。 3）表的命名：字母、汉字、数字、空格和除了句号、叹号、方括号等字符以外字符的任何组合。（在同一个数据库中，表名不能重复） 关于字段的说明： 1）字段名：每一个字段都必须有一个唯一的名字。 ①字段名长度不超过64个字符。 ②字段名可以包含字母、汉字、数字、空格(但空格不能为首字符)， 还可以包含大部分标点符号。 ③字段名不能出现句号（。）、叹号（！）、方括号（[ ]）。 ④在同一张表中，字段名不能重复使用。
ACCESS数据库考试试题及答案2复习课程
A C C E S S数据库考试试 题及答案2
西安欧亚学院2010－2011学年第二学期考试试卷 专业：课程：数据库技术应用年级：09/10级题号 一 二 三 四 五 六 总分 得分 评卷人 得分
一、单项选择题（本大题共25小题，每小题1分，共25分）在每小题列出的四个备用选项中只有一个符合题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。 1、数据库系统的数据管理方式中，下列说法中不正确的是 [C] A．数据库减少了数据冗余 B. 数据库中的数据可以共享 C. 数据库避免了一切数据的重复 D. 数据库具有较高的数据独立性 2、数据库系统的核心是 [A] A．数据库管理系统 B．数据库 C. 数据模型D．数据 3、用二维表来表示实体及实体之间联系的数据模型是 [D] A．联系模型 B．层次模型 C．网状模型 D．关系模型 4、在教师表中，如果要找出姓“李”教师的记录，所采用的关系运算是 [B] A．投影B．选择C．连接D．层次 5、在Access2003中，某数据库的表中要添加一张Excel电子表格，则采用的字段类型是 [A] A．OLE 对象数据类型B．备注数据类型 C. 查阅向导数据类型D．自动编号数据类型 6、Access数据库中，表的组成是 [A] A．字段和记录B．查询和字段C．记录和窗体D．报表和字段7、有关字段类型以下叙述错误的是 [D] A．字段大小可用于设置文本类型字段的最大容量 B. 有效性规则属性是用于限制此字段输入值的表达式 C. 不同的字段类型，其字段属性有所不同 D. 可对任意类型的字段设置默认值属性 8、要修改数据表中的数据（记录），可在以下哪个选项中进行 [C] A．报表中B．数据表的查询中 C. 数据表的数据表视图中D．窗体的设计视图中 9、在Access中，如果想要查询所有姓名为2个汉字的学生记录，在准则中应输入 [D] A．“LIKE **”B．“LIKE ## ” C.“LIKE ??”D． LIKE “??” 10、若要查询成绩为60—80分之间（包括60和80）的学生信息，查询条件设置正确的是 [B] A．>=60 OR <=80 B．Between 60 and 80 C．>60 OR <80 D．IN (60,80) 11、创建交叉表查询时，最多只能选择3个行标题字段，列标题字段最多选择的个数是 [A] A．1个B．2个C．3个D．4个 12、若要查询学生信息表中“简历”字段为空的记录，在“简历”字段对应的“条件”栏中应输入 [B] A．Is not null B．Is null C．0 D．-1
(完整版)vb连接access数据库及数据读写操作
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
VB如何连接ACCESS数据库详解
首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项. 由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API 来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始"数据库编程"了. 首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
access数据库习题
第1章数据库基础知识_习题 一、选择题 1．数据库系统与文件系统的主要区别是（）。D A．数据库系统复杂，而文件系统简单 B．文件系统只能管理程序文件，而数据库系统能够管理各种类型的文件 C．文件系统管理的数据量较少，而数据库系统可以管理庞大的数据量 D．文件系统不能解决数据冗余和数据独立性问题，而数据库系统可以解决 2．在关系数据库系统中，当关系的模型改变时，用户程序也可以不变，这是（。B A．数据的物理独立性B．数据的逻辑独立性 C．数据的位置独立性D．数据的存储独立性 3．数据库三级模式中，用逻辑数据模型对用户所用到的那部分数据的描述是（ A A．外模式B．概念模式C．内模式D．逻辑模式 4．以下对关系模型性质的描述，不正确的是（）。C A．在一个关系中，每个数据项不可再分，是最基本的数据单位 B．在一个关系中，同一列数据具有相同的数据类型 C．在一个关系中，各列的顺序不可以任意排列 D．在一个关系中，不允许有相同的字段名 5．关系数据库中的码是指（）。D A．能唯一决定关系的字段B．不可改动的专用保留字 C．关键的很重要的字段D．能唯一标识元组的属性或属性集合 6．自然连接是构成新关系的有效方法。一般情况下，当对关系R和S使用自然连接时，要求R和S含有一个或多个共有的（）。D A．元组B．行C．记录D．属性 7．在建立表时，将年龄字段值限制在18~40之间，这种约束属于（）。B A．实体完整性约束B．用户定义完整性约束 C．参照完整性约束D．视图完整性约束 8．在A ccess中，“表”是指（）。A A．关系B．报表C．表格D．表单 9．在A ccess中，用来表示实体的是（）。C A．域B．字段C．记录D．表 10．把E-R图转换成关系模型的过程，属于数据库设计的（）。B A．概念设计B．逻辑设计C．需求分析D．物理设计 二、填空题 1．数据库是在计算机系统中按照一定的方式组织、存储和应用的数据集合。支持数据库各种操作的软件系统叫数据库管理系统。由计算机、操作系统、DBMS、数据库、应用程序及有关人员等组成的一个整体叫数据库系统 2．数据库常用的逻辑数据模型有层次模型，网状模型，关系模型，Access属于关系模型。 3．关系中能唯一区分、确定不同元组的属性或属性组合，称为该关系的。关键字 4．在关系数据库的基本操作中，从表中取出满足条件元组的操作称为选择；把两个关系中相同属性值的元组联接到一起形成新的二维表的操作称为联接；从表中抽取属性值满足条件列的操作称为投影
vb连接access数据库常用的方法两种示例
创作编号： GB8878185555334563BT9125XW 创作者：凤呜大王* 这里以链接access数据库为例。 第一部分是通过语句链接，第二部分是通过控件链接一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表
rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。 但是，在此之前还有一步一定要做， 点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示：
显示的结果如下图所示：
通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说")
vb2010+access数据库连接
VB2010+Access用户登陆验证(精简) Public Class login '管理员登陆 Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb") Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn) Dim ObjDap As New OleDb.OleDbDataAdapter Dim ObjDar As OleDb.OleDbDataReader Dim pd As Boolean = False Dim i As Integer ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn) '与数据库建立连接 ObjConn.Open() ObjDar = ObjCom.ExecuteReader '循环判断与数据库中数据是否相同 Do While ObjDar.Read() If ComboBox1.Text = "" Then MsgBox("请输入用户名！") ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then MsgBox("用户名不存在！") ComboBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("请输入密码！") 'End If ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then MsgBox("密码输入不正确！") 'TextBox2.Focus() Else For i = 0 To ObjDar.FieldCount - 1 If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆") Me.Hide() Form_main.Show() pd = True Exit Sub End If
实验一-ACCESS数据库及表的操作
实验一数据库及表的操作 实验类型：验证性实验课时： 6 学时指导教师： 时间：2013 年月日课次：第节教学周次：第周 实验分室：实验台号：实验员： 一、实验目的 1．掌握数据库的创建及其它简单操作 2．熟练掌握数据表建立、数据表维护、数据表的操作 二、实验内容与要求 1．数据库的创建、打开、关闭 2．数据表的创建：建立表结构、设置字段属性、建立表之间关系、数据的输入 3．数据表维护：打开表、关闭表、调整表外观、修改表结构、编辑表内容 4．数据表的操作：查找替换数据、排序记录、筛选记录 三、实验步骤 案例一：创建数据库 1．创建空数据库 要求：建立“教学管理.accdb”数据库，并将建好的数据库文件保存在“E:\实验一”文件夹中。 操作步骤： 图1-1创建教学管理数据库 （1）在Access 2010启动窗口中，在中间窗格的上方，单击“空数据库”，在右侧窗格的文件名文本框中，给出一个默认的文件名“Database1.accdb”。把它修改为“教学管理”如图1-1所示。 （2）单击按钮，在打开的“新建数据库”对话框中，选择数据库的保存位置，在“E\实验一”文件夹中，单击“确定”按钮，如图1-2所示。 （3）这时返回到access启动界面，显示将要创建的数据库的名称和保存位置，如果用户未提供文件扩展名，access将自动添加上。 （4）在右侧窗格下面，单击“创建”命令按钮，如图1-1所示。 （5）这时开始创建空白数据库，自动创建了一个名称为表1的数据表，并以数据表视图方式打开这
个表1,如图1-3所示。 图1-2“文件新建数据库”对话框 （6）这时光标将位于“添加新字段”列中的第一个空单元格中，现在就可以输入添加数据，或者从另一数据源粘贴数据。 图1-3表1的数据表视图 2．使用模板创建Web数据库 要求：利用模板创建“联系人Web数据库.accdb”数据库，保存在“E:\实验一”文件夹中。 操作步骤： （1）启动Access。 （2）在启动窗口中的模板类别窗格中，双击样本模板，打开“可用模板”窗格，可以看到Access提供的12个可用模板分成两组。一组是Web数据库模板，另一组是传统数据库模板——罗斯文数据库。Web 数据库是Access2010新增的功能。这一组Web数据库模板可以让新老用户比较快地掌握Web数据库的创建，如图1-4所示 （3）选中“联系人Web数据库”，则自动生成一个文件名“联系人Web数据库.accdb”,保存位置在默认Window系统所安装时确定的“我的文档”中显示在右侧的窗格中，参见图1-3所示当然用户可以自己指定文件名和文件保存的位置，如果要更改文件名，直接在文件名文本框中输入新的文件名，如要更改数据库的保存位置，单击“浏览”按钮，再打开的“文件新建数据库”对话框中，选择数据库的保存位置。
ACCESS数据库考试试题及答案
西安欧亚学院2010－2011学年第二学期考试试卷 专业： 课程：数据库技术应用 年级：09/10级 一、单项选择题（本大题共25小题，每小题1分，共25分）在每小题列出的四个备用选项中只有一个符合 题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。 1、数据库系统的数据管理方式中，下列说法中不正确的是 [C] A ．数据库减少了数据冗余 B. 数据库中的数据可以共享 C. 数据库避免了一切数据的重复 D. 数据库具有较高的数据独立性 2、数据库系统的核心是 [A] A ．数据库管理系统 B ．数据库 C. 数据模型 D ．数据 3、用二维表来表示实体及实体之间联系的数据模型是 [D] A ．联系模型 B ．层次模型 C ．网状模型 D ．关系模型 4、在教师表中，如果要找出姓“李”教师的记录，所采用的关系运算是 [B] A ．投影 B ．选择 C ．连接 D ．层次 学号_____________ 班级___________ 姓名________ 考场号____ 座位号____ - - -- - - - -- - - - -- - - - - - - -- - - -- -- -密 ○- - - - - - - - - - - - - - -- - - -- -- - -封 ○- - - - - - - - - - - - -- - - --- - - -- -线 ○- - - - - - - - - - -- - - - -- - - - -- - - -- - - -- 物流、会计、管理 金融、外语学院
5、在Access2003中，某数据库的表中要添加一张Excel电子表格，则采用的字段类型是 [A] A．OLE 对象数据类型B．备注数据类型 C. 查阅向导数据类型D．自动编号数据类型 6、Access数据库中，表的组成是 [A] A．字段和记录B．查询和字段C．记录和窗体D．报表和字段 7、有关字段类型以下叙述错误的是 [D] A．字段大小可用于设置文本类型字段的最大容量 B. 有效性规则属性是用于限制此字段输入值的表达式 C. 不同的字段类型，其字段属性有所不同 D. 可对任意类型的字段设置默认值属性 8、要修改数据表中的数据（记录），可在以下哪个选项中进行 [C] A．报表中B．数据表的查询中 C. 数据表的数据表视图中D．窗体的设计视图中 9、在Access中，如果想要查询所有姓名为2个汉字的学生记录，在准则中应输入 [D] A．“LIKE **”B．“LIKE ## ” C.“LIKE ??”D． LIKE “??” 10、若要查询成绩为60—80分之间（包括60和80）的学生信息，查询条件设置正确的是 [B] A．>=60 OR <=80 B．Between 60 and 80 C．>60 OR <80 D．IN (60,80) 11、创建交叉表查询时，最多只能选择3个行标题字段，列标题字段
vb将数据导入access
Private Function ImportFromExcel(excelFile As String) As Long Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim rst As New ADODB.Recordset Dim nCount As Long, strCardNo As String On Error GoTo errH Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open(excelFile) '打开EXCEL文件 Set xlSheet = xlBook.Sheets(1) '打开第一页（sheet） ImportFromExcel = 0 '打开数据库 rst.Open "...", pConn, adOpenKeyset, adLockOptimistic, adCmdText '开始导入。导入过程检查数据是否有重复。 nCount = 1 Do strCardNo = Trim(xlSheet.Cells(nCount, 1)) '这里根据第一列数据为空判断记录结束 If Len(strCardNo) = 0 Then ImportFromExcel = nCount - 1 Exit Do End If If Not rst.EOF Then rst.Find ("STCardNO='" & strCardNo & "'") If rst.EOF Then rst.AddNew rst("STCardNO") = Format(strCardNo, "0000000000") ... rst.Update Else If MsgBox("卡号：" & strCardNo & " 已经存在。" & vbCrLf & "选择“重试”将忽略并继续导入余下的数据，“取消”将放弃导入。", vbExclamation + vbRetryCancel + vbDefaultButton2, "卡号重复") = vbCancel Then ImportFromExcel = nCount - 1 Exit Do End If End If nCount = nCount + 1 ImportFromExcel =nCount
vb读取access并且显示
你一个示例,这个是用户登录系统 '准备工作: 数据库D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中Microsoft Activex Data Objects 2.1 Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = "1" Or s = "2" Then UserName = InputBox("请输入用户名") Password = InputBox("请输入用户密码") sql = "Select * From [UserInfo] where User='" & UserName & "'" 'UserInfo请换成你的实际数据表名 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then MsgBox "没有找到此用户" Else If Rs("Password") = Password Then If s = "1" Then MsgBox "123" ElseIf s = "2" Then MsgBox "456" End If Else MsgBox "密码错误" End If End If End If End Sub 上面的例子实现了查询 如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用 Conn.Execute SQL 就可以了,如: 添加的:
相关文档
- vb连接access数据库及数据读写操作
- 利用VB将EXCEL中的数据导入ACCESS
- vb数据库编程(以access编程为例)
- VB中怎么载如或显示Access数据库中的报表
- 用VB的代码创建Access数据库
- VB6+Access对数据库进行添加删除项目(可编辑修改word版)
- 用VB创建ACCESS数据库全解
- vb将数据导入access
- 怎样利用VB将EXCEL中的数据导入ACCESS
- vb连接access大数据库常用地方法两种示例
- 利用VB将EXCEL中的数据导入ACCESS
- 用VB将一个文本文件中的数据导入到Access的某个数据表中
- VBAccess系统中实现Excel和Access数据库相互导入
- VB6连接ACCESS数据库
- VB将excel导入access
- vb连接access数据库常用的方法两种示例
- VB通过ADODB与ACCESS数据交换实例
- vb连接access数据库及数据读写操作(可编辑修改word版)
- VB连接Access数据库
- (完整版)vb连接access数据库及数据读写操作