Access有哪些数据库对象

Access

数据库由七种对象组成，它们是表、查询、窗体、报表、宏、页和模块。

表(Table)

——表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。

查询(Query)——查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。

窗体(Form)——窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。

报表(Report)——报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。

宏(Macro)——宏相当于DOS中的批处理，用来自动执行一系列 *** 作。Access列出了一些常用的 *** 作供用户选择，使用起来十分方便。

模块(Module)——模块的功能与宏类似，但它定义的 *** 作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual

Basic编程。

页——是一种特殊的直接连接到数据库中数据的一种WEB页。通过数据访问页将数据发布到Internet

或Intranet上，并可以适用浏览器进行数据的维护和 *** 作。

请指定源数据记录的查询表格到您的表，然后按[查询]按钮代码如下：

私人子查询按钮_Click（）

错误页转到。 Err_查询查询_Click

定义查询

cxtj昏暗的cxtj作为字符串=“”'设置初始值是空

如果不ISNULL（名称），然后判断[名称]条件输入值的

cxtj = cxtj＆（[名称]喜欢'“＆名＆”'）和“

如果

如果不ISNULL（年龄），然后判断年龄是否条件的输入值

cxtj（[年龄] = cxtj“喜欢”“年龄”“）和”如果

如果不ISNULL（单位）的判断是否条件下，输入值

cxtj = cxtj＆“（[单位]喜欢”单位“）和

结束

如果输入条件，cxtj最后，必须是”和“，是，我们不需要使用左边的功能截肢五个字符

如果LEN（cxtj）> 0，则

cxtj =左（cxtj，cxtj） - 莱恩（5）

否则 /> MSGBOX“提示：”＆vbNewLine＆“请输入一个查询，4096 + 48，波电脑工作室

退出子

结束如果

第一次显示在立即窗口中查询，然后

调试。打印cxtj

过滤器= cxtj

的FilterOn = TRUE，则

Exit_查询按钮_Click：

退出子

Err_查询执行查询按钮_Click：

MSGBOX“;提示：”vbNewLine“你要查询不存在的记录。 “VbNewLine”请检查您输入的条件是正确的。 4096 + 48，波电脑工作室

简历Exit_查询按钮_Click

END SUB

VB access,添加/删除/修改记录代码 给你一个示例,这个是用户登录系统

'准备工作: 数据库 D:\Mydbmdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录

'点工程->引用 选中 Microsoft Activex Data Objects 21 Library

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

Private Sub Command1_Click()

Dim s As String

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen "Provider=MicrosoftJetOLEDB40;Data Source=D:\mydbmdb"

'请将数据库名及路径换成你的实际数据库名及路径

Dim UserName As String

Dim Password As String

s = Text1Text

If s = "1" Or s = "2" Then

UserName = InputBox("请输入用户名")

Password = InputBox("请输入用户密码")

sql = "Select From [UserInfo] where User='" & UserName & "'"

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

RsOpen sql, Conn, 1, 3

If RsEOF 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语句,再用

ConnExecute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

ConnExecute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

ConnExecute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

ConnExecute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

动态创建数据库

引用 microsoft DAP 36 Object Library

Dim myDB As DAODatabase

Set myDB = CreateDatabase(AppPath + "\111mdb", dbLangGeneral) '如果不存在数据库

Set myDB = OpenDatabase(AppPath + "\111mdb") '如果存在数据库

Dim str_SQL As String

str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

myDBClose

向已经建好的数据库中添加记录

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引用microsoft activeX data object 25 library

代码如下：

Private Sub Command1_Click()

Dim cnDk As New ADODBConnection

Dim strDk As String

Dim rDk As New ADODBRecordset

Dim sql As String

strDk = "DBQ=" & AppPath & "\amdb;Driver={Microsoft Access Driver (mdb)};"

cnDkOpen strDk

sql = "insert into b (c) values ('" & text1text& "')"

cnDkExecute sql

cnDkClose

Set cnDk = Nothing

End Sub

在数据库中添加多条记录

只要可以进行输入文本的都可以

改一下这些吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1RecordsetAddNew

Data1RecordsetFields("username") = trim(inputbox("请输入名字"))

Data1Recordset("password") =val(trim(inputbox("请输入电话")))

Data1UpdateRecord

——————————————————————————————

Data1RecordsetAddNew

Data1RecordsetFields("username") = "张三|"

Data1Recordset("password") = "fsdfsd"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "李四|"

Data1Recordset("password") = "fsdf432d"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "王五|"

Data1Recordset("password") = "f42342d"

Data1UpdateRecord

MsgBox "adad"

========================================================================================

vb+access 数据库的记录的添加与删除

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Private Sub Command2_Click()

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If Text1Text = "" Then

MsgBox ("文章不能为空！")

ElseIf rsEOF = False Then

MsgBox ("文章不能重复！")

Else

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("ok")

End If

End Sub

'添加按钮

Private Sub Command3_Click()

Dim myval As String

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If rsEOF Then

myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")

If myval = vbYes Then

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("保存成功")

Else

Combo1Text = ""

End If

Else

Text1Text = ""

Combo1Text = ""

End If

End Sub

'删除按钮

Private Sub Command4_Click()

If Text1Text = "" Then

MsgBox ("不能删除空记录！")

Else

Dim myval As String

myval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")

If myval = vbYes Then

Set rs = cnExecute("delete from wenzhang where 内容 ='" & Text1Text & "'")

MsgBox ("删除成功！")

End If

End If

End Sub

'连接数据库

Private Sub Form_Load()

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=\vbnet\tempmdb;Persist Security Info=False"

cnCursorLocation = adUseClient

cnOpen

End Sub

1、建一个物品目录表

2、期初数

3、入库表

4、出库表

物品目录ID分别与入库出库的物品ID关联

5、用查询，设计收发存汇总表，统计出各物品的期初数、本期入库数、本期出库数、期末结存数。

6、设计收发存汇总表的打印格式。

实例到我的网盘下载  网页链接

建立步骤如下：

1、首先打开access程序，打开方法是单击开始——所有程序。

2、在所有程序中找到microsoft office文件夹，打开它。

3、找到access ，点击打开。

4、在access界面中，点击文件——新建。

5、选择在界面的右边出现了新建对话框，选择空数据库。

6、选择一个存放该文件的位置，然后命名该数据库，点击创建。

7、这样就创建了一个access数据库。

以上就是关于Access有哪些数据库对象全部的内容，包括:Access有哪些数据库对象、利用access建一个数据库,有窗体,能运行(简单)、请朋友帮忙：VB2008 *** 作Access数据库。完成连接、添加、修改、删除、读某个列值至变量等完整的代码示例谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！