2023年11月23日发(作者：)

最新MDB数据库操作⼤全（⾃⼰搜集整理基本上很全了）

<%

if request("act")="FindMdbFileList" then

RootPath=trim(request("RootPath"))

'复制数据表结构

'更新整个字段常⽤属性

Sub FindPathName(PathName)

On Error resume next

if err then

If Res=1 then

Sub DropTableName(PathName,TableName)

Set sfolder= der(folderpath)

set sfolder=der(folderpath).SubFolders

For Each MyField In s

case "varchar"

if ColumnLength="" then

else

case "hyperlink"

onChange="ChangeTableName(s[edIndex].value)">

end sub

Connection =Conn

ColumnType="datetime"'⽇期时间