关于access
Func dbcreate($mdb_path, $Tb_name);创建数据库函数
Local $addfld,$newMdb,$addtbl
$newMdb = ObjCreate("ADOX.Catalog")
$newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_path)
$newmdb.ActiveConnection.Close;建数据库
$addtbl = ObjCreate("ADODB.Connection")
$addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_path)
$addTbl.Execute("CREATE TABLE " & $Tb_name)
$addtbl.Close;建表
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_path)
$addfld.Execute("ALTER TABLE " & $Tb_name & "ADD IDs identity(1, 1),1 char,2 char,3 char,4 char,5 char,6 char,7 char,8 char");id identity(1, 1) primary key为自动编号和主键
$addfld.Close;建列表名
MsgBox(64,"提示","成功建立数据库第一部分",5)
EndFunc
这段为什么会出错？
好像少于8个就不会出错，这是为什么？不懂，怎么解决？
页:
[1]