在datagrid中使用表间关系（连接ACCESS）

最新推荐文章于 2018-04-04 10:53:43 发布

wugecn

最新推荐文章于 2018-04-04 10:53:43 发布

阅读量799

点赞数

文章标签： datagrid access dataset string class object

本文链接：https://blog.csdn.net/wugecn/article/details/514126

版权

该博客介绍了如何在Windows Forms应用程序中利用.NET Framework与ACCESS数据库交互，创建表间关系。通过建立DataRelation，实现了在datagrid中展示ACCESS数据库中'部门暂'和'全体员工'表之间的连接，使得用户可以查看每个部门的人员信息。

摘要由CSDN通过智能技术生成

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim starpath As String = Application.StartupPath & "/renshi.mdb"
    Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
    Dim connectstr As String = connstr & "Data Source=" & starpath
    Dim mycon As New OleDbConnection(connectstr)
    Dim mydt As New OleDbDataAdapter("select * from 部门", mycon)
    Dim myset As New DataSet()   '声明实例化数据集myset

Sub rela()
        Dim pc As DataColumn
        Dim cc As DataColumn
        pc = myset.Tables("部门暂").Columns("部门编号")
        cc = myset.Tables("全体员工").Columns("所属部门")
        Dim rel As New DataRelation("查看本部门人员", pc, cc)
        myset.Relations.Add(rel)
    E