一、程序功能：将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
|
