Question

vb.net操作excel中的记录

在已有的excel表格中有很多条记录，现在想查找出其中某一个字段相同的并显示出来，需要用vb.net编程实现。
跪求编程代码！！！请各位高手指教！！
回答很满意，我把问题再具体一下下啊！
类型 姓名 性别 地址
B类 刘青 男 德州
B类 周燕 女 德州
A类 顾小平 女 淄博
A类 李立 男 聊城
B类 张新 女 济南
A类 王大明 男 临沂
B类 顾小平 女 淄博
A类 王立 男 泰安
B类 周燕 女 德州
B类 张新 女 济南
A类 周燕 女 潍坊
B类 李晓 女 莱芜
B类 王大明 男 临沂
B类 王立 男 济宁
A类 王大明 男 临沂
B类 张新 女 济南
A类 李红 女 青岛
比如有这样一个表格。要求如下：参加某活动，对于A类每人最多能报一项，B类每人最多报两项，并且总数不能过三项。有的姓名一样但根据地址可以发现他们并不是同一个人。怎么把不符合要求的记录显示出来，并能显示为什么不符合要求（如“A类受限”“B类受限”“总数受限”）

Answer 1

试了好久，终于试出来了，把代码发给你分享：
首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=E:\myexl.xls;" & _
"Extended Properties=Excel 8.0;"
’这里面，E：\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接") ’这句我用来测试能不能连接的，
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名，你换成你自己的，注意格式
'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建
'立查询条件

'下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()

objAdapter1.SelectCommand = objCmdSelect

'下面将打开的数据放在dataset中
Dim objDataset1 As New DataSet()

objAdapter1.Fill(objDataset1, "XLData")

’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView

' Clean up objects.
objConn.Close()
End Sub