用Access数据库如何建立客户信息系统，需要编程吗

因为，dateserial是内置函数所以在立即窗口，输入下面的，然后按

回车

--

dateserial(2008

-

1,

8

-

2,

0)

Private Sub Command1_Click()

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

'cnCursorLocation = adUseClient

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=c:/2mdb;Persist Security Info=False"'设置链接ACCESS数据库字符串

cnOpen'连接数据库

Set rs = cnOpenSchema(20)'返回包含模式信息的 Recordset 对象

rsMoveFirst

Do Until rsEOF

If rs("TABLE_TYPE") = "TABLE" Then'判断是否存在表

DebugPrint rs("TABLE_NAME")

End If

rsMoveNext

Loop

End Sub

,表名在立即窗口显示

更多信息在早期版本的 Access 比 Access 2007, 您可以注册或撤消 ActiveX 控件通过单击 工具 菜单上 ActiveX 控件 。 Access 2007, 中无法使用此方法。 如果要注册或撤消 ActiveX 控件, 使用下列方法之一。 方法 1： 使用 VisualBasic 代码要使用 VisualBasic 代码来注册或撤消 ActiveX 控件, 直接在立即窗口, 运行代码或者创建包含代码模块。要直接在立即窗口, 运行 VisualBasic 代码请按照下列步骤 *** 作：1Access 2007, 中打开信任数据库, 或者启用数据库中宏。2按CTRL+G 以打开立即窗口。3键入下列代码, 然后按 Enter。DoCmdRunCommand acCmdRegisterActiveXControls若要创建包含 VisualBasic 代码, 模块请按照下列步骤：1Access 2007, 中打开信任数据库, 或者启用数据库中宏。2其他 组, 中 创建 选项卡, 上 模块 依次 宏。3创建包含以下 VisualBasic 代码子例程。DoCmdRunCommand acCmdRegisterActiveXControls4按F 5 键运行代码。方法2： 使用 RunCommand 宏 *** 作1Access 2007, 中打开信任数据库, 或者启用数据库中宏。2其他 组, 中 创建 选项卡, 上宏 依次 宏。3在 设计 选项卡, 单击 显示/隐藏 组中 显示所有 *** 作 。4命令 列表中 *** 作 列, 中 RunCommand , 依次 RegisterActiveXControls 。5单击A0 > 保存 。6在 工具 组, 单击 运行 。

以上就是关于用Access数据库如何建立客户信息系统，需要编程吗全部的内容，包括:用Access数据库如何建立客户信息系统，需要编程吗、用VB通过JET4.0连接数据库、如何注册或注销Access 2007中ActiveX控件麻烦告诉我等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！