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 这样就行了
