VB能否用Excel作为数据库，怎样用？

发布网友发布时间：2022-04-21 21:43

共1个回答

热心网友时间：2023-07-29 18:11

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\桌面\新资料夹 (2)\cu.xls;Extended Properties='Excel 8.0;HDR=Yes'"
strSql = "select * from [toolbase$] "
If rsExcel.State = adStateOpen Then rsExcel.Close
rsExcel.Open strSql, cnExcel, adOpenStatic, adLockOptimistic
'rsExcel就是生成的相应的记录集

你只要 set DataGrid1.datesource=rsExcel 这样就行了

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com