文件名称：利用SqlCommand产生数据集-VB.NET数据库程序开发
文件大小：1.18MB
文件格式：PPT
更新时间：2024-05-13 13:18:40
vb与数据库
1）利用SqlCommand产生数据集 数据查询的数据输入是来自控件ComboBox1的课程号集。以SqlCommand中的查询命令实现控件ComboBox1中的课程号填充。 Private Sub Form1_Load(…) Handles MyBase.Load Dim myconn As New SqlConnection("Initial Catalog=school;Data Source=X; " _ & "Integrated Security=SSPI;") '创建SqlConnection对象myconn Dim sql As String = "Select CourseCode From T_Course" '定义查询语句赋值给sql变量 Dim mycmd As New SqlCommand() '创建SqlCommand对象mycmd mycmd.Connection = myconn '定义SqlCommand对象数据库连接 mycmd.CommandText = sql '定义SqlCommand对象数据查询命令 Dim myadapter As New SqlDataAdapter(mycmd) '定义SqlDataAdapter对象myadapter Dim mydataset As New DataSet() '定义DataSet对象mydataset myadapter.Fill(mydataset, "课程号") '填充mydataset"课程号"表 ComboBox1.DataSource = mydataset.Tables("课程号") '指定ComboBox1数据源 '获取"课程号"表中的第0列数据, 用于ComboBox1显示,其中ToString是Columns(0)对象 '的方法,功能是获取该列的值 ComboBox1.DisplayMember = mydataset.Tables("课程号").Columns(0).ToString End Sub 比较:在例7-2中,下列语句完成和本例中粗体语句相同的功能 Dim myadapter As New SqlDataAdapter(sql, myconn)