资源描述：
《Access数据库中添加表的问题.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、创建数据库和表DimMdbPassWordAsString="a"IfDir(Application.StartupPath+"User.mdb")=""ThenDimcatAsCatalog=NewCatalog()cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:EngineType=5;DataSource=User.mdb;JetOLEDB:DatabasePassword="&MdbPassWord)DimCnAsADODB.Connection=New
2、ADODB.Connection'定义连接DimobjTableAsADOX.Table=NewADOX.Table'定义新表Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=User.mdb;JetOLEDB:DatabasePassword="&MdbPassWord)'链接到数据库objTable.Name="tbUser"'表命名objTable.Columns.Append("UserName",,10)'给表“tbUser”创建一个新的字段，字段名“主键”
3、'创建并追加一个新的关键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集objTable.Keys.Append("PrimaryKey",ADOX.KeyTypeEnum.adKeyPrimary,"UserName")objTable.Columns.Append("Password",,10)objTable.Columns.Append("RealName",,10)objTable.Columns.Append("Mod1",,3)objTable.Column
4、s.Append("Mod2",,3)objTable.Columns.Append("Memo",ADOX.DataTypeEnum.adLongVarWChar)cat.Tables.Append(objTable)'把所有的新字段追加到表objTable=Nothingcat=NothingCn.Close()Cn=NothingDimSQLStringAsStringDimConnTempAsStringConnTemp="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Us
5、er.mdb;JetOLEDB:DatabasePassword=a"SQLString="INSERTINTOtbUserVALUES('SAdmin','113','超级管理员','读和写','读和写','具有所有权限')"DimoleconnAsNewOleDb.OleDbConnection(ConnTemp)'连接字符串变量“CONN”在主模块“PublicVar”中声明；DimcmdAsOleDb.OleDbCommand=NewOleDb.OleDbCommand(SQLString,oleconn)cmd.
6、CommandType=CommandType.TextIfoleconn.State<>ConnectionState.OpenThen'如果数据库没打开；oleconn.Open()'打开数据库连接；EndIfcmd.ExecuteNonQuery()'执行SQL语句；Ifoleconn.State<>ConnectionState.ClosedThen'如果数据没关闭；oleconn.Close()'关闭数据库连接；EndIfNewMdb=True连接数据库，创建表DimCnAsADODB.Connection=Ne
7、wADODB.Connection'定义连接DimobjTableAsADOX.Table=NewADOX.Table'定义新表Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&CurrentPath&"数据记录DataBase.mdb")'链接到数据库DimcatAsADOX.Catalog=NewADOX.Catalogcat.ActiveConnection=CnobjTable.Name="tbUser"'表命名objTable.Columns.App
8、end("UserName",,10)'给表“tbUser”创建一个新的字段，字段名“主键”'创建并追加一个新的关键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集objTable.Keys.Append("PrimaryKey",ADOX.KeyTy
