Question

VB6+sql语言查询excel出错,望指点

Private Sub cmdFind_Click()
Dim a As String
Adodc.RecordSource = "select 用途 from [cu$] where 用途='中' order by 编号 asc"
Adodc.Refresh
DataGrid.Refresh

End Sub

Private Sub cmdOpen_Click()

Dim cnExcel As New ADODB.Connection
Dim rsExcel As New ADODB.Recordset
cnExcel.CursorLocation = adUseClient
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= C:\Documents and Settings\f2908233\桌面\cu.xls;Extended Properties='Excel 8.0;HDR=Yes'"
strSql = "select * from [cu$] order by 编号"
If rsExcel.State = adStateOpen Then rsExcel.Close
rsExcel.Open strSql, cnExcel, adOpenStatic, adLockOptimistic 'rsExcel就是生成的相应的纪录集
Set DataGrid.DataSource = rsExcel

With Adodc
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= C:\Documents and Settings\f2908233\桌面\cu.xls;Extended Properties='Excel 8.0;HDR=Yes'"
.CursorLocation = adUseClient
.RecordSource = "select * from [cu$] order by 编号"

End With
Adodc.Refresh
DataGrid.Refresh

End Sub

查询不出结果,不知道为什麼?难道是连接有问题?哪为什麼能打开xls呢?
就是点查询按钮没反应,望指点
晕 为什麼要合成一个?查询和打开不一回事啊
我首先也觉得觉得链结没有问题.如果有问题就根本打不开那个excel,但是Adodc控件事不好使得,测试他说连结不成功(照著连结access数据库那麼做的).这是不是表示Adodc1.refresh没意义?
我没觉得我的查询语句哪错了,而且运行的时候程序没有报错….这个怎麼解决啊?谢谢

Answer 1

可以肯定数据连接没有错误，应该是你的查询语句有问题
还有你为什么写成这样的语句
cmdOpen_Click() cmdFind_Click()
我看这两个过程可以合成一个，这样条理也清晰一点