《Access数据库中添加表的问题.doc》由会员分享，可在线阅读，更多相关《Access数据库中添加表的问题.doc（5页珍藏版）》请在金锄头文库上搜索。
1、创建数据库和表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.Connec
2、tion 定义连接 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_F
3、ield”作为主键源列。新键被追加到“测试项目表”的键集 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
4、.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
5、,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() 打开数据库连接； En
6、d If cmd.ExecuteNonQuery() 执行SQL语句； If oleconn.State ConnectionState.Closed Then 如果数据没关闭； oleconn.Close() 关闭数据库连接； End If NewMdb = True连接数据库，创建表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
7、= & CurrentPath & 数据记录DataBase.mdb) 链接到数据库 Dim cat As ADOX.Catalog = New ADOX.Catalog cat.ActiveConnection = Cn objTable.Name = tbUser 表命名 objTable.Columns.Append(UserName, , 10) 给表“tbUser”创建一个新的字段，字段名“主键” 创建并追加一个新的关键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集 objTable.Keys.Append(PrimaryKey,
8、 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) 把所有的新字段追加到表 objT
9、able = Nothing cat = Nothing Cn.Close() Cn = Nothing Dim SQLString As String Dim ConnTemp As String ConnTemp = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & CurrentPath & 数据记录DataBase.mdb SQLString = INSERT INTO tbUser VALUES(SAdmin,113,超级管理员,读和写,读和写,具有所有权限) Dim oleconn As New OleDb.OleDbConnectio
10、n(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 ConnectionSta
11、te.Closed Then 如果数据没关闭； oleconn.Close() 关闭数据库连接； End If NewMdb = True 判断唯一性Try Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & CurrentPath & 数据记录DataBase.mdb Dim conn As OleDbConnection Dim comm As OleDbCommand Dim dr As OleDbDataReader conn = New OleDbConnection(str) conn.Open() Dim strsql As String = Nothing strsql = select * from Model where 型号= & XLH.Text.ToString & comm = New OleDbCommand(strsql, conn) dr = comm.ExecuteReader If dr.Read Then Else MsgBox(该编号不存在) End If dr.Close() conn.Close() Catch ex As Exception End Try End Sub
