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 |
