当前位置:编程学习 > C#/ASP.NET >>

在VB2005中如何将ACCESS表中所查找的数据显示到DataGridView控件中?

1、ACCESS数据库HR.mdb的Employee表的内容如下;

工号 姓名 籍贯          学历 性别 所属部门 职务 进入公司时间
1320 李鹏 四川省成都市 本科 男 计调部 副总以上 1945-6 -30
1496 温家宝 河北省唐山市 本科 男 品保部 副总以上 1955-10-31
1502 吴仪 湖北省公安县 本科 女 市场部 部门经理 1960-1 -26
6 王山 广西区藤县 本科 男 测试部 部门经理 1996-4 -2 
123 华国锋 河北省          高中 男 市场部 副总以上 2006-10-9 
1000 邓小平 四川省广元县 大专 男 计调部 副总以上 1926-5 -4 
1011 蒋大军 广西区兴安县 研究生 男 技术部 研发主管 2006-10-9 
1021 陈赓 湖南省零凌县 大专 男 品保部 部门经理 1953-10-2 
1111 赵紫阳 河南省          本科 男 技术部 研发主管 2006-10-9 
2010 唐家旋 广西区巴马县 研究生 女 测试部 部门经理 2005-7 -1 
3024 胡锦涛 安徽省合肥市 本科 男 财务部 副总以上 1984-10-9 
3216 孙中山 广东省中山县 本科 男 计调部 部门经理 1912-3 -12
1192 林彪 湖北省黄冈县 小学 男 技术部 部门经理 1924-12-12
1195 江青 湖南省益阳市 小学 女 市场部 副总以上 1930-12-1 


2、任务是查找Employee表中的某一字段(如姓名:邓小平),即在窗口中的textbox中键入姓名“邓小平”;
3、然后单击“查找”按钮;
4、结果在DataGridView中显示与该姓名有关的全部信息;
    
   跪求大侠给一个较完整的程序,多谢了!
--------------------编程问答-------------------- DataGridView显示的是多记录数据。你只显示一条记录,用不着DataGridView。

建议你用一个panel,里边放上label和textBox。
--------------------编程问答-------------------- 你是不是还想要查找的程序? --------------------编程问答--------------------
引用 1 楼 torontosky 的回复:
DataGridView显示的是多记录数据。你只显示一条记录,用不着DataGridView。

建议你用一个panel,里边放上label和textBox。


哥们,我需要的东西正是是程序,呵呵
除了你说的方法外,要是用DataGridView来显示所查找的东西,那又如何写呢
我是一个初学者,仅知道教材上显示全部信息,要是仅显示所查找的东西,就不知道啦 --------------------编程问答-------------------- 将教材上的SQL语句改成下面就可以了:
Select * from Employee WHERE 姓名 = '" & TextBox1.Text & "' --------------------编程问答--------------------
引用 4 楼 asdfy 的回复:
将教材上的SQL语句改成下面就可以了:
Select * from Employee WHERE 姓名 = '" & TextBox1.Text & "'


哥们,它没有用到SQL语句,所以我也不懂SQL程序,原先的程序全部如下:

“MODULEHR.vb”

Option Strict Off
Option Explicit On
Module Module1
    Public cn As New ADODB.Connection
Public Function ConnectToDB() As Boolean
        On Error GoTo Err_Renamed
        '错误代码 cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & My.Application.Info.DirectoryPath & "\HR.mdb")

        '指定路径
        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & My.Application.Info.DirectoryPath & "\HR.mdb")
        ConnectToDB = True
        Exit Function
Err_Renamed:
        ConnectToDB = False
    End Function
End Module


“frmInfoS.vb”

Option Strict Off
Option Explicit On
Friend Class frmInfoS
    Inherits System.Windows.Forms.Form
    Dim rs1 As New ADODB.Recordset

    Private Sub frmInfoS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HRDataSet.Employee' table. You can move, or remove it, as needed.
        Me.TableAdapter1.Fill(Me.HRDataSet.Employee)  
'程序一运行到这里,则数据全部显示在 DATAGRIDVIEW 控件中
    End Sub

    '以下为 DATAGRIDVIEW 控件自带的导航栏
    Private Sub EmployeeBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployeeBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.BindingSource1.EndEdit()
        Me.TableAdapter1.Update(Me.HRDataSet.Employee)
    End Sub

End Class

但是查找和显示程序就没有啦,你能根据1楼的问题帮我补充吗?

--------------------编程问答-------------------- 自己顶一下,难道没人知道吗?
补充:.NET技术 ,  VB.NET
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,