问题：   如何更改表或者其他数据库对象得名字 方法一： 更改表名，调用 ADOX 即可 (测试环境为ADOX2.7)Function Test()    Debug.Print renameTableName("b", "cxcd")End FunctionFunction renameTableName(strOldName As String, strNewName As String) As Boolean    On Error Resume Next    Dim tbl As ADOX.Table    Dim cat As New ADOX.Catalog    Set cat.ActiveConnection = CurrentProject.Connection  &n...

何制作复杂报表——利用excel输出复杂报表     在读这篇文章以前首先要提醒大家，Access 本身的报表也具有很强的实用性和强大的功能，只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel （当然，你得在一台机器上同时安装 Access 和 Excel），当然如果你和我一样拥有工作在 966MHz 上的 CPU 和 256M 内存以及大容量硬盘时，那就不必考虑了，继续吧。     首先找到 VB...

下表比较了 Microsoft Access 数据库  （Microsoft Access 数据库：数据和对象（如表、查询或窗体）组成的集合，与特定的主题或用途有关。Microsoft Jet 数据库引擎用于管理数据。 ）和 Microsoft Access 项目 （Microsoft Access 项目：与 Microsoft SQL Server  数据库连接且用于创建客户/服务器应用程序的 Access 文件。项目文件中不包含任何数据或基于数据定义的对象（如表或视图）。）的数据类型 （数据类型：决定字段可拥有的数据类型的字段特征。数据类型包括 Boolean、Integer、Long、Currency...

简述：单据流水号生成问题 问题：   如何用代码在“默认值”里实现自动编号？单据流水号生成问题。 如何用代码在“默认值”里实现自动编号？如果我想实现不同类型的自动编号，我应该怎么设置代码呢？如：第1号、第2号、...........、第198号..................或：CN0001-A、CN0002-B、CN0003-B、.........、CN0004-A、CN1998-B……是在默认值里输入代码呢，还是在什么地方，请指教，谢谢！ 回答：　 这些要求都不需要在“表”的字段属性中完成，一般都是在界面编程中解决的。 用 dcount() 或者 dmax() 函数取值后...

使用"帮助" 从"Office 助手"中获得帮助 为执行以下大多数操作，"Office 助手"必须是打开的，并且是可见的。 F1，如果"助手"未显示 从"助手"中获取"帮助" F1，如果"助手"正在显示 显示"助手"气球 Alt+数字（Alt+1 是第一个主题，Alt+2 是第二个主题，依此类推） 从"助手"显示的"帮助"列表中选择某个主题 Alt+向下键 查看其他"帮助"主题 Alt+向上键 查看前面的"帮助"主题 Esc 关闭"助手"消息 Esc 关闭提示 使用"帮助"窗口 如果"帮助"未打开，请按 F1。 在"帮助"窗口中工作 F6 在导航窗格和主题窗格间移动 Ta...

问题：access数据库备份问题讨论我如何才能定期备份mdb数据库？回答： 其实备份数据库往往是需要其中的数据，窗体、报表、程序等对象只需要保存一个备份就够了。 你可以建立一个隐藏的窗体，用窗体上的timer来控制备份时间，每隔一段时间将数据 INSERT INTO 到其他数据库中去，或者直接用 TransferDatabase 方法来导出数据表到其他数据库中去。 具体的例子你可以参考一下本站下载区的《导入导出》的例子，它已经可以调用压缩软件来压缩自身数据并保存到指定介质中去，如果定时运行可以非常方便的在后台实时压缩保...

Dim db As ADODB.Connection  Dim i As Integer `用来标记前一个控件的编号  Dim ii As Integer `用来标记目前控件的标号  Dim path As String  Set db = New ADODB.Connection      db.CursorLocation = adUseClient `设置游标引擎的位置为客户游标。      db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "GPSdata.mdb;Persist Security Info=False"其中app.path是当前路径，gpsdata.mdb就是你...

文本 nvarchar(n) 备注 ntext 数字(长整型) int 数字(整型) smallint 数字(单精度) real 数字(双精度) float 数字(字节) tinyint 货币 money 日期 smalldatetime 布尔 bit  

Public Function ChangeDatabasePassword(DBPath As String, _newPassword As String, oldPassWord As String) As Boolean    `Usage: Change DatabasePassword`Parameters: sDBPath: Full Path to Access Database `newPassword: the password`oldPassword: the previous password`returns true on success false otherwise If Dir(DBPath) = "" Then Exit Function Dim db As DAO.Database On Error Resume NextSet db = OpenDatabase(DBPath, True, False, ";pwd=" & oldPassWord)If Err.Nu...

kendylan 于 8/30/2001 12:28:41 PM 加贴在 Joy ASP ←返回版面： <%strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set objConn=server.createobject("Adodb.connection")objConn.open strConnset rsSchema=objConn.openSchema(20)rsSchema.movefirstDo Until rsSchema.EOFif rsSchema("TABLE_TYPE")="TABLE" thenresponse.write rsSchema("TABLE_NAME") & "<br>" end ifrsSchema.movenextLoopset objConn=nothing%>