当前位置:首页 » 编程语言 » vbasqlserver

vbasqlserver

发布时间: 2022-09-27 23:00:15

Ⅰ VBA连接sqlSERVER时 老是弹出对话框提示选择数据源

我是这样做的
DataConn_S = "Provider=SQLOLEDB.1;User ID=xxxx;Password=xxxxx;Initial Catalog=TAP; Data Source=xxxxxxx"
Set DT = CreateObject("ADODB.Connection")
DT.Mode = adModeRead
DT.Open DataConn_S
Set RT = CreateObject("ADODB.Recordset")

SS = "select * from new_tap order by Material_Name"
RT.Open SS, DT
if not rt.eof then
sheet1.cells(1,1)=RT("field")
end if
RT.close
DT.close

Ⅱ vba 用ADO连接不上sqlserver 错误提示:client unable to establish connection

试试看
="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"

Ⅲ vba access 将Access数据导入到sqlserver

吧sqlserver作为数据源,可以直接导的。你查查

docmd.exprot.......

Ⅳ VBA连接SQLServer的问题

给出报错信息

Private Sub Form_Activate()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open basLogin.GetFurnaceDBPath, "admin", ""

Set cmd.ActiveConnection = conn

cmd.CommandText = "SELECT * FROM Slag_CAL order by DateTime "
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockOptimistic

If rs.RecordCount > 0 Then
blnks = True
rs.MoveFirst
Timer1_Timer
End If

End Sub

还有就是不是那个语句写错。是你的连接不成功。问题是在连接执行语句上。
可能是没有user这个表。还有就是游标没有打开。还有就是连接不成功

热点内容
ip当前服务器不可用是什么意思 发布:2025-07-11 08:57:55 浏览:334
acfun如何缓存 发布:2025-07-11 08:48:12 浏览:2
我的世界服务器tag 发布:2025-07-11 08:48:09 浏览:891
c语言设置 发布:2025-07-11 08:48:02 浏览:149
盒子服务器名称忘了怎么找ip 发布:2025-07-11 08:40:00 浏览:984
研发部门如何配置电脑 发布:2025-07-11 08:35:13 浏览:135
androidassets文件路径 发布:2025-07-11 08:28:46 浏览:164
安卓源码如何变成ios 发布:2025-07-11 08:20:35 浏览:625
纯油雅阁配置怎么选 发布:2025-07-11 08:16:37 浏览:320
数控圆孤编程 发布:2025-07-11 08:13:08 浏览:257