VB6.0中如何添加ADODB控件? 30
在网上看到ADODB控件,能将数据库与Excel联系起来,一直以来做有关数据库的都是用的ADODC,现在请高手指教!!!!...
在网上看到ADODB控件,能将数据库与Excel联系起来,一直以来做有关数据库的都是用的ADODC,现在请高手指教!!!!
展开
展开全部
首先引用组件 Microsoft ActiveX Data Objects 2.x Library
然后可以用ADO编写数据库操作.(ADODB 是组件，不是控件）
ADO读取Excel文件(以下VBScript代码，与VB可能有差异)
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
rs.Open "Select * from [Sheet1$]", Conn, 1, 3
c=rs.recordcount
rs.move 1
msgbox (rs(0))'读取单无格A1的内容
rs.close
conn.close
然后可以用ADO编写数据库操作.(ADODB 是组件，不是控件）
ADO读取Excel文件(以下VBScript代码，与VB可能有差异)
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
rs.Open "Select * from [Sheet1$]", Conn, 1, 3
c=rs.recordcount
rs.move 1
msgbox (rs(0))'读取单无格A1的内容
rs.close
conn.close
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
网易云信提供一站式的 1 对 1 UIKit 组件库，可以更快地搭建 1 对 1 社交平台，能够快速实现音视频呼叫、音视频通话、1对1消息发送、美颜和礼物功能，直接可以复用我们的组件源码就可以了。优势：1、全套1对1 UI组件，接入更快；2...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
