基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

连接数据库，查找数据库，修改下数据库所在路径 即可运行

Imports System.Data.OleDb

Public Class Form1
    Dim cnn As OleDbConnection
    Dim ada As OleDbDataAdapter
    Dim ds As DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New OleDbConnection
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source = C:\Users\86181\Desktop\VB.NET\程序测试\VB.NET查询ACCESS中的数据\student.mdb"
        cnn.Open()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        If ComboBox1.Text = "请选择" Then
            MsgBox("请选择查询方式", MsgBoxStyle.OkOnly, "提示")
            Exit Sub
        ElseIf ComboBox1.Text = "学号" Then
            str = "学号"
        ElseIf ComboBox1.Text = "姓名" Then
            str = "姓名"
        ElseIf ComboBox1.Text = "性别" Then
            str = "性别    "
        ElseIf ComboBox1.Text = "班级" Then
            str = "班级"
        End If
        If TextBox1.Text = "" Then
            MsgBox("请输入查询条件", MsgBoxStyle.OkOnly, "警告")
            Exit Sub
        End If
        ds = New DataSet
        ada = New OleDbDataAdapter
        ada.SelectCommand = New OleDbCommand
        ada.SelectCommand.Connection = cnn
        ada.SelectCommand.CommandText = "select * from Student_table where " & str & " = '" & TextBox1.Text & "'"
        ada.SelectCommand.ExecuteNonQuery()
        ada.Fill(ds)
        If ds.Tables(0).Rows.Count = 0 Then
            MsgBox("没有符合条件的学生，请尝试别的查询方式！", MsgBoxStyle.OkOnly, "提示")
        Else
            DataGrid1.DataSource = ds.Tables(0)
        End If
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class