| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1269 人关注过本帖
标题:关于VB读取07版与13版excel出现报错怎么解决,读03版正常!
只看楼主 加入收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
结帖率:82.19%
收藏
已结贴  问题点数:20 回复次数:3 
关于VB读取07版与13版excel出现报错怎么解决,读03版正常!
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Function GETDATA()
  If rs.Fields.Item(0).Value <> "" Then Text1(0).Text = rs.Fields.Item(0).Value
  If rs.Fields.Item(1).Value <> "" Then Text1(1).Text = rs.Fields.Item(1).Value
  If rs.Fields.Item(2).Value <> "" Then Text1(2).Text = rs.Fields.Item(2).Value
  If rs.Fields.Item(3).Value <> "" Then Text1(3).Text = rs.Fields.Item(3).Value
  If rs.Fields.Item(4).Value <> "" Then Text1(4).Text = rs.Fields.Item(4).Value
  If rs.Fields.Item(5).Value <> "" Then Text1(5).Text = rs.Fields.Item(5).Value
End Function
Private Sub Form_Activate()
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=111.xls;Extended Properties='Excel 8.0;HDR=Yes'"
  cn.Open
  rs.Open "select * from [sheet1$]", cn, adOpenKeyset, adLockOptimistic
  Dim i As Integer
  If Not rs.BOF Then rs.MoveFirst
  GETDATA
  Label10.Caption = rs.RecordCount
End Sub
Private Sub Command1_Click()
  rs.MovePrevious
  If rs.BOF = True Then
     MsgBox "记录已经到第一条!"
     rs.MoveFirst
  End If
  GETDATA
End Sub
Private Sub Command2_Click()
  rs.MoveNext
  If rs.EOF = True Then
     MsgBox "记录已经到最后一条!"
     rs.MoveLast
  End If
  GETDATA
End Sub
Private Sub Command3_Click()
  End
End Sub
搜索更多相关主题的帖子: excel Text1 
2017-02-19 21:44
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
前面已经有人说过了,03与其后版本的 连接字串不同,使用的驱动不同。

授人于鱼,不如授人于渔
早已停用QQ了
2017-02-19 23:21
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:7 
Microsoft.Jet.OLEDB.4.0
这个4.0不对,具体自己百度一下吧
2017-02-20 10:30
tiantian006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-1-10
收藏
得分:0 
同题,求明确下解决办法
2017-02-28 11:50
快速回复:关于VB读取07版与13版excel出现报错怎么解决,读03版正常!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025946 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved