一、程序功能:将orders表和Customers表中的字段绑定到文本框
二、窗体设计
1、新建ASP.NET Web应用程序,命名为Sql4,选择保存路径然后点击确定。
2、向窗体中添加两个Label和两个Textbox控件,窗体界面见下图
三、代码设计
切换到代码窗口,添加代码如下:
Imports System.Data.SqlClientPublic Class WebForm1Inherits System.Web.UI.PagePrivate 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 SubEnd Class