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

来源：百度知道编辑：UC知道时间：2024/05/05 13:00:53

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 I

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

VB6+sql语言查询excel出错,望指点 VB6 SQL查询问题 SQL查询数据库语言 SQL语言查询问题 aso sql语言查询问题数据库查询问题sql语言 sql 语言中如何查询 sql 题（查询语言） vf 编程 SQL 语言查询 sql查询语言的问题？