Access2000速成教程－－2.2 定义与使用交叉表查询

核心提示： 一、程序功能：将orders表和Customers表中的字段绑定到文本框二、窗体设计1、新建ASP.NET Web应用程序，命名为Sql4，Access2000速成教程－－2.2 定义与使用交叉表查询(6)，选择保存路径然后点击确定，2、向窗体中添加两个Label和两个Textbox控件，窗体界面见下图三、代码设计切

　　一、程序功能：将orders表和Customers表中的字段绑定到文本框
　　
　　二、窗体设计
　　
　　1、新建ASP.NET Web应用程序，命名为Sql4，选择保存路径然后点击确定。
　　
　　2、向窗体中添加两个Label和两个Textbox控件，窗体界面见下图
　　
　　三、代码设计
　　
　　切换到代码窗口，添加代码如下：
　　
　　Imports System.Data.SqlClient
　　Public Class WebForm1
　　Inherits System.Web.UI.Page
　　
　　Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　Dim scon As New SqlConnection("server=localhost;database=northwind;integrated security=true")
　　Dim i As Integer = 10248
　　'创建一个数据适配器，查询订单表中的订单号和客户表的公司名称，此处使用了表格别名
　　Dim sda As New SqlDataAdapter _
　　("select o.orderid, c.companyname from orders o, customers c where o.customerid=c.customerid and o.orderid=" & i.ToString, scon)
　　Dim ds As New DataSet
　　Try
　　sda.Fill(ds)
　　Catch ex As Exception
　　End Try
　　'绑定数据
　　
　　TextBox1.Text = ds.Tables(0).Rows(0).Item(0)
　　TextBox2.Text = ds.Tables(0).Rows(0).Item(1)
　　End Sub
　　End Class