10.2.1使用ADO.NET访问数据库过程【例10.1】读取数据库School的数据表TStudent的数据，显示学生数量。ImportsSystem.Data设置ADO.MET数据名称空间Imports System.Data.SqlClientPublic Class Forml定义SglConnection对象sglcnDim sqlcn As SqlConnectionDim sqlcmd As SqlCommand定义SqlComnand对象sqlcmdPrivate Sub Buttonl_Click(sender As Object, e As EventArgs) Handles Buttonl.Clicksqlcn= New SqlCornection()初始化连接对象sqlcn.CornectionString ="server=localhostdatabase=School:User ID=sa:Password=760707lvsqlcn.Open()打开连接sqlcmd = New SqlCommand("Select count(*) as totalStudent From T_Student")设置sglcmd的Connection属性sqlcmd.Cornection=sqlcn执行查询命令并返回一个值DimrcountAsInteger=sqlcmd.ExecuteScalar()显示结果TextBoxl.Text = rcount关闭连接sqlcn.Close()End SubEnd Class数据库技术VisualBasic.NET
数据库技术 Visual Basic .NET 10.2.1 使用ADO.NET访问数据库过程 【例10.1】读取数据库School的数据表T_Student的数据，显 示学生数量。 1.在VS中新建工程，在窗体上放置相应控件，设置控件属性 2.双击“查询”按钮，响应其Click事件 3.在Click事件中，首先生成数据库连接对象 4.然后生成查询语句，并设置数据库查询对象的连接属性 5.执行查询对象，将结果赋给变量，并在窗体中显示 6.关闭数据库连接对象
10.2.1使用ADO.NET访问数据库过程3．使用SqlDataAdapter读取数据填充到数据集：Dim dsDA As New SqlDataAdapter(声明SqlDataAdapter对象dsDAdsDA. SelectCommand = New SqlCommand(设置SelectCommand属性为Sq1CommanddsDA.SelectCommand.Connection = sqlcn设置连接对象（前面已定义的连接对象）dsDA.SelectCommand. CommandText="Select * From T StudentDim dsSt As New DataSetOdsDA.Fill(dsSt, "St info")Fi11语句语法：Fill（<数据集对象名>，<数据表名>数据库技术VisualBasic.NET
数据库技术 Visual Basic .NET 10.2.1 使用ADO.NET访问数据库过程 3. 使用SqlDataAdapter读取数据填充到数据集： Dim dsDA As New SqlDataAdapter() ' 声明SqlDataAdapter对象dsDA dsDA.SelectCommand = New SqlCommand() ' 设置SelectCommand属性为SqlCommand dsDA.SelectCommand.Connection = sqlcn ' 设置连接对象（前面已定义的连接对象） dsDA.SelectCommand.CommandText="Select * From T_Student " Dim dsSt As New DataSet() dsDA.Fill(dsSt, "St_info") Fill语句语法：Fill(<数据集对象名>, <数据表名>)