| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 1148 人关注过本帖
标题:EXCEL VBA怎么读写SQLSERVER 数据库
只看楼主 加入收藏
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
结帖率:75%
  已结贴   问题点数:20  回复次数:13   
EXCEL VBA怎么读写SQLSERVER 数据库
怎样读取数据库:以EXCEL表中的一列数据作为查询条件,到SQL数据库中取数并填充到EXCEL里;
SQL Server中学生信息表名:Table_1
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: EXCEL VBA 读写 SQLSERVER 数据库 
2019-01-28 22:08
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:20 
dim cn,rs as object
dim strCon as string
dim sql as string
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
strCon="provider=sqloledb;data source=127.0.0.1;uid=sa;pwd=123456;database=myData"
cn.open strCon
sql="selsect * from Table_1"
rs.open sql,cn,1,3
sheet1.range("a2").copyfromRecordset rs
rs.close
cn.close
2019-01-29 09:31
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 2楼 xyxcc177
Private Sub CommandButton1_Click()
Dim cn, rs As Object
Dim strCon As String
Dim sql As String
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
strCon = "provider=sqloledb;data source=127.0.0.1;User id=sa;database=myData"
cn.Open strCon
sql = "selsect * from Table_1"
rs.Open sql, cn, 1, 3
sheet1.Range("a2").CopyFromRecordset rs
rs.Close
cn.Close
End Sub
还是有问题,能帮我改下吗?谢谢!
附件: 您没有浏览附件的权限,请 登录注册
2019-01-29 23:43
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:0 
把myData换成你的数据库名
2019-01-30 12:56
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 4楼 xyxcc177
改了,提示有语法错误,能帮我看下是哪里问题么?
附件: 您没有浏览附件的权限,请 登录注册
2019-02-12 22:17
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:0 
回复 5楼 childH
传附件来看
2019-02-13 10:34
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 6楼 xyxcc177
帮忙看看问题在哪,谢谢!
附件: 您没有浏览附件的权限,请 登录注册
2019-02-13 21:48
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:0 
发上的文件中没有数据库日志文件,没有导入进来,你的连接语句中缺少:password一项,因此数据连接失败。其它的应该没有问题。
2019-02-14 10:20
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 8楼 xyxcc177
我把日志文件放进去了,帮我看看,代码要怎样修改。
附件: 您没有浏览附件的权限,请 登录注册
2019-02-14 19:08
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:0 
回复 9楼 childH
//sql语句写错了:SELECT 写成了selsect

[此贴子已经被作者于2019-2-15 16:17编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2019-02-15 15:23
快速回复:EXCEL VBA怎么读写SQLSERVER 数据库
数据加载中...
 
   



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

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