用VFP列出ACCESS所有表的字段结构，含标题。
set safety off
local oo,lcStr,lcMdbFile,i,x,lnFields,lcTableName,lnFieldtype,lcCurdir
lcCurdir = sys(5) + curdir()
lcNowdir = getdir()
cd (lcNowdir)
oo = NEWOBJECT('Access.Application')
oo.AutomationSecurity = 1
oo.UserControl = .F.
lcMdbFile = getFile('mdb')
if not empty(lcMDBFile)
oo.OpenCurrentDatabase(lcMDBFile)
lnTables = oo.CurrentDb.TableDefs.Count
for i = 5 to lnTables - 1
lcStr = ''
lnFields = oo.CurrentDb.TableDefs(i).fields.count
*lcTableName = JUSTSTEM(lcMDBFile) + '_' + oo.CurrentDb.TableDefs(i).Name
lcTableName = oo.CurrentDb.TableDefs(i).Name
*use
if i = 5
* create Table (lcTableName) (字段名 char(10),类型 char(10),宽度 char(4),小数位 char(4),标题 char(50),对应字段 char(20))
create Table blank (字段名 char(9),类型 char(10),宽度 char(2),小数位 char(4),标题 char(24),对应字段 char(20),表名 char(10))
相关文档：
一、创建一张空表：
Sql="Create TABLE [表名]"
二、创建一张有字段的表：
Sql="Create TABLE [表名]([字段名1] MEMO NOT NULL, [字段名2] MEMO, [字段名3] COUNTER NOT NULL, [字段名4] DATETIME, [字段名5] TEXT(200), [字段名6] TEXT(200))
字段类型：
2 : "SmallInt", // 整型
3 : "Int", ......
下面这段C# 代码可以用来压缩和修复Access数据库,不管它是一个简单的".mdb"ACCESS数据库还是一个".mdw"网络共享数据库,这个过程和你在用MS Access应用程序中使用的"工具-数据库实用工具-压缩和修复"时执行的操作完全一样.实例代码使用了"迟绑定"(运行中在内存中建立COM对象),这样就不需要在工程中加入COM引用了,也不需要在P ......
项目中用到了此功能。把大概做法跟大家共享下，希望对大家有所帮助。也给自己总结一下，激励自己再接再厉。下面中部分代码被汉字替换了，主要考虑到公司的产品权，希望谅解。
/// <summary>
......
今天，还是在做那个项目，依然使用往常的sqlhelper用法，往常的数据库操作类，但是偏偏调试不成功，而且最重要的是，它不报错
中午吃饭回来，本来想打算睡个午觉的，但是项目太紧迫了，于是又跟车车研究了一中午，最后，发现如果不用@参数传递的话，是正常运行的，于是百度了一下，那些人说要用“？”当占位符
......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
