本帖最后由 renly 于 2010-3-2 18:41 编辑
#include <File.au3>
#include <Access.au3>
#include <Array.au3>
$a = _FileListToArray("C:\Documents and Settings\renly\桌面\shuju", '*', 1)
$adSource = @ScriptDir & "\DB1.mdb"
$adCol = "a TEXT(10) | b MEMO | c COUNTER | d INTEGER | e YESNO | f DATETIME | g CURRENCY | h OLEOBJECT"
If $a <> 0 Then
_accessCreateDB($adSource);在脚本目录创建DB1.mdb数据库
For $i = 1 To $a[0]
$adTable = $a[ $i]
_accessCreateTable($adSource, $adTable, $adCol);在DB1.mdb数据库中创建表
MsgBox(0, "提示", "数据库<" & $adTable & ">表创建成功,创建内容为" & $adCol)
Next
EndIf
说下主题思想:想把文件夹里的文本文件名称导出作为数据库表的名称,然后把文本中的内容读入表中,但在循环读入时不行,请高手帮忙 不胜感激 |