bsp;
-------------------------------------------------
应用实例：
以罗斯文数据库为例，该数据库有客户、订单和订单明细三个表文件，客户和订单两张表在字段名“客户ID”有一对多的关系，订单和订单明细在字段名“订单ID”有一对多的关系。下述程序连接数据库，形成DataSet后，调用子程序ShowTables。
<%@Import Namespace=System.Data.oledb%>
<%@Import Namespace=System.Data%>
<%@Import Namespace=System.drawing%>
<html>
<head>
<script language="VB" runat="server">
sub Page_Load(Sender as Object, e as EventArgs)
dim dsDataSet as DataSet=new DataSet()
dim Constr,Conn as string
dsdataSet=cache("mySet")
if dsDataSet is Nothing
Constr =server.mappath("northwind.mdb")
Conn="provider=microsoft.jet.oledb.4.0; data source=" & Constr
dsDataSet=new DataSet()
dim odA as oledbDataAdapter=new oledbDataAdapter("select * from 客户",Conn)
odA.fill(dsDataSet,"Customers")
odA.SelectCommand.CommandText="select * from 订单"
odA.fill(dsDataSet,"Orders")
odA.SelectCommand.CommandText="select * from 订单明细"
odA.fill(dsDataSet,"Order_details")
dsDataSet.Relations.Add("M",dsDataSet.Tables(0).Columns("客户ID"),dsDataSet.Tables(1).Columns("客户ID"))
dsDataSet.Relations.Add("N",dsDataSet.Tables(1).Columns("订单ID"),dsDataSet.Tables(2).Columns("
-------------------------------------------------
应用实例：
以罗斯文数据库为例，该数据库有客户、订单和订单明细三个表文件，客户和订单两张表在字段名“客户ID”有一对多的关系，订单和订单明细在字段名“订单ID”有一对多的关系。下述程序连接数据库，形成DataSet后，调用子程序ShowTables。
<%@Import Namespace=System.Data.oledb%>
<%@Import Namespace=System.Data%>
<%@Import Namespace=System.drawing%>
<html>
<head>
<script language="VB" runat="server">
sub Page_Load(Sender as Object, e as EventArgs)
dim dsDataSet as DataSet=new DataSet()
dim Constr,Conn as string
dsdataSet=cache("mySet")
if dsDataSet is Nothing
Constr =server.mappath("northwind.mdb")
Conn="provider=microsoft.jet.oledb.4.0; data source=" & Constr
dsDataSet=new DataSet()
dim odA as oledbDataAdapter=new oledbDataAdapter("select * from 客户",Conn)
odA.fill(dsDataSet,"Customers")
odA.SelectCommand.CommandText="select * from 订单"
odA.fill(dsDataSet,"Orders")
odA.SelectCommand.CommandText="select * from 订单明细"
odA.fill(dsDataSet,"Order_details")
dsDataSet.Relations.Add("M",dsDataSet.Tables(0).Columns("客户ID"),dsDataSet.Tables(1).Columns("客户ID"))
dsDataSet.Relations.Add("N",dsDataSet.Tables(1).Columns("订单ID"),dsDataSet.Tables(2).Columns("
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
