快来帮帮忙！！各位大虾！！！关于用vb和execel进行连接的问题。还有查询的问题！！快来！时间很紧！！

Question

execel中还有唯一的序号！快来帮帮忙！！
songyangk(小草):快来！
吸海垂虹：快来！
紫和：快来！

Answer 1

　hnlzh(吸海垂虹)： 大哥！你终于来了！！！代码：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strpath As StringPrivate Sub Command1_Click()
Screen.MousePointer = 11
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select * from [sheet1$]  "
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
Screen.MousePointer = 99
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Initialize()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
strpath = App.Path
If Right(strpath, 1) <> "\" Then strpath = strpath & "\"
conn.Open "Driver={Microsoft Excel Driver (*.xls)};dbq=" & strpath & "user.xls"
End Sub
就是从execel中选出来重复的数据。具体情况  msn: [email protected] 
大哥过来详谈

Answer 2

to ozw(沧浪客)　:就是这样联的。可是excel中字段名如何取？？

Answer 3

在哪部分。我现在用的是win2k advance server 英文。msdn英文。vb英文。我没有中文的

Answer 4

'多加了一个command3, 进入后先按command1，再按command3,我在你的excel里去掉了第一行，然后又新增了一条数据，里面是有一些重复项的。Option ExplicitDim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strpath As StringPrivate Sub Command1_Click()
Screen.MousePointer = 11
Dim sql As String
Set rs = New ADODB.Recordset
'sql = "select * into [Excel 8.0;database=" & strpath & "book1.xls].[sheet1] from [sheet1$] " ' where D???='" & Text1 & "' or ×′ì?='" & Text2 & " ' or 1¤×ê??=" & Text3 '?áo?ExcelDT?? D??? ×′ì? 1¤×ê?? ￡?sqló??? éú3é???t?? book1.xls
sql = "select * from [sheet1$] "
'sql = "select [sheet1$].b2  from [sheet1$]  "
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
Screen.MousePointer = 99
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Command3_Click()
rs.Close
Dim sql As String
Dim s1 As String
Dim s2 As String
Dim s3 As Strings1 = "select 姓名 from [sheet1$] group by 姓名 having count(姓名)>1"
s2 = "select 监护人姓名 from [sheet1$] group by 监护人姓名 having count(监护人姓名)>1"
s3 = "select 监护人身份证号 from [sheet1$] group by 监护人身份证号 having count(监护人身份证号)>1"
sql = "select * from [sheet1$] where 姓名 in (" & s1 & _
            ") or 监护人姓名 in(" & s2 & ") or 监护人身份证号 in(" _
            & s3 & ")"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Initialize()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
strpath = App.Path
If Right(strpath, 1) <> "\" Then strpath = strpath & "\"
strpath = "c:\windows\desktop\"
conn.Open "Driver={Microsoft Excel Driver (*.xls)};dbq=" & strpath & "user.xls"   '′ò?a???t?? book8.xls
End Sub

Answer 5

[mircosoft][odbc execel driver] too few paramenters.expected 3
出现这样的错误！
为什么先要按command1?后按command3?

Answer 6

songyangk(小草)　：
哈哈，为什么不回答下面这个问题呢？多好的拿分机会都错过了！
http://www.csdn.net/expert/topic/254/254246.shtm

Answer 7

songyangk(小草)　:你在哪里？？？还有谁能看出来是什么错误？？我给分！！

Answer 8

楼上的：
为什么不用dao的data控件直接绑定excel表呢？
多方便的方法啊！

Answer 9

[mircosoft][odbc execel driver] too few paramenters.expected 3
出现这样的错误！
为什么先要按command1?后按command3? 
我的文件名路径没有改呀
者和我开始时的错误是一样的

Answer 10

sql = "select * from [sheet1$] where &ETH;&Otilde;&Atilde;&ucirc; in (" & s1 & ") or &frac14;à&raquo;¤&Egrave;&Euml;&ETH;&Otilde;&Atilde;&ucirc; in(" & s2 & ") " 'or &frac14;à&raquo;¤&Egrave;&Euml;&Eacute;í·&Yacute;&Ouml;¤&ordm;&Aring; in(" & s3 & ")"
我怀疑是s3 = "select &frac14;à&raquo;¤&Egrave;&Euml;&Eacute;í·&Yacute;&Ouml;¤&ordm;&Aring; from [sheet1$] group by &frac14;à&raquo;¤&Egrave;&Euml;&Eacute;í·&Yacute;&Ouml;¤&ordm;&Aring; having count(&frac14;à&raquo;¤&Egrave;&Euml;&Eacute;í·&Yacute;&Ouml;¤&ordm;&Aring;)>1"
错了！

Answer 11

我的代码不是这样的呀,你把execl里的第一行删掉了吗?
在command1对RS初始化的.

Answer 12

songyangk(小草):你在那里？？？你调试通过了？？？？

Answer 13

删掉了。并且添了一条新的数据。里面有何后面重复的。
command1里面也初始化了。

Answer 14

这个我相信！可是我这里为什么不行？？要不你把代码和execel文件发给我吧。我再看一下
。你要是知道是什么问题也行

Answer 15

感谢吸海垂虹 参与！！给分！
感谢 songyangk(小草):给分!!
感谢 大家来捧场!!