vba连接SQL数据库方法

如下：自己改一下：

   Dim cn As New ADODBConnection

   Dim rs As New Recordset

   Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域"

strcn = "Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;datasource=127001,1433;"

   cnOpen strcn

   rsOpen Str1, cn

Dim i

For i = 1 TorsFieldsCount

Cells(1, i) = rsFields(i- 1)Name’FIELDS是从0开始的，所以这里要-1

 Range("a2")CopyFromRecordset rs

Next i

仔细看了一下，发现你是aceess中的vba，嗯，是该用value。你给name字段加上中括号试试，即 "select from login where [name]='" & usernamevalue & "'"

另外注意单引号和双引号之间没有空格，否则可能出现逻辑错误，比如 " test " 和"test"是不同的

你数据对不上是少数据吗你的语句中用了like,但没有通配符,试试修改

sqls = "SELECT FROM NDYX where FIELD(0) like'" & a & "'" '定义SQL查询命令字符串"

while( @beginMonth<=@endMonth)

begin

select

Execute

End With

Set rsActiveConnection = conn

rsOpen cmd

If rsRecordCount > 0 Then

connConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;"

connOpen

connConnectionString = "Driver={sql server};server=SVCTAG-JH5JL二X;uid=lims;pwd=;database=lims" connOpe

可以的，我就做过，在安装了oracle的机子上搜这三个库文件（我用的是oracle11g），ocidll、orannzsbb11dll、oraociei11dll，拿出来，要用到它们，然后把这三个文件放在程序根目录就可以了，注意与服务器的编码问题，如果编码不一致，中文可能出现乱码

VBA连接 ORACLE 需要安装 OO4O （Oracle Objects for OLE）组件。

可以到 ORACLE 公司下载：

>

以上就是关于vba连接SQL数据库方法 全部的内容，包括:vba连接SQL数据库方法 、vba 连接access数据库，划线的那句出问题，提示至少一个参数没有被指定值、VBA 连接Access数据库查询等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！