例9.1-交互查询实现

1.功能

查询一个名单中某个部门人员信息

2.实现方式

（1）连接数据库

（2）交互查询

（3）网格控件显示

3.结果

4.实现的代码

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles  Button1.Click
        '定义连接、适配器、数据集对象
        Dim objConn As New OleDbConnection
        Dim objAdp As New OleDbDataAdapter
        Dim objDataSet As New DataSet
       '定义连接字符、sql字符串
        Dim conStr$, sqlStr$
        conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PersonalIncome.mdb"
        sqlStr = "select * from Personal where 部门='" & TextBox1.Text & "'"
        objConn.ConnectionString = conStr
        objAdp = New OleDbDataAdapter(sqlStr, objConn)
        objAdp.Fill(objDataSet, "哪个部门")
        DataGridView1.DataSource = objDataSet.Tables("哪个部门")
    End Sub
End Class