怎样读取数据库：以EXCEL表中的一列数据作为查询条件，到SQL数据库中取数并填充到EXCEL里；
SQL Server中学生信息表名：Table_1

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

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
还是有问题，能帮我改下吗？谢谢！

把myData换成你的数据库名

改了，提示有语法错误，能帮我看下是哪里问题么？

传附件来看

帮忙看看问题在哪，谢谢！

发上的文件中没有数据库日志文件，没有导入进来，你的连接语句中缺少：password一项，因此数据连接失败。其它的应该没有问题。

我把日志文件放进去了，帮我看看，代码要怎样修改。

//sql语句写错了：SELECT 写成了selsect

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