Access数据库中添加表的问题.docVIP

创建数据库和表 Dim MdbPassWord As String = a If Dir(Application.StartupPath + \User.mdb) = Then Dim cat As Catalog = New Catalog() cat.Create(Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=User.mdb;Jet OLEDB:Database Password= MdbPassWord) Dim Cn As ADODB.Connection = New ADODB.Connection 定义连接 Dim objTable As ADOX.Table = New ADOX.Table 定义新表 Cn.Open(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=User.mdb;Jet OLEDB:Database Password= MdbPassWord) 链接到数据库 objTable.Name = tbUser 表命名 objTable.Columns.Append(UserName, , 10) 给表“tbUser” 创建一个新的字段，字段名“主键” 创建并追加一个新的关键。注意：我们只是通过“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.Columns.Append(Mod2, , 3) objTable.Columns.Append(Memo, ADOX.DataTypeEnum.adLongVarWChar) cat.Tables.Append(objTable) 把所有的新字段追加到表 objTable = Nothing cat = Nothing Cn.Close() Cn = Nothing Dim SQLString As String Dim ConnTemp As String ConnTemp = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=User.mdb;Jet OLEDB:Database Password=a SQLString = INSERT INTO tbUser VALUES(SAdmin,113,超级管理员,读和写,读和写,具有所有权限) Dim oleconn As New OleDb.OleDbConnection(ConnTemp) 连接字符串变量“CONN”在主模块“PublicVar”中声明； Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn) cmd.CommandType = CommandType.Text If oleconn.State ConnectionState.Open Then 如果数据库没打开； oleconn.Open() 打开数据库连接； End If cmd.ExecuteNonQuery() 执行SQL语句； If oleconn.State ConnectionState.Closed Then 如果数据没关闭；