if object_id('primarytbl') is not null drop table primarytblgo --建主表create table primarytbl( ID int primary key, --主键 aa int, bb int, cc int)go if object_id('foreigntbl') is not null drop table foreigntblgo --建外表create table foreigntbl( ID int primary key, --主键 aa int foreign key references primarytbl(ID) --建立外键 on update cascade, --更新级联 dd int, ee int)go --插入主表数据insert into primarytblselect 1, 1, 2, 3 union allselect 2, 2, 3, 4 union allselect 3, 3, 4, 5 union allselect 4, 4, 5, 6 union allselect 5, 5, 6, 7 union allselect 6, 6, 7, 8go --插入外表数据insert into foreigntblselect 1, 1, 2, 2 union allselect 2, 1, 3, 3 union allselect 3, 2, 4, 4 union allselect 4, 2, 4, 4 union allselect 5, 2, 5, 5 union allselect 6, 3, 6, 6 union allselect 7, 4, 7, 7go --显示主外表信息select *from primarytbl select *from foreigntblgo--primarytbl/*ID aa bb cc----------- ----------- ----------- -----------1 1 2 32 2 3 43 3 4 54 4 5 65 5 6 76 6 7 8--foreigntblID aa dd ee----------- ----------- ----------- -----------1 1 2 22 1 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ --更新主表主键update primarytblset ID = 8where ID =1go --结果select *from primarytbl select *from foreigntblgo /*--primarytblID aa bb cc----------- ----------- ----------- -----------2 2 3 43 3 4 54 4 5 65 5 6 76 6 7 88 1 2 3--foreigntblID aa dd ee----------- ----------- ----------- -----------1 8 2 22 8 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ drop table foreigntbldrop table primarytbl
站在用户的角度思考问题，与客户深入沟通，找到旺苍网站设计与旺苍网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站制作、网站设计、外贸网站建设、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖旺苍地区。
dt.select(条件)
返回的类型是
DataRow []
是行集合 不是 表
所谓主键，指的就是主关键字。在一个表中只能有唯一的一个主关键字。
当你觉得需要定义多个主键时，多半是你对该表及其周边关系的理解有误。
首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】
选择 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) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table '定义新表
MyTable.Name = "实验数据表" '表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class