如何利用VBA将SQL查询结果送到EXCEL指定单元格

xiao81jian · 发表于 2006-8-5 09:57

我想利用VBA通过一条SQL语句从SQLSERVER数据库查询到一条数据并送到EXCEL指定单元格，请问该怎么做！数据库类型SQLSERVER 2000，数据库名tywk,用户名sa,密码wkserver9,SQL语句附下！请各位高人帮忙！万分感谢！

3nER6Uez.txt (286 Bytes, 下载次数: 63)

licx51120 · 发表于 2006-8-6 10:56

我也想对此得到进一步的了解,但没有相关的文章,看来是实现不了吧??

如哪位VBA长老不吝赐教,小弟不胜感激.

tzzxceris · 发表于 2006-8-9 09:08

         For i = 1 To 35
            JcjsSht.Cells(2, i)=Rs(i)
         Next i

ngs139 · 发表于 2006-8-18 15:09

tzzxceris 发的什么？看不懂

iamahack · 发表于 2006-8-18 15:14

Dim i     As Integer, j       As Integer, sht       As Worksheet     'i,j为整数变量；sht   为excel工作表对象变量，指向某一工作表
Dim cn     As New ADODB.Connection       '定义数据链接对象   ，保存连接数据库信息；请先添加ADO引用
Dim rs     As New ADODB.Recordset         '定义记录集对象，保存数据表
Dim strCn     As String, strSQL       As String     '字符串变量

strCn = "Provider=sqloledb;Server=(local);Database=tywk;Uid=sa;Pwd=wkserver9;"    '定义数据库链接字符串
cn.Open strCn
FINALROW = Cells(65535, 1).End(xlUp).Row
Set sht = ThisWorkbook.Worksheets("更新数据库")

For i = 2 To FINALROW         '循环开始

          strSQL = "insert   into   tywk.dbo.表名   values('" & sht.Cells(i, 1) _
          & "' ,'" & sht.Cells(i, 2) & "' ,'" & sht.Cells(i, 3) & "' ,'" & sht.Cells(i, 4) _
          & "' ,'" & sht.Cells(i, 5) & "' ,'" & sht.Cells(i, 6) & "' ,'" & sht.Cells(i, 7) _
          & "' ,'" & sht.Cells(i, 8) & "' ,'" & sht.Cells(i, 9) & "' ,'" & sht.Cells(i, 10) _
          & "' ,'" & sht.Cells(i, 11) & "' ,'" & sht.Cells(i, 12) & "' ,'" & sht.Cells(i, 13) _
          & "' ,'" & sht.Cells(i, 14) & "' ,'" & sht.Cells(i, 15) & "' ,'" & sht.Cells(i, 16) _
          & "' ,'" & sht.Cells(i, 17) & "' ,'" & sht.Cells(i, 18) & "');"
          cn.Execute strSQL

yyyu_2000 · 发表于 2006-8-28 10:39

学习中

alex.yp · 发表于 2006-9-7 14:42

了解中

4666 · 发表于 2006-10-13 17:59

好深奥啊

		自动登录	找回密码
密码			免费注册