VB编程高手进 +50

来源：百度知道编辑：UC知道时间：2024/06/01 06:15:55

在我用SQL查询语句读取EXCEL的时候出错了!!!
请高手指点!
说明:是VB6.0 有模块,EXCEL的文件名为:a 有引用但是不知道有没有错所以请高手们说明一下 ,谢谢.
代码:
'FORM1
Private Sub Command1_Click()
Call Go
objCn.CursorLocation = adUseClient

If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from a", objCn, adOpenKeyset, adLockOptimistic
If objRs.RecordCount > 0 Then
Set DataGrid1.DataSource = objRs
End If
End Sub
'模块的:
Public objRs As New ADODB.Recordset
Public objCn As New ADODB.Connection

Public Function Go()
If objCn.State <> adStateClosed Then objCn.Close
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path + "\a.xls"
objCn.Open

End Function

望各位高手指点指点,谢谢
类型错了

正确答案来了：

'Form1
Private Sub Command1_Click()
Call Go
objCn.CursorLocation = adUseClient

If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from [Sheet1$]", objCn, adOpenKeyset, adLockOptimistic
If objRs.RecordCount > 0 Then
Set DataGrid1.DataSource = objRs
End If
End Sub

'模块的:
Public objRs As New ADODB.Recordset
Public objCn As New ADODB.Connection

Public Function Go()
If objCn.State <> adStateClosed Then objCn.Close
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\a.xls;" & _
"Extended Properties=""Excel 8.0;"""
objCn.Open

End Function

哪行出错？提示啥错误？

VB编程高手进 +50 VB编程高手进 VB编程高手进~~~~~~~~~~~~~ vb编程高手进~~~~~~~ vb编程高手进 vb编程高手进~ VB编程高手进` VB编程，高手进，急！ VB编程的高手进 VB编程高手进急~~~~~~~~~~