VB 2010建立与操作Access 2000数据库解决方案
VB 2010建立与操作Access 2000数据库
用VB6我会操作，用Vb6的方法到VB2010来操作貌似行不通
一、当前目录下，AAA.mdb不存在就新建一个，并增加字段“期号”“百”“十”“个”，设置“期号”为主键
二、用VB2010，如何向AAA.mdb添加数据
三、如何调出“期号”小于某值的头三百行的数据
请高手指点，谢谢
------解决方案--------------------
VB.NET2008创建动态ACCESS数据库并创建表示例首先需添加引用
Microsoft ActiveX Data Objects 2.x Library
Microsoft ADO Ext. 2.x for DDL and Security
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
'创建新的空access数据库表
Dim cat As Catalog = New Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= NewMDB.mdb")
'Console.WriteLine("Database Created Successfully")
' 以下代码创建一个名为“测试项目表”单主键新表
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=NewMDB.mdb") '链接到数据库
objTable.Name = "测试项目表" '表命名
'给表“测试项目表” 创建一个新的字段，字段名“主键”
objTable.Columns.Append("主键", , ADOX.DataTypeEnum.adInteger)
'创建并追加一个新的主键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集
objTable.Keys.Append("主键", ADOX.KeyTypeEnum.adKeyPrimary, "主键")
objTable.Columns.Append("数量", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
cat.Tables.Append(objTable) '把所有的新字段追加到表
objTable = Nothing
Cat = Nothing
Cn.Close()
Cn = Nothing
End Sub
End Class
用VB6我会操作，用Vb6的方法到VB2010来操作貌似行不通
一、当前目录下，AAA.mdb不存在就新建一个，并增加字段“期号”“百”“十”“个”，设置“期号”为主键
二、用VB2010，如何向AAA.mdb添加数据
三、如何调出“期号”小于某值的头三百行的数据
请高手指点，谢谢
------解决方案--------------------
VB.NET2008创建动态ACCESS数据库并创建表示例首先需添加引用
Microsoft ActiveX Data Objects 2.x Library
Microsoft ADO Ext. 2.x for DDL and Security
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
'创建新的空access数据库表
Dim cat As Catalog = New Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= NewMDB.mdb")
'Console.WriteLine("Database Created Successfully")
' 以下代码创建一个名为“测试项目表”单主键新表
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=NewMDB.mdb") '链接到数据库
objTable.Name = "测试项目表" '表命名
'给表“测试项目表” 创建一个新的字段，字段名“主键”
objTable.Columns.Append("主键", , ADOX.DataTypeEnum.adInteger)
'创建并追加一个新的主键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集
objTable.Keys.Append("主键", ADOX.KeyTypeEnum.adKeyPrimary, "主键")
objTable.Columns.Append("数量", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
cat.Tables.Append(objTable) '把所有的新字段追加到表
objTable = Nothing
Cat = Nothing
Cn.Close()
Cn = Nothing
End Sub
End Class