vba访问sqlserver数据库，vba 连接sqlserver

用VBA语言调用sql数据库数据到excel中

1、Source=[数据库IP地址或数据库服务器名称]；Connect Timeout=720；查询语句，如果sql语句很长可以用strSQL=strSQL+来连接分成多段的语句，如果语句很短可以只写在一行上。

2、Next i 修改为：x=1 y=1 For i = 1 To rs.RecordCount SheetCells(x， y).Value = rs.Fields(0).Value y=y+1 if y26 then 26表示数据存放在A-Z里面，修改26可以改变列数。

3、将保存的结果打开后与SQL中的结果一致，同样可以部分选择复制，然后粘贴到空白的EXCEl中。导出完整的SQL数据表为Excel文件 若是数据表中的数据量很庞大，则可以使用SQLServerManagementStudio自带的导出功能。

相关问答

Q1: VBA连接数据库,数据库配置不正确,导致连接失败,要求给出提示,并且退出...

1、检查代码中的对象变量是否正确声明。在 VBA 代码中，每个对象都应该被声明为一个变量，并且需要在代码中明确引用该变量。如果对象变量未正确声明，则会导致“未设置对象变量或 with block 变量”的错误提示。

2、MySQL 服务未启动：请确保 MySQL 服务已经启动。如果 MySQL 服务未启动，可以在服务管理器中启动该服务。数据库不存在：请确认您连接的 MySQL 数据库确实存在，并且您使用的是正确的数据库名称。

3、VBA链接mysql数据库报错显示运行时错误 有2个原因 第一：程序方面的错误，这个没什么好说的吧，捉“虫”即可 第二：也就是本文标题提到的错误实际上是由于MS Jet引擎没有对临时目录的写入权限，导致数据库创建失败。

4、它提示用程序的定义错误的话，应该就是它本身程序的问题，所以导致你在它连接的过程中出现了这样的提示，你可以换一个数据连接。

5、删除set cn = new ADODB.Connection和set cnn = New ADODB.Recordset。已经引用了，没必要再次为对象赋值。

Q2: 如何用vba代码将access数据库连接求代码

下面这段程序是连接数据库，并将excel表格内容写入数据库。

就你这如果要连接一个用户密码表的话，设客户端游标就可以了。

Access数据库使用VBA的操作方法打开Access数据库，如图所示。点击“数据库工具”选项卡中“VisualBasic”，如图所示。

远程连接access数据库的几个方法：1．建立VPN(Virtual Private Network)，然后把服务器中mdb文件所在的 Folder 共享即可。

打开了表达式生成器，在下方选择函数进行编辑，或者自己输入公式，然后点击确定按钮。点击菜单栏上面的保存按钮，在弹出的另存为对话框中，输入宏的名称，然后点击确定。

Q3: vba配置mysql时不存在或拒绝访问

VBA链接mysql数据库报错显示运行时错误 有2个原因 第一：程序方面的错误，这个没什么好说的吧，捉“虫”即可 第二：也就是本文标题提到的错误实际上是由于MS Jet引擎没有对临时目录的写入权限，导致数据库创建失败。

权限问题，数据库空间不足。根据查询搜狐新闻网显示，权限问题：没有足够的权限来执行新建记录操作，则MySQL将无法新建记录，确保有足够的权限，并检查用户名和密码是否正确。

单击my.ini 右键--属性--安全--更改user的权限--完全控制。

考虑以下四种情况：你的服务器挂掉了（死机、关机等）。你的服务器的SQLServer服务没有开启。你的网络连接是否正常。你的连接字符串是否正确（比方服务器名写错了等）。

Q4: vba连接sqlserver数据库问题

1、打开数据库连接 conn.Open strConn 该句和数据库连接字符串处的Connect Timeout=720，表示说如果语句运行时间很长，这两句可以延长vba的等待时间，没有这两句，vba往往会报查询超时。

2、表示主机地址错误，你下面语句中的【服务器名】要修改服务器的机器名、域名或者IP地址。

3、0 Then blnks = True rs.MoveFirst Timer1_Timer End If End Sub 还有就是不是那个语句写错。是你的连接不成功。问题是在连接执行语句上。可能是没有user这个表。还有就是游标没有打开。

Q5: 求教VBA连接SQL数据库的详细方法及解释。

1、打开数据库连接 conn.Open strConn 该句和数据库连接字符串处的Connect Timeout=720，表示说如果语句运行时间很长，这两句可以延长vba的等待时间，没有这两句，vba往往会报查询超时。

2、这个是在网上搜到的东西，没有安装PostgreSQL，所以不能验证。你自己试试。

3、输入以下代码：“Public conn1 As SqlConnection = New SqlConnection _(server=191679； Initial Catalog= student； User ID= panqe；PWD=shentai768@)”，vb就已经成功连接sql数据库了。

4、函数 SQL.REQUEST 参数的次序与 Visual Basic for Application 中函数 SQLRequest 的参数次序不同。Office中国社区门户C！pK p9O6BnlPj 示例 6c！s3F^-TzT_0 假设需要对名为 DBASE4 的 DBASE 数据库进行查询。

5、一般正常将连接SQL的命令作为窗体上的按钮事件，同时把文本框内容作为变量与文本连接即可。

6、方法与过程与添加Adodc控件过场相似，勾选的是：Microsoft DataGrid Control 0 (SP6) (OLEDB)。连接数据：为了说明，假设你有数据库文件“数据库.Mdb”，在里边有数据表“学生基本信息”和“学生成绩”。

关于vba访问sqlserver数据库和vba 连接sqlserver的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。