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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
