用excel建了一个表,怎样用vb访问这个表,并且能用sql语句进行查询操作?
解决方案 »
- 新人请老师指点
- 发现一个奇怪的问题:当我在编译环境下退出程序时候还必须按下“终止”才能完全退出,编译成可执行文件时候退出发现进程依然存在
- 这样的表结构怎样才能显示出所要求的报表(内有详细说明) 急等!谢谢
- 求读写二进制文件的VB源代码,最好是读写res文件的
- 大家不要去帮人家做毕业设计,也不要给源代码
- 如何把excel的内容扩充到整页打印?
- 怎样使下面单选的4个选项随机出现?最好帮忙弄一下代码!先谢谢啦!
- 请问如何在VB中调用ACCESS中的报表?
- 如何获取日历控件用户所选的时间?急急!!!!!
- 帮帮我,顺便考考你,请进〉〉〉〉〉〉〉
- 客户端在调用服务器上的COM时报错:"ActiveX 部件不能创建对象",COM新手.大家帮忙啊!!!!!!!!!!!!!!
- 如何跨工程调用窗体?
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Book1.xls;" & _
"Extended Properties=""Excel 8.0;"""
oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
'或
oRS.Open "Select * from [Sheet1$A1:B10]", oConn, adOpenStatic2 用 Excel.Application 等对象:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")
'读取单元格 Cell 或 范围 Range 数据
'......
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set dgData.DataSource = Read_Excel(App.Path & "\" & "test.xls")
Set obj = Nothing
End SubPublic Function Read_Excel _
(ByVal sFile _
As String) As ADODB.Recordset On Error GoTo fix_err
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set Read_Excel = rs
Set rs = Nothing
Exit Function
fix_err:
Debug.Print Err.Description + " " + _
Err.Source, vbCritical, "Import"
Err.Clear
End Function