vba连接sqlserver数据库(VBA通过ADO连接SQL数据库,但是提示“无法链接到SQL数据库 错误编码 [67]”,问题在哪里呢)
本文目录
- VBA通过ADO连接SQL数据库,但是提示“无法链接到SQL数据库 错误编码 [67]”,问题在哪里呢
- vba 用ADO连接不上sqlserver 错误提示:client unable to establish connection
- VBA连接数据库,数据库配置不正确,导致连接失败,要求给出提示,并且退出程序
- VBA连接SQL的问题
- vba连接sqlserver数据库问题
- Excel VBA 连接SQL数据库后的操作
- excel利用vba连接sql server上的数据库
VBA通过ADO连接SQL数据库,但是提示“无法链接到SQL数据库 错误编码 [67]”,问题在哪里呢
67表示主机地址错误,你下面语句中的【服务器名】要修改服务器的机器名、域名或者IP地址。
constr = "provider=sqlncli10.1;persist security info=false;initial catalog=yearsallshow;user id=sa;pwd=psw;data source=服务器名"
所有错误代码的含义见连接网页:网页链接
vba 用ADO连接不上sqlserver 错误提示:client unable to establish connection
试试看="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"
VBA连接数据库,数据库配置不正确,导致连接失败,要求给出提示,并且退出程序
给你个链接算起来2005的,测试通过只说链接部分Set cnn = CreateObject("adodb.connection")strcn = "Provider=SQLOLEDB.1;User ID=sa;Password=sa1234;Initial Catalog=paracheck;DataSource=ZN" ’ZN为数据库名称cnn.Open strcn ’链接数据库,这里已经成功连接数据库了st = "SELECT * INTO .Range("a" & i))去掉.xls才可以导入,sheet1为表的取名名称,不是表的编码名称cnn.Execute stcnn.CloseSet cnn = Nothing
VBA连接SQL的问题
不知道 VarietyFirs是个啥对象,能否直接这么用,你试试Set VarietyFirs.List = rs
vba连接sqlserver数据库问题
while( @beginMonth《=@endMonth) begin select Execute End With Set rs.ActiveConnection = conn rs.Open cmd If rs.RecordCount 》 0 Then conn.ConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;" conn.Open
Excel VBA 连接SQL数据库后的操作
呵呵,以前就帮人家解决过这个,请看下面的代码,有注释的!Private Sub CommandButton5_Click() Dim Conn As New ADODB.Connection ’定义ADODB连接对象 Dim ConnStr As String ’定义连接字符串 Dim xiao As String xiao = ComData.Text’对于SQL 2008,如果以IP方式访问服务器,必须要启动SQL Server Browser服务,如果是Express版本,要以“IP(计算机名)\实例名”方式访问 ConnStr = txtData.Text Dim Records As New ADODB.Recordset ’定义ADODB对象的记录集 Dim Sheet As Worksheet ’定义工作表 Set Sheet = ThisWorkbook.Worksheets("Sheet2") ’给变量Sheet赋值,注意:是工作簿中索引为1的那个表(通常一个新的工作簿Sheet1的索引为1) ’Sheet.Name = "Data" ’把Sheet名称改为Data Sheet.Cells.Clear ’清空表中原有的数据’连接状态是打开就不在进行Open操作 Conn.Open ConnStr Dim SQLStr As String ’要执行的SQL语句 SQLStr = "select * from Shift_Code where Club=’" + xiao + "’" ’可以执行更复杂的SQL语句Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic ’读取SQL查询结果到Records记录集’Records.Open Dim i, j, TotalRows, TotalColumns As Integer j = 0TotalRows = Records.RecordCountTotalColumns = Records.Fields.Count’下面的循环把表头(即列名)写到Excel表的第一行For i = 0 To TotalColumns - 1 Sheet2.Cells(1, i + 1) = Records.Fields(i).NameNext ’下面的循环把查询结果写到Excel表中Do While Not Records.EOF For i = 0 To TotalColumns - 1 Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value Next Records.MoveNext j = j + 1 LoopRecords.Close ’关闭记录集Conn.Close ’关闭连接Set Records = Nothing ’清空对象Set Conn = Nothing ’清空对象End Sub有什么不懂的话Hi我!
excel利用vba连接sql server上的数据库
不同一网段当然连接不上了。要在2个网段之间加个路由器,2个网段能直接通信之后才能连SQL
本文相关文章:
三国杀redis出错是什么意思(redis在windows下总是报错,就是下面的错误,这是哪里出错了)
2024年9月7日 02:00
protocol not recognized(网页msxml3.dll 错误 ’80072ee6’ 请高手解决)
2024年9月6日 06:40
eval函数报错(matlab eval函数在运行一条错误代码后就失灵了)
2024年9月2日 11:45
shellexecuteex失败 代码5 拒绝访问(windows无法启动,提示“错误5,拒绝访问”如何解决)
2024年9月1日 14:10
js语法检查(本吧须知02-26求助,webview检测js代码语法错误)
2024年8月29日 21:20
select database(如何解决Can not select MySQL database错误提示)
2024年8月27日 06:20
matlab scatter(MATLAB错误:scatter(x,y1,’k’))
2024年8月20日 18:05
insert语句语法错误(sql语句 insert语法错误)
2024年8月15日 22:45
sqlserver2019激活(谁能帮我解决SqlServer设备激活错误,请使用 WITH MOVE 选项来标识该文件的有效位置)
2024年8月11日 21:50
maven依赖包加载不到(jenkins错误:找不到或无法加载 主类+.Develop.apache-maven-3.6.3)
2024年8月10日 10:41
eclipse打开弹出提示(eclipse运行时总是弹出对话框提示错误)
2024年8月7日 08:55
最新java云商城管理系统+wap手机版源码开源无加密版可二次开发很多错误怎么办?一元云购程序源码怎么获得_一元云购怎么做才合法
2024年8月1日 06:55
java安装未完成错误1603(JAVA安装时出现错误说更新未完成错误代码1603)
2024年7月31日 17:50
java程序设计软件安装(java安装错误 ,错误代码1618是什么意思)
2024年7月29日 13:41
更多文章:
怎样找到ps中已锁定的图层?photoshop图层锁定怎么解锁
2024年6月9日 02:54
大智慧手机炒股下载(国泰君安大智慧手机版给个详细的下载地址!)
2024年6月25日 11:51
泰生活是什么保险?用泰生活app怎么让红利直接转到银行卡里面
2024年6月5日 06:38
用友t+软件(金蝶精斗云和用友T+财务软件哪个好用实用各自优缺点是什么)
2024年8月12日 07:16
nes游戏合集下载安卓版(求fc游戏安卓,无需模拟器的下载网址)
2024年5月1日 07:40
录入吧录入时没有原图?金蝶K3 委外加工费在什么地方维护不用每次都手工录入吧
2024年6月12日 22:36